* message.el (message-forward-make-body-plain, message-forward-make-body-mml):

 Use mm-multibyte-string-p instead of multibyte-string-p.
* lpath.el: Revert.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97ad6d9..bc9fc94 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2010-05-12  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * message.el (message-forward-make-body-plain)
+       (message-forward-make-body-mml): Use mm-multibyte-string-p instead of
+       multibyte-string-p.
+
+       * lpath.el: Revert.
+
 2010-05-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * message.el (message-forward-make-body-mml): Assume original message

diff --git a/lisp/message.el b/lisp/message.el
index 1442293..beb9d16 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7138,7 +7138,7 @@ Optional DIGEST will use digest to forward."
        (contents (with-current-buffer forward-buffer (buffer-string)))
        e)
     (unless (featurep 'xemacs)
-      (unless (multibyte-string-p contents)
+      (unless (mm-multibyte-string-p contents)
        (error "Attempt to insert unibyte string from the buffer \"%s\"\
  to the multibyte buffer \"%s\""
               (if (bufferp forward-buffer)
@@ -7193,7 +7193,7 @@ Optional DIGEST will use digest to forward."
     (if (not message-forward-decoded-p)
        (let ((contents (with-current-buffer forward-buffer (buffer-string))))
          (unless (featurep 'xemacs)
-           (unless (multibyte-string-p contents)
+           (unless (mm-multibyte-string-p contents)
              (error "Attempt to insert unibyte string from the buffer \"%s\"\
  to the multibyte buffer \"%s\""
                     (if (bufferp forward-buffer)