From 5b0c04fdf6ecd5ca784646d9d24b98d95e4ef36f Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 12 Oct 1998 12:47:48 +0000 Subject: [PATCH] (gnus-summary-set-default-charset): New function. --- lisp/gnus-sum.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) 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 -- 1.7.10.4