[Mew-dist 05823] Encoding of multipart

[Atsushi Nemoto ( 根本 篤志 )]

b51 からサマリバッファで現在表示しているメッセージの行に ">" が表示さ
れるようになりましたが、マルチパートの時に "B" とか "X" のマークが隠れ
てしまいます。

今まで、「Application/Octet-Stream で "X" だったら uuencode だろう」と
思って @ M-t していたのでちょっと不便です。

ということで、以下のようなパッチを作ってみました。
花文字(PROGRAMとかBINARY)の下の表示に Encoding を追加します。

---
根本 篤志 (Atsushi Nemoto)
E-Mail: anemo at example.com (Home)
E-Mail: nemoto at example.com (Office)
-------------- next part --------------
--- org/mew-mime.el	Sat Aug 01 01:42:23 1998
+++ mew-mime.el	Wed Aug 05 11:30:04 1998
@@ -92,6 +92,7 @@
 	 (begin   (mew-syntax-get-begin syntax))
 	 (end     (mew-syntax-get-end   syntax))
 	 (ctl     (mew-syntax-get-ct    syntax))
+	 (cte     (mew-syntax-get-cte   syntax))
 	 (ct      (car ctl))
 	 (cdpl    (mew-syntax-get-cdp syntax))
 	 (fname   (and cdpl (mew-syntax-get-member cdpl "filename")))
@@ -111,7 +112,7 @@
 	     ((eq program 'mew-mime-external-body)
 	      (funcall program begin end params execute))
 	     ((eq program 'mew-mime-application/octet-stream)
-	      (funcall program begin end params ct))
+	      (funcall program begin end params ct cte))
 	     (t
 	      (funcall program begin end params))))
       (insert " ######  ######  #######  #####  ######     #    #     #\n"
@@ -123,6 +124,7 @@
 	      " #       #     # #######  #####  #     # #     # #     #\n"
 	      "\n\n")
       (mew-insert "Content-Type:\t%s\n" ct)
+      (mew-insert "Encoding: \t%s\n" cte)
       (mew-insert "Size:\t\t%d bytes\n" (- end begin))
       (mew-insert "Filename:\t%s\n" fname)
       (mew-insert "Description: \t%s\n" cd)
@@ -292,7 +294,7 @@
 		   (end     (mew-syntax-get-end   syntax)))
 	      (mew-mime-text/plain begin end))))))))
 
-(defun mew-mime-application/octet-stream (begin end &optional params ct)
+(defun mew-mime-application/octet-stream (begin end &optional params ct cte)
   (let ((size (- end begin))
 	(buffer-read-only nil))
     (insert " ######    ###   #     #    #    ######  #     #\n"
@@ -304,6 +306,7 @@
 	    " ######    ###   #     # #     # #     #    #\n"
 	    "\n\n")
     (mew-insert "Content-Type:\t%s\n" ct)
+    (mew-insert "Encoding: \t%s\n" cte)
     (and params (insert (format "Parameters:\t%s\n"
 				(mapconcat (function mew-header-sanity-check)
 					   params "; "))))