;;;
(defvar gnus-newsgroup-default-charset-alist
- '(("^\\(fj\\|tnn\\|japan\\)\\." . iso-2022-jp-2)
- ("^han\\." . euc-kr)
- ("^relcom\\." . koi8-r)
- ("^alt\\.chinese\\.text\\.big5" . cn-big5)
- ("^hk\\(star\\)?\\." . cn-big5)
- ("^tw\\." . cn-big5)
- ("^alt\\.chinese" . hz-gb-2312)
+ '(("\\(^\\|:\\)\\(fj\\|tnn\\|japan\\)\\." . iso-2022-jp-2)
+ ("\\(^\\|:\\)han\\." . euc-kr)
+ ("\\(^\\|:\\)relcom\\." . koi8-r)
+ ("\\(^\\|:\\)alt\\.chinese\\.text\\.big5" . cn-big5)
+ ("\\(^\\|:\\)hk\\(star\\)?\\." . cn-big5)
+ ("\\(^\\|:\\)tw\\." . cn-big5)
+ ("\\(^\\|:\\)alt\\.chinese" . hz-gb-2312)
)
"Alist of newsgroup patterns vs. corresponding default MIME charset.
Each element looks like (REGEXP . SYMBOL). REGEXP is pattern for
))
(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