From 57bd6e8efc239efc8ec6451dae0ced8be49964d8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 8 Jul 1999 13:00:39 +0000 Subject: [PATCH] (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. --- lisp/gnus-sum.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) 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 -- 1.7.10.4