X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-i18n.el;h=24142e5635f9581e681ba7ba7cc74a63bc4e438a;hb=8af3cd3e1219eee8d13bfc4333ade60754aa3ee3;hp=b45b119cbad83f0d1b09181f83ad67e906e1ee00;hpb=adafa7e40194bcb87937e4c64b6cb76a7d980041;p=elisp%2Fgnus.git-

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
 ;;;