2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (rmail-output): It is in rmailout.el not rmail.el.

	* message.el (message-forward): local-variable-p takes an extra
	argument in XEmacs.

	* message.el (message-forward-decoded-p): New variable.
	(message-forward-subject-author-subject): Use it.
	(message-make-forward-subject): Use it.
	(message-forward): Use it.

	* gnus-uu.el (gnus-uu-digest-mail-forward): Use it.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index fe2c6c3311e58c4b0bb156038803436b7da0f829..49b063c6bce2a37f2ada5ac50bde3b3ee98a46d3 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,17 @@
+2001-03-17  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (rmail-output): It is in rmailout.el not rmail.el.
+
+       * message.el (message-forward): local-variable-p takes an extra
+       argument in XEmacs.
+
+       * message.el (message-forward-decoded-p): New variable.
+       (message-forward-subject-author-subject): Use it.
+       (message-make-forward-subject): Use it.
+       (message-forward): Use it.
+       
+       * gnus-uu.el (gnus-uu-digest-mail-forward): Use it.
+
 2001-03-05  Dave Love  <fx@gnu.org>
 
        * mm-util.el (mm-mime-mule-charset-alist): Fix utf-8 case.

diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index a5c660ea9faa4f1ad478e56eed86e5bc47ca9589..50c74e92d326aa00dd1adabf3dd97362351d0b28 100644 (file)
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/gnus-uu.el
@@ -564,7 +564,8 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
       (when (re-search-forward "^From:")
        (delete-region (point) (gnus-point-at-eol))
        (insert " " from))
-      (message-forward post t))
+      (let ((message-forward-decoded-p t))
+       (message-forward post t)))
     (setq gnus-uu-digest-from-subject nil)))
 
 (defun gnus-uu-digest-post-forward (&optional n)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 4dccbbdddd7e8b7967e3c6cc357c58b871d0a6d7..dcc265dcf0bdad3773bd9fddfc37f18a4497ef30 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1059,7 +1059,7 @@ Except if it is nil, use Gnus native MUA; if it is t, use
   (autoload 'gnus-request-post "gnus-int")
   (autoload 'gnus-alive-p "gnus-util")
   (autoload 'gnus-group-name-charset "gnus-group")
-  (autoload 'rmail-output "rmail"))
+  (autoload 'rmail-output "rmailout"))
 
 \f
 
@@ -4145,15 +4145,22 @@ Previous forwarders, replyers, etc. may add it."
 
 ;;; Forwarding messages.
 
+(defvar message-forward-decoded-p nil
+  "Non-nil means the original message is decoded.")
+
 (defun message-forward-subject-author-subject (subject)
   "Generate a SUBJECT for a forwarded message.
 The form is: [Source] Subject, where if the original message was mail,
 Source is the sender, and if the original message was news, Source is
 the list of newsgroups is was posted to."
   (concat "["
-         (or (message-fetch-field
-              (if (message-news-p) "newsgroups" "from"))
-             "(nowhere)")
+          (let ((prefix 
+                 (or (message-fetch-field
+                      (if (message-news-p) "newsgroups" "from"))
+                     "(nowhere)")))
+            (if message-forward-decoded-p
+                prefix
+              (mail-decode-encoded-word-string prefix)))
          "] " subject))
 
 (defun message-forward-subject-fwd (subject)
@@ -4162,7 +4169,7 @@ The form is: Fwd: Subject, where Subject is the original subject of
 the message."
   (concat "Fwd: " subject))
 
-(defun message-make-forward-subject (&optional decoded)
+(defun message-make-forward-subject ()
   "Return a Subject header suitable for the message in the current buffer."
   (save-excursion
     (save-restriction
@@ -4171,7 +4178,7 @@ the message."
            (subject (message-fetch-field "Subject")))
        (setq subject
              (if subject
-                 (if decoded 
+                 (if message-forward-decoded-p
                      subject
                    (mail-decode-encoded-word-string subject))
                ""))
@@ -4189,15 +4196,22 @@ the message."
          (setq funcs (cdr funcs)))
        subject))))
 
+(eval-when-compile
+  (defvar gnus-article-decoded-p))
+
 ;;;###autoload
 (defun message-forward (&optional news digest)
   "Forward the current message via mail.
 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 digest))
-       art-beg)
+  (let* ((cur (current-buffer))
+        (message-forward-decoded-p 
+         (if (local-variable-p 'gnus-article-decoded-p (current-buffer))
+             gnus-article-decoded-p  ;; In an article buffer.
+           message-forward-decoded-p))
+        (subject (message-make-forward-subject))
+        art-beg)
     (if news
        (message-news nil subject)
       (message-mail nil subject))
@@ -4218,7 +4232,8 @@ Optional DIGEST will use digest to forward."
          (if message-forward-as-mime
              (insert-buffer-substring cur)
            (mml-insert-buffer cur))
-       (if message-forward-show-mml
+       (if (and message-forward-show-mml
+                (not message-forward-decoded-p))
            (insert
             (with-temp-buffer
               (mm-disable-multibyte-mule4) ;; Must copy buffer in unibyte mode