diff options
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 12 |
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)) |