diff options
| author | ShengHuo ZHU <zsh@cs.rochester.edu> | 2001-02-07 22:08:26 +0000 |
|---|---|---|
| committer | ShengHuo ZHU <zsh@cs.rochester.edu> | 2001-02-07 22:08:26 +0000 |
| commit | 1653df0fbbdf862ce49782c124dbd1141feb06ef (patch) | |
| tree | 840999b7bd209728ab130ce0d762772a62b61ce1 /lisp/gnus/message.el | |
| parent | 751d3bc411b93c87f6225faf4a02e52fa531372d (diff) | |
| download | emacs-1653df0fbbdf862ce49782c124dbd1141feb06ef.tar.gz emacs-1653df0fbbdf862ce49782c124dbd1141feb06ef.tar.bz2 emacs-1653df0fbbdf862ce49782c124dbd1141feb06ef.zip | |
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.
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)) |