From: ichikawa <ichikawa>
Date: Sat, 25 Apr 1998 10:50:49 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: ichikawa-199811302358~75
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=97fd6c48e2095ee8da278e2f1360a7319a10eb99;p=elisp%2Fgnus.git-

*** empty log message ***
---

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)