* mml.el (mml-generate-mime-1): Use mm-string-as-unibyte instead of

[gnus] / lisp / mml.el

diff --git a/lisp/mml.el b/lisp/mml.el
index c17f1f8..fc19974 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -505,9 +505,9 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
            (mm-with-unibyte-buffer
              (cond
               ((cdr (assq 'buffer cont))
-               (insert (with-current-buffer (cdr (assq 'buffer cont))
-                         (mm-with-unibyte-current-buffer
-                           (buffer-string)))))
+               (insert (mm-string-as-unibyte
+                        (with-current-buffer (cdr (assq 'buffer cont))
+                          (buffer-string)))))
               ((and filename
                     (not (equal (cdr (assq 'nofile cont)) "yes")))
                (let ((coding-system-for-read mm-binary-coding-system))