From c35c6d2d8d526fee26b3fbc87dddaaabc63aba7e Mon Sep 17 00:00:00 2001
From: keiichi <keiichi>
Date: Fri, 24 Dec 1999 02:38:10 +0000
Subject: [PATCH] (gnus-decode-header-function): Use
 `mail-decode-encoded-word-region'.
 (article-decode-encoded-words): Bind `default-mime-charset'
 instead of `mail-parse-charset'.

---
 lisp/gnus-art.el |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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)
-- 
1.7.10.4