Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 246-247)

   - Update from CVS

2007-08-23  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/mml.el (mml-generate-mime): Make sure it uses multibyte temp buffer.
   (mml-generate-mime-1): Don't encode body if it is specified to be in
   raw form; don't make buffer be unibyte when inserting multibyte string.

2007-08-24  IRIE Tetsuya  <irie@t.email.ne.jp>  (tiny change)

   * man/message.texi (MIME): Replace mml-attach with mml-attach-file.

Revision: emacs@sv.gnu.org/emacs--rel--22--patch-100

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 3e234161c3e..0cf879fd264 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2007-08-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * mml.el (mml-generate-mime): Make sure it uses multibyte temp buffer.
+        (mml-generate-mime-1): Don't encode body if it is specified to be in
+        raw form; don't make buffer be unibyte when inserting multibyte string.
+
 2007-08-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * sha1.el: Fix up comment style.
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index dae746fa082..0c60bed409f 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -404,7 +404,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
         (mml-multipart-number mml-multipart-number))
     (if (not cont)
         nil
-      (with-temp-buffer
+      (mm-with-multibyte-buffer
         (if (and (consp (car cont))
                  (= (length cont) 1))
             (mml-generate-mime-1 (car cont))
@@ -516,14 +516,13 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
                       (progn
                         (mm-enable-multibyte)
                         (insert contents)
-                        (setq charset (mm-encode-body)))
+                        (unless raw
+                          (setq charset (mm-encode-body))))
                     (insert contents)))))
               (setq encoding (mm-encode-buffer type)
                     coded (mm-string-as-multibyte (buffer-string))))
             (mml-insert-mime-headers cont type charset encoding nil)
-            (insert "\n")
-            (mm-with-unibyte-current-buffer
-              (insert coded)))))
+            (insert "\n" coded))))
        ((eq (car cont) 'external)
         (insert "Content-Type: message/external-body")
         (let ((parameters (mml-parameter-string