[Mew-dist 04686] CD & CDP

[Mito]

attachment で CD を消す事ができなくなっていました。
また、CD と CDP を設定する時は、デフォルトで、

1.既に設定してあればその値
2.設定されていなければファイル名
3.ファイル名が得られなければ ""

がいいと思います。

--- mew-attach.el	1998/05/13 10:40:15	1.1
+++ mew-attach.el	1998/05/13 11:06:50
@@ -548,11 +548,12 @@
       (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)))
+	   (ocd (or (mew-syntax-get-cd syntax) (mew-syntax-get-file 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: " ocd)))
+      (if (equal cd "")
+	  (mew-syntax-set-cd syntax nil)
+	(mew-syntax-set-cd syntax cd))
       (mew-encode-syntax-print mew-encode-syntax)
       )
     ))
@@ -563,9 +564,12 @@
   (if (not (mew-attach-not-line012-1-dot))
       (message "Can't set disposition here")
     (let* ((nums (mew-attach-nums))
-	   (syntax (mew-syntax-get-entry mew-encode-syntax nums)))
+	   (syntax (mew-syntax-get-entry mew-encode-syntax nums))
+	   (ocdp (or (mew-syntax-get-member (mew-syntax-get-cdp syntax)
+					    "filename")
+		     (mew-syntax-get-file syntax))))
       (if (null cdp)
-	  (setq cdp (read-string "Filename: " "")))
+	  (setq cdp (read-string "Filename: " ocdp)))
       (if (equal cdp "") (setq cdp nil)) ;; to clear
       (mew-syntax-set-cdp syntax (mew-syntax-cdp-format cdp))
       (mew-encode-syntax-print mew-encode-syntax)
-- 
5/13 20:10頃
NECソフトウェア新潟 水戸
mailto:mit at example.com \n