[Mew-dist 14903] Re: config problem

[Tatsuya Kinoshita]

ドラフトモードで既存のcaseを編集可能にするパッチを作りました。

caseの「新規入力」「推測」「編集」について、1.94.2では、「新規入
力」はヘッダのConfigフィールドを入力、「推測」はC-c C-o、「編集」
はConfigフィールドを編集、という方法で可能でした。

1.95b76では、「新規入力」はC-c C-o case RETで入力できます。しかし、
「推測」と「編集」はできません。

[Mew-dist 14882]のパッチを当てると、「推測」はC-c C-o RETで可能に
なりますが、「編集」はできず、C-c C-oに続けて入力し直すことになり
ます。

添付のパッチを当てると、C-u C-c C-oでcaseを「編集」できるようにな
ります。[Mew-dist 14874]と[Mew-dist 14882]への追加パッチです。

たとえば、既存のcaseが"case1,case2"で、それに"case3"を追加して
"case1,case2,case3"としたい、というふうな場合に有用だと思います。

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------
 This patch is written by Tatsuya Kinoshita.

 Permission is granted to use, copy, distribute and/or modify it 
 without restriction.  There is NO WARRANTY.

diff -ur mew-1.95b76-mew-dist-14882/mew-config.el mew-1.95b76-tats20001116/mew-config.el
--- mew-1.95b76-mew-dist-14882/mew-config.el	Wed Nov 15 23:51:36 2000
+++ mew-1.95b76-tats20001116/mew-config.el	Thu Nov 16 19:21:33 2000
@@ -259,11 +259,14 @@
   (interactive "P")
   (let ((old-config mew-draft-buffer-config))
     (setq mew-draft-buffer-config
-	  (mew-input-config
-	   (if arg
-	       mew-config-output
-	     (or (mew-draft-get-config-by-guess) mew-config-output))
-	   "This draft"))
+	  (if arg
+	      (mew-input-config
+	       mew-draft-buffer-config
+	       "This draft"
+	       'edit)
+	    (mew-input-config
+	     (or (mew-draft-get-config-by-guess) mew-config-output)
+	     "This draft")))
     (mew-draft-mode-name mew-header-message)
     (save-excursion
       (goto-char (point-min))
diff -ur mew-1.95b76-mew-dist-14882/mew-minibuf.el mew-1.95b76-tats20001116/mew-minibuf.el
--- mew-1.95b76-mew-dist-14882/mew-minibuf.el	Thu Nov 16 19:38:24 2000
+++ mew-1.95b76-tats20001116/mew-minibuf.el	Thu Nov 16 19:00:52 2000
@@ -374,18 +374,22 @@
           nil)
       t)))
 
-(defun mew-input-config (default msg)
+(defun mew-input-config (default msg &optional edit)
   (let (config lst ret)
     (if (null default) (setq default mew-config-default))
     (mew-input-clear)
     (setq mew-input-complete-function (function mew-complete-config))
     (let ((mew-exit-minibuffer-function (function mew-check-config))
           (mew-input-comma-function (function mew-check-config)))
-      (setq config (read-from-minibuffer
-                    (format "%s config value (%s): " msg default)
-                    ""
-                    mew-input-map))
-      )
+      (setq config (if edit
+		       (read-from-minibuffer
+			(format "%s config value: " msg)
+			default
+			mew-input-map)
+		     (read-from-minibuffer
+		      (format "%s config value (%s): " msg default)
+		      ""
+		      mew-input-map))))
     (if (string= config "")
 	default
       (setq lst (mew-split config ?,))