2001-01-21 00:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-forward): Use mule4.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f363778..66e9c9f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-21 00:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-forward): Use mule4.
+       
 2001-01-20 09:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-util.el (mm-string-as-unibyte): New.
@@ -299,7 +303,7 @@
        * nnfolder.el (nnfolder-existing-articles): Reversed, i.e. sorted.
        (nnfolder-request-expire-articles): Use gnus-sorted-intersection.
        (nnfolder-retrieve-headers): Use intersection. Suggested by Jonas
-       Kvarnstr\81\e,Av\e(Bm <jonkv@ida.liu.se>.
+       Kvarnstr\e,Av\e(Bm <jonkv@ida.liu.se>.
 
 2000-12-30 00:17:38  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
@@ -505,7 +509,7 @@
 
        * message.el (message-forward): Save-restriction.
 
-2000-12-21  Kai Gro\81\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+2000-12-21  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-art.el (article-treat-dumbquotes): More doc, provided by
        Paul Stevenson <p.stevenson@surrey.ac.uk>
@@ -1598,10 +1602,10 @@
        * message.el (message-font-lock-keywords): use
        message-cite-prefix-regexp.
 
-2000-11-15  Kai Gro\81\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+2000-11-15  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-group.el (gnus-group-jump-to-group-prompt): New variable by
-       Stein Arild Str\81\e,Ax\e(Bmme.
+       Stein Arild Str\e,Ax\e(Bmme.
        (gnus-group-jump-to-group): Use it.
        (gnus-group-jump-to-group-prompt): Customize.
 
@@ -1733,7 +1737,7 @@
        * gnus-art.el (gnus-mime-display-alternative): Show button if no
        preferred part.
 
-2000-11-07  Kai Gro\81\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+2000-11-07  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-sum.el (gnus-move-split-methods): Say that
        `gnus-split-methods' uses file names, whereas this uses group

diff --git a/lisp/message.el b/lisp/message.el
index abf4e1a..4f2c7f1 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4368,11 +4368,11 @@ Optional DIGEST will use digest to forward."
        (if message-forward-show-mml
            (insert
             (with-temp-buffer
-              (mm-disable-multibyte) ;; Must copy buffer in unibyte mode
+              (mm-disable-multibyte-mule4) ;; Must copy buffer in unibyte mode
               (insert
                (with-current-buffer cur
                  (mm-string-as-unibyte (buffer-string))))
-              (mm-enable-multibyte)
+              (mm-enable-multibyte-mule4)
               (mime-to-mml)
               (goto-char (point-min))
               (when (looking-at "From ")