[Mew-dist 04184] Re: Filename from CT:

[Shun-ichi GOTO]

>>>>> From: Kazu Yamamoto (山本和彦) <Kazu at example.com>
> 残念ながらこのパッチは採用できません。

では、せめてこれだけでも。。。
せっかくファイル名が見えるようになったのに、その表示幅が狭くて
見えないってのは、残念ですので。
Content-Description:も同様。

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN


-------------- next part --------------
--- mew-1.93b24.orig\mew-summary.el	Mon Mar 10 21:38:58 1997
+++ mew-1.93b24/mew-summary.el	Fri Mar 13 10:21:00 1998
@@ -801,6 +801,9 @@
 	 (end     (mew-syntax-get-end    syntax))
 	 (ctl     (mew-syntax-get-ct syntax))
 	 (ct      (car ctl))
+	 (cdpl    (mew-syntax-get-cdp syntax))
+	 (fname   (and cdpl (mew-syntax-get-member cdpl "filename")))
+	 (cd      (mew-syntax-get-cd syntax))
 	 (params  (cdr ctl))
 	 (attr    (mew-attr-by-ct ct))
 	 (program (mew-attr-get-prog attr))
@@ -846,7 +849,9 @@
 		  "#       #     # #######  #####  #     # #     # #     #\n"
 		  "\n\n")
 	  (insert (format "Content-Type:\t%s\n" ct))
-	  (insert (format "Size:\t\t%dbytes\n" (- end begin)))
+	  (insert (format "Size:\t\t%d bytes\n" (- end begin)))
+	  (if fname (insert (format "Filename:\t%s\n" fname)))
+	  (if cd    (insert (format "Description: \t%s\n" cd)))
 	  (insert (format "Program:\t%s\n" program))
 	  (if (not execute)
 	      (progn