From: shuhei-k Date: Sun, 23 Aug 1998 05:45:49 +0000 (+0000) Subject: (gnus-set-summary-default-charset): Sync up with "akr" branch. X-Git-Tag: gnus-6_8_16~13 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f440daf31dc4cdb99bd93eb1d7aff99435e5d833;p=elisp%2Fgnus.git- (gnus-set-summary-default-charset): Sync up with "akr" branch. --- diff --git a/lisp/gnus-i18n.el b/lisp/gnus-i18n.el index 3737fb9..78eeb03 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) - (make-local-variable 'default-mime-charset) - (setq default-mime-charset charset) - ) - (make-local-variable 'default-mime-charset) - (setq default-mime-charset charset) - )))) + (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)) + (kill-local-variable 'default-mime-charset))))) ;;; @ end