[mew-dist 24595] Re: spamcを使ってSPAMメールに D マークを付けたい

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20040216.182932.127351092.kazu at example.com>
  Date:       Mon, 16 Feb 2004 18:29:32 +0900 (JST)
  From:       Kazu Yamamoto (山本和彦) <kazu at example.com>
  Subject:    [mew-dist 24594] Re: spamcを使ってSPAMメールに D マーク..

  | > クオートしたいときもあるとおもうので
  | > 面倒なことはシェルにまかせておくのがいいとおもいます。
  | 
  | とりあえず、実装してみました。'"' では指定したコマンド(+オプション)がシェ
  | ル経由で起動されます。どうでしょう？

調子にのってhistoryを追加してみました。

Index: mew-minibuf.el
===================================================================
RCS file: /cvsmew/mew/mew-minibuf.el,v
retrieving revision 1.109
diff -u -r1.109 mew-minibuf.el
--- mew-minibuf.el	12 Nov 2003 00:22:44 -0000	1.109
+++ mew-minibuf.el	16 Feb 2004 15:51:43 -0000
@@ -665,8 +665,12 @@
 ;;; Grep pattern
 ;;;
 
+(defvar mew-input-grep-pattern-hist nil)
+
 (defun mew-input-grep-pattern ()
-  (read-string "Grep pattern: "))
+  (read-string "Grep pattern: "
+               (car-safe mew-input-grep-pattern-hist)
+               'mew-input-grep-pattern-hist))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
Index: mew-pick.el
===================================================================
RCS file: /cvsmew/mew/mew-pick.el,v
retrieving revision 1.33
diff -u -r1.33 mew-pick.el
--- mew-pick.el	16 Feb 2004 09:29:13 -0000	1.33
+++ mew-pick.el	16 Feb 2004 15:51:43 -0000
@@ -40,6 +40,8 @@
 	 (mew-summary-pick-body func arg nil)
        (message "No command")))))
 
+(defvar mew-input-cmd-hist (list mew-prog-grep))
+
 (defun mew-summary-cmd-mark (&optional arg)
   "Grep messages according to a grep pattern which you input,
 then put the '*' mark onto them. You can asked to specify a grep
@@ -48,7 +50,9 @@
   (interactive "P")
   (mew-summary-or-thread
    (let ((func 'mew-summary-pick-with-cmd)
-	 (mew-inherit-grep-cmd (read-string "Grep command: ")))
+	 (mew-inherit-grep-cmd (read-string "Grep command: "
+                                            (car-safe mew-input-cmd-hist)
+                                            'mew-input-cmd-hist)))
      (mew-summary-pick-body func arg nil))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

--
鯉江英隆 <hide at example.com>