From 063a47124118c38a1944a906fa24d3970bcdfb34 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 20 Apr 2002 14:12:31 +0000 Subject: [PATCH] * gnus-i18n.el: Undo the last change. --- lisp/gnus-i18n.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/gnus-i18n.el b/lisp/gnus-i18n.el index 9d1a0ae..c71b1e2 100644 --- a/lisp/gnus-i18n.el +++ b/lisp/gnus-i18n.el @@ -36,7 +36,6 @@ ("\\(^\\|:\\)hk\\(star\\)?\\." . cn-big5) ("\\(^\\|:\\)tw\\." . cn-big5) ("\\(^\\|:\\)alt\\.chinese" . hz-gb-2312) - ("\\`nndraft:\\(drafts\\|delayed\\)\\'" . nil) ) "Alist of newsgroup patterns vs. corresponding default MIME charset. Each element looks like (REGEXP . SYMBOL). REGEXP is pattern for @@ -63,7 +62,7 @@ newsgroup name. SYMBOL is MIME charset or coding-system.") It is specified by variable `gnus-newsgroup-default-charset-alist' \(cf. function `gnus-set-newsgroup-default-charset')." (if (buffer-live-p gnus-summary-buffer) - (let ((regexp-to-charset + (let ((charset (catch 'found (let ((group (save-excursion @@ -73,18 +72,18 @@ It is specified by variable `gnus-newsgroup-default-charset-alist' (while alist (let ((pair (car alist))) (if (string-match (car pair) group) - (throw 'found pair) + (throw 'found (cdr pair)) )) (setq alist (cdr alist))) )))) - (if regexp-to-charset + (if charset (progn (save-excursion (set-buffer gnus-summary-buffer) (make-local-variable 'default-mime-charset) - (setq default-mime-charset (cdr regexp-to-charset))) + (setq default-mime-charset charset)) (make-local-variable 'default-mime-charset) - (setq default-mime-charset (cdr regexp-to-charset))) + (setq default-mime-charset charset)) (kill-local-variable 'default-mime-charset))))) -- 1.7.10.4