[mew-dist 24520] mew-pick-default-field 指定時の動作

[SHIGENO Kazutaka]

重野です。

Mew で mew-pick-default-field を指定すると、
? や / で行う pick のデフォルトの文字列として使われますが、
普段は mew-pick-define-macro で登録した macro を使い、
時々 mew-pick-default-field の定義を使いたい場合には、
この動作は使いにくいと思います。

最初に mew-pick-default-field の文字列を削除してから、
mew-pick-define-macro で定義した macro を入力する必要があります。

そこで "Pick pattern: " の入力で空文字列を入力した時に、
mew-pick-default-field 付きの "Pick pattern: " を表示する方が
感覚的に使いやすくなると思いますがどうでしょうか。

今までの動作と変わるので気に入らない人もいるかもしれませんが、
変数で動作を切替えるとか、mew-pick-default-field とは別の変数を
定義して空文字列入力の場合はそちらを使うとか、どうでしょうか。

以下は試しに書いてみたコードです。

--- mew-minibuf.el-	Wed Nov 12 09:22:44 2003
+++ mew-minibuf.el	Thu Feb  5 16:31:29 2004
@@ -653,12 +653,20 @@
   (let ((mew-input-complete-function 'mew-complete-pick-pattern)
 	(keymap (copy-keymap mew-input-map)))
     (define-key keymap " " nil)
-    (mew-pick-macro-expand-string
-     (read-from-minibuffer "Pick pattern: "
-			   mew-pick-default-field
-			   keymap
-			   nil
-			   'mew-input-pick-pattern-hist))))
+    (setq pick-pattern
+	  (read-from-minibuffer "Pick pattern: "
+				nil
+				keymap
+				nil
+				'mew-input-pick-pattern-hist))
+    (if (string= pick-pattern "")
+	(setq pick-pattern
+	  (read-from-minibuffer "Pick pattern: "
+				mew-pick-default-field
+				keymap
+				nil
+				'mew-input-pick-pattern-hist)))
+    (mew-pick-macro-expand-string pick-pattern)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;

-- shigeno