[mew-dist 24267] mew-summary-pipe-message の確認メッセージ

[HIRATA Tadashi]

NRI の平田と申します。

  最近、わけあって mew-summary-pipe-message を多用しています。

  mew-summary-pipe-message が last-shell-command を覚えてい
てくれて毎回コマンドを入力する必要がないのは有難いのですが、
最近、その後の "Send this message to pipe?" に答えるのが面倒
臭く感じられるようになってきました。

  コマンド入力のところでユーザの意志を一度確認しているにもか
かわらず、(そのコマンド名を画面から消した上で)もう一度意志を
確認するのは無意味な気がします。
  この確認メッセージの有無はユーザがカスタマイズできるように
なりませんでしょうか

  たとえば、こんな感じになればいいなと思っています(patch は
mew 4.0.61 用)。

--- mew-summary4.el.org	Tue Nov 18 16:25:45 2003
+++ mew-summary4.el	Mon Dec 22 09:12:57 2003
@@ -14,6 +14,7 @@
 
 (defvar mew-summary-inbox-position (make-marker))
 (defvar mew-last-shell-command "")
+(defvar mew-confirm-pipe-message t)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
@@ -288,7 +289,8 @@
    (list current-prefix-arg 
 	 (read-string "Shell command on message: " mew-last-shell-command)))
   (mew-summary-display 'redisplay)
-  (when (y-or-n-p "Send this message to pipe? ")
+  (when (or (not mew-confirm-pipe-message) 
+            (y-or-n-p "Send this message to pipe? "))
     (save-excursion
       (set-buffer (mew-buffer-message))
       (save-restriction

-----
HIRATA Tadashi (平田 正)
heita at example.com