From 1d82476669e210764486ca5162aa1eb3ae7c52dc Mon Sep 17 00:00:00 2001 From: akr Date: Sun, 22 Mar 1998 18:52:18 +0000 Subject: [PATCH] (gnus-set-summary-default-charset): Delete buffer-local binding of `default-mime-charset' when the newsgroup doesn't match `gnus-newsgroup-default-charset-alist'. --- lisp/gnus-i18n.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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 -- 1.7.10.4