From: akr <akr>
Date: Sun, 22 Mar 1998 18:52:18 +0000 (+0000)
Subject: (gnus-set-summary-default-charset): Delete
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Funlabeled-1.1.6;p=elisp%2Fgnus.git-

(gnus-set-summary-default-charset): Delete
buffer-local binding of `default-mime-charset' when the
newsgroup doesn't match `gnus-newsgroup-default-charset-alist'.
---

diff --git a/lisp/gnus-i18n.el b/lisp/gnus-i18n.el
index 3737fb9..5126a0a 100644
--- a/lisp/gnus-i18n.el
+++ b/lisp/gnus-i18n.el
@@ -76,15 +76,15 @@ It is specified by variable `gnus-newsgroup-default-charset-alist'
 		       ))
 		   (setq alist (cdr alist)))
 		 ))))
-	(when charset
-	  (save-excursion
-	    (set-buffer gnus-summary-buffer)
+	(if charset
+	  (progn
+	    (save-excursion
+	      (set-buffer gnus-summary-buffer)
+	      (make-local-variable 'default-mime-charset)
+	      (setq default-mime-charset charset))
 	    (make-local-variable 'default-mime-charset)
-	    (setq default-mime-charset charset)
-	    )
-	  (make-local-variable 'default-mime-charset)
-	  (setq default-mime-charset charset)
-	  ))))
+	    (setq default-mime-charset charset))
+	  (kill-local-variable 'default-mime-charset)))))
 
 
 ;;; @ end