[Mew-dist 04247] clear CD and CDP

[Mito]

CD や CDP を一度設定すると消すことができません。
添付のdiffのように修正して解決したのですが、

------------------------------ attachments ------------------------------
      Multipart/Mixed                                           1/
     1  Text/Plain(guess)                                         CoverPage

の "CoverPage" とかが表示される部分は CDP が設定されていれば
CDP、設定されていなければファイル名が表示されてしまうため、
CDP を消しても、ファイル名が表示されてしまいます。

提案だけですみませんが、"CoverPage" のフィールドにはファイル
名でなく CDP だけを表示するようにしませんか？
＃ mew-syntax.el をちょっといじってみたんですが、私の手には
＃ 負えなかったです。(;_;)
-- 
3/20 11:24頃
NECソフトウェア新潟  水戸
mailto:mit at example.com \n

-------------- next part --------------
--- mew-attach.el	1998/03/20 00:03:06	1.1
+++ mew-attach.el	1998/03/20 01:52:00
@@ -545,11 +545,13 @@
       (message "Can't describe here")
     (let* ((nums (mew-attach-nums))
 	   (syntax (mew-syntax-get-entry mew-encode-syntax nums))
-	   (file (mew-syntax-get-file syntax)))
+	   (file (mew-syntax-get-file syntax))
+	   (ocd (mew-syntax-get-cd syntax)))
       (if (null cd)
-	  (setq cd (read-string (format "Description (%s): " file) "")))
-      (if (equal cd "") (setq cd file))
-      (mew-syntax-set-cd syntax cd)
+	  (setq cd (read-string "Description: " (or ocd file))))
+      (if (equal cd "")
+	  (mew-syntax-set-cd syntax nil)
+	(mew-syntax-set-cd syntax cd))
       (mew-encode-syntax-print mew-encode-syntax)
       )
     ))
@@ -561,12 +563,15 @@
       (message "Can't set disposition here")
     (let* ((nums (mew-attach-nums))
 	   (syntax (mew-syntax-get-entry mew-encode-syntax nums))
-	   (file (mew-syntax-get-file syntax)))
+	   (file (mew-syntax-get-file syntax))
+	   (ocdp (mew-syntax-get-cdp syntax))
+	   (ocdpl (mew-syntax-get-member ocdp "filename")))
       (if (null cdp)
-	  (setq cdp (read-string (format "Filename (%s): " file) "")))
-      (if (equal cdp "") (setq cdp file))
-      (mew-syntax-set-cdp syntax 
-			  (list "attachment" (format "filename=%s" cdp)))
+	  (setq cdp (read-string "Filename: " (or ocdpl file))))
+      (if (equal cdp "")
+	  (mew-syntax-set-cdp syntax nil)
+	(mew-syntax-set-cdp syntax 
+			    (list "attachment" (format "filename=%s" cdp))))
       (mew-encode-syntax-print mew-encode-syntax)
       )
     ))