From 22d1cfc10767a1d68e9189be3913069599b398fe Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Sun, 30 Aug 1998 16:47:40 +0000 Subject: [PATCH] (gnus-set-summary-default-charset): Add comment. (gnus-get-summary-default-charset): New function; not used yet. --- lisp/gnus-i18n.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/gnus-i18n.el b/lisp/gnus-i18n.el index b45b119..24142e5 100644 --- a/lisp/gnus-i18n.el +++ b/lisp/gnus-i18n.el @@ -62,6 +62,7 @@ newsgroup name. SYMBOL is MIME charset or coding-system.") "Set up `default-mime-charset' of summary buffer. It is specified by variable `gnus-newsgroup-default-charset-alist' \(cf. function `gnus-set-newsgroup-default-charset')." + ;; We are in `nntp-server-buffer' now. (if (buffer-live-p gnus-summary-buffer) (let* ((qgroup (save-excursion (set-buffer gnus-summary-buffer) @@ -84,13 +85,23 @@ It is specified by variable `gnus-newsgroup-default-charset-alist' (if charset (progn (save-excursion + ;; Set `default-mime-charset' in summary buffer. (set-buffer gnus-summary-buffer) (make-local-variable 'default-mime-charset) (setq default-mime-charset charset)) + ;; Also set `default-mime-charset' in current buffer. (make-local-variable 'default-mime-charset) (setq default-mime-charset charset)) + ;; Reset `default-mime-charset' in current buffer. (kill-local-variable 'default-mime-charset))))) +(defun gnus-get-summary-default-charset () + "Get the value of `default-mime-charset' from summary buffer." + (and (buffer-live-p gnus-summary-buffer) + (save-excursion + (set-buffer gnus-summary-buffer) + default-mime-charset))) + ;;; @ end ;;; -- 1.7.10.4