From: morioka <morioka>
Date: Mon, 12 Oct 1998 12:47:48 +0000 (+0000)
Subject: (gnus-summary-set-default-charset): New function.
X-Git-Tag: chaotzu-gnus-base~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5b0c04fdf6ecd5ca784646d9d24b98d95e4ef36f;p=elisp%2Fgnus.git-

(gnus-summary-set-default-charset): New function.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 77b13c8..d5a6c44 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6842,6 +6842,19 @@ If ARG is a positive number, turn MIME processing on."
 	  (> (prefix-numeric-value arg) 0)))
   (gnus-summary-select-article t 'force))
 
+(defun gnus-summary-set-default-charset (charset)
+  "Display the current article with MIME CHARSET."
+  (interactive
+   (list (completing-read "MIME-charset = "
+			  (mapcar (function
+				   (lambda (cs)
+				     (list (symbol-name cs))
+				     ))
+				  (mime-charset-list)))))
+  (let ((default-mime-charset charset))
+    (gnus-summary-select-article t 'force)
+    ))
+
 (defun gnus-summary-caesar-message (&optional arg)
   "Caesar rotate the current article by 13.
 The numerical prefix specifies how many places to rotate each letter