From 97fd6c48e2095ee8da278e2f1360a7319a10eb99 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sat, 25 Apr 1998 10:50:49 +0000 Subject: [PATCH] *** empty log message *** --- lisp/gnus-msg.el | 6 +++++- lisp/gnus.el | 2 +- lisp/message.el | 3 ++- 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 95aa5f7..ad7f8dd 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -547,7 +547,11 @@ If FULL-HEADERS (the prefix), include full headers when forwarding." (interactive "P") (gnus-setup-message 'forward (gnus-summary-select-article) - (set-buffer gnus-original-article-buffer) + (let ((charset default-mime-charset)) + (set-buffer gnus-original-article-buffer) + (make-local-variable 'default-mime-charset) + (setq default-mime-charset charset) + ) (let ((message-included-forward-headers (if full-headers "" message-included-forward-headers))) (message-forward post)))) diff --git a/lisp/gnus.el b/lisp/gnus.el index f2a1d78..3b317bd 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -246,7 +246,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "6.2.0" +(defconst gnus-version-number "6.2.1" "Version number for this version of gnus.") (defconst gnus-version diff --git a/lisp/message.el b/lisp/message.el index 63cdc3e..10d6028 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3670,7 +3670,8 @@ header line with the old Message-ID." (concat "[" (or (message-fetch-field (if (message-news-p) "newsgroups" "from")) "(nowhere)") - "] " (or (message-fetch-field "Subject") ""))))) + "] " (or (eword-decode-unstructured-field-body + (message-fetch-field "Subject") "")))))) ;;;###autoload (defun message-forward (&optional news) -- 1.7.10.4