[Mew-dist 04934] mew-summary-convert-local-cs

[SAKAI Kiyotaka]

C-cC-l (mew-summary-convert-local-cs) を実行すると、バッファ内を 
local の文字セットに漢字変換できますが、時にはそれ以外のコードに
変換したいことがあります。(sjis のメールを base64 化して、
Content-Type: application/octet-stream で送り付けられた場合など。)

そこで以下のパッチのように、prefix-argument を指定して C-cC-l した
ら漢字コードを聞いてくるようにしたら、そのような場合にも対応できる
かと思うのですが、どうでしょうか。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.1
diff -u -r1.1 mew-summary.el
--- mew-summary.el	1998/05/28 08:56:09	1.1
+++ mew-summary.el	1998/05/28 09:01:55
@@ -1791,9 +1791,12 @@
      )
     ))
 
-(defun mew-summary-convert-local-cs ()
+(defun mew-summary-convert-local-cs (&optional code)
   "Convert to character sets used locally."
-  (interactive)
+  (interactive
+   (list
+    (and mew-mule-p current-prefix-arg
+         (read-coding-system "Coding-system: "))))
   (if mew-mule-p
       (save-excursion
 	(set-buffer (mew-buffer-message))
@@ -1804,7 +1807,8 @@
 	      (forward-line)
 	      ))
 	(let ((buffer-read-only nil))
-	  (mew-cs-decode-region (point) (point-max) mew-cs-rfc822-trans)
+	  (mew-cs-decode-region (point) (point-max)
+				(if code code mew-cs-rfc822-trans))
 	  )
 	))
   )