* gnus-msg.el (gnus-summary-mail-forward): Disable multibyte

unless forward-show-mml.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca541bf..7d59183 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-14 18:55:30  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-summary-mail-forward): Disable multibyte
+       unless forward-show-mml.
+
 2000-09-14 14:48:57  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-sum.el (gnus-summary-save-parts-type-history): New.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index e371db1..78d196b 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -729,13 +729,13 @@ If POST, post instead of mail."
         (gnus-get-buffer-create
          (generate-new-buffer-name " *Gnus forward*")))
        (erase-buffer)
-       (mm-disable-multibyte)
+       (unless message-forward-show-mml
+         (mm-disable-multibyte))
        (insert text)
        (goto-char (point-min))
        (when (looking-at "From ")
          (replace-match "X-From-Line: ") )
        (when message-forward-show-mml
-         (mm-enable-multibyte)
          (mime-to-mml))
        (message-forward post)))))