# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1273652665 0
# Node ID 4e5c3f6510c751500ac79115c8a7c134a756d397
# Parent  e6be93721f9666c198944685ecaf18f8b51fc67f
Synch with Gnus trunk.
(message-forward-make-body-plain, message-forward-make-body-mml):
 Use mm-multibyte-string-p instead of multibyte-string-p.

diff -r e6be93721f96 -r 4e5c3f6510c7 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed May 12 08:11:03 2010 +0000
+++ b/lisp/gnus/ChangeLog	Wed May 12 08:24:25 2010 +0000
@@ -1,3 +1,9 @@
+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.
+
 2010-05-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* message.el (message-forward-make-body-mml): Assume original message
diff -r e6be93721f96 -r 4e5c3f6510c7 lisp/gnus/message.el
--- a/lisp/gnus/message.el	Wed May 12 08:11:03 2010 +0000
+++ b/lisp/gnus/message.el	Wed May 12 08:24:25 2010 +0000
@@ -7165,7 +7165,7 @@
 	(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)
@@ -7220,7 +7220,7 @@
     (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)