(mml-generate-mime-1): Convert string into unibyte when inserting " *mml*"

 buffer's contents into a unibyte temp buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 985aa4f..f4a597b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mml.el (mml-generate-mime-1): Convert string into unibyte when
+       inserting " *mml*" buffer's contents into a unibyte temp buffer.
+
 2005-01-24  Harald Meland <harald.meland@usit.uio.no>  (tiny change)
 
        * mail-source.el (mail-source-fetch-imap): Search for ^From case

diff --git a/lisp/mml.el b/lisp/mml.el
index 1c391de..31d0f39 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1,5 +1,5 @@
 ;;; mml.el --- A package for parsing and validating MML documents
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -468,7 +468,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-buffer-substring (cdr (assq 'buffer cont))))
+               (insert (with-current-buffer (cdr (assq 'buffer cont))
+                         (mm-with-unibyte-current-buffer
+                           (buffer-string)))))
               ((and (setq filename (cdr (assq 'filename cont)))
                     (not (equal (cdr (assq 'nofile cont)) "yes")))
                (let ((coding-system-for-read mm-binary-coding-system))