2001-02-07 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-make-forward-subject): Argument decoded.
	(message-forward): Use it when digest.

	* gnus-uu.el (gnus-uu-grab-articles): Shoot down original article
	buffer.

	* gnus-sum.el (gnus-summary-make-menu-bar): Don't share menu bar
	in Emacs.

	* gnus-art.el (gnus-article-make-menu-bar): Make
	gnus-article-post-menu.

1 files changed, 7 insertions, 5 deletions

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 7cfd964e650..bab176fe86e 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4160,7 +4160,7 @@ The form is: Fwd: Subject, where Subject is the original subject of
 the message."
   (concat "Fwd: " subject))
 
-(defun message-make-forward-subject ()
+(defun message-make-forward-subject (&optional decoded)
   "Return a Subject header suitable for the message in the current buffer."
   (save-excursion
     (save-restriction
@@ -4169,7 +4169,9 @@ the message."
             (subject (message-fetch-field "Subject")))
         (setq subject
               (if subject
-                  (mail-decode-encoded-word-string subject)
+                  (if decoded 
+                      subject
+                    (mail-decode-encoded-word-string subject))
                 ""))
         (if message-wash-forwarded-subjects
             (setq subject (message-wash-subject subject)))
@@ -4191,9 +4193,9 @@ the message."
 Optional NEWS will use news to forward instead of mail.
 Optional DIGEST will use digest to forward."
   (interactive "P")
-  (let* ((cur (current-buffer))
-         (subject (message-make-forward-subject))
-         art-beg)
+  (let ((cur (current-buffer))
+        (subject (message-make-forward-subject digest))
+        art-beg)
     (if news
         (message-news nil subject)
       (message-mail nil subject))