[Mew-dist 04453] default field in picking up

[Gorochan ^o^]

國頭です。

ある mew user から pick up するのはほとんど From= だけなので、毎回 
From= を入力するのは面倒だ、といわれました。
過去ログを検索したのですがちょっと見当たらなかったので、簡単なpatch を
作ってみました。

新たな変数 mew-pick-default-field を作り、たとえば
(setq mew-pick-default-field "From=")
としておき、もし pattern の入力で = が無かった場合には pattern の前に
この変数の値を付けるようにしてみました。

mew-vars.el のどこに置けばいいのかわからなかったので、とりあえず 
Summary mode のところに追加しました。
また、プロンプトへの表示はちょっとわからなかったのでやってません。_o_

mew-1.93b27 へのパッチです。

  ====================================================================
|| 國頭 吾郎 (Goro Kunito) Tel 03-3812-2111 or 03-3814-4251(ext.6761) ||
||   東京大学工学系研究科電子情報工学専攻  羽鳥・相澤研究室 博士２年  ||
||                E-mail : kunito at example.com                 ||
  ====================================================================

-------------- next part --------------
--- dist/mew-pick.el	Wed Feb 25 00:05:01 1998
+++ ./mew-pick.el	Tue Apr 21 21:15:43 1998
@@ -20,6 +20,8 @@
     (if (null (file-directory-p (mew-expand-folder folder)))
 	(message "No such folder %s" folder)
       (setq pattern (mew-read-pick-pattern))
+      (if (not (string-match "=" pattern))
+	  (setq pattern (concat mew-pick-default-field pattern)))
       (message "Picking messages in %s ..." folder)
       (setq range (mew-summary-pick folder pattern))
       (message "Picking messages in %s ... done" folder)
@@ -52,6 +54,8 @@
 	  (last nil)
 	  (range nil))
       (setq pattern (mew-read-pick-pattern))
+      (if (not (string-match "=" pattern))
+	  (setq pattern (concat mew-pick-default-field pattern)))
       (message "Picking messages in %s ..." folder)
       (goto-char r1)
       (if (eobp)
-------------- next part --------------
--- dist/mew-vars.el	Tue Apr  7 17:24:51 1998
+++ ./mew-vars.el	Tue Apr 21 21:18:21 1998
@@ -389,6 +389,9 @@
 (defvar mew-save-dir mew-home
   "The default directory to save messages or parts in Summary mode.")
 
+(defvar mew-pick-default-field nil
+  "*The default field to pick up")
+
 ;;
 ;; Message mode
 ;;