From: yamaoka <yamaoka>
Date: Thu, 8 Jul 1999 13:00:39 +0000 (+0000)
Subject: (gnus-summary-from-or-to-or-newsgroups): Bind the value of
X-Git-Tag: et-gnus-6_11_07-01~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=57bd6e8efc239efc8ec6451dae0ced8be49964d8;p=elisp%2Fgnus.git-

(gnus-summary-from-or-to-or-newsgroups): Bind the value of
`default-mime-charset' to its local value in `gnus-summary-buffer';
don't bind `mail-parse-charset' and `mail-parse-ignored-charsets'.
(gnus-decode-encoded-word-function): New variable.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 4dd7d05..fba830e 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -42,9 +42,6 @@
   (require 'mime-play)
   (require 'static))
 
-;; Avoid byte-compile warnings.
-(defvar gnus-decode-encoded-word-function)
-
 (eval-and-compile
   (autoload 'gnus-cache-articles-in-group "gnus-cache"))
 
@@ -812,6 +809,10 @@ mark:    The articles mark."
 The function is called with one parameter, the article header vector,
 which it may alter in any way.")
 
+(defvar gnus-decode-encoded-word-function
+  (mime-find-field-decoder 'From 'nov)
+  "Variable that says which function should be used to decode a string with encoded words.")
+
 (defcustom gnus-extra-headers nil
   "*Extra headers to parse."
   :group 'gnus-summary
@@ -2514,10 +2515,8 @@ marks of articles."
 (defun gnus-summary-from-or-to-or-newsgroups (header)
   (let ((to (cdr (assq 'To (mail-header-extra header))))
 	(newsgroups (cdr (assq 'Newsgroups (mail-header-extra header))))
-	(mail-parse-charset gnus-newsgroup-charset)
-	(mail-parse-ignored-charsets 
-	 (save-excursion (set-buffer gnus-summary-buffer)
-			 gnus-newsgroup-ignored-charsets)))
+	(default-mime-charset (with-current-buffer gnus-summary-buffer
+				default-mime-charset)))
     (cond
      ((and to
 	   gnus-ignored-from-addresses