From: keiichi <keiichi>
Date: Fri, 24 Dec 1999 02:38:10 +0000 (+0000)
Subject: (gnus-decode-header-function): Use `mail-decode-encoded-word-region'.
X-Git-Tag: nana-gnus-7_1_0_16~71
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c35c6d2d8d526fee26b3fbc87dddaaabc63aba7e;p=elisp%2Fgnus.git-

(gnus-decode-header-function): Use `mail-decode-encoded-word-region'.
(article-decode-encoded-words): Bind `default-mime-charset' instead of
`mail-parse-charset'.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a0f5835..7bd78d5 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -566,8 +566,7 @@ displayed by the first non-nil matching CONTENT face."
   :group 'gnus-article-mime
   :type 'function)
 
-(defvar gnus-decode-header-function 'mime-decode-header-in-region
-					;'mail-decode-encoded-word-region
+(defvar gnus-decode-header-function 'mail-decode-encoded-word-region
   "Function used to decode headers.")
 
 (defvar gnus-article-dumbquotes-map
@@ -1455,7 +1454,7 @@ If PROMPT (the prefix), prompt for a coding system to use."
 (defun article-decode-encoded-words ()
   "Remove encoded-word encoding from headers."
   (let ((inhibit-point-motion-hooks t)
-	(mail-parse-charset gnus-newsgroup-charset)
+	(default-mime-charset gnus-newsgroup-charset)
 	(mail-parse-ignored-charsets 
 	 (save-excursion (condition-case nil
 			     (set-buffer gnus-summary-buffer)