[Mew-dist 10989] Re: 8bit clean and queue

[Takashi P.KATOH]

From: Shigeya Suzuki <shigeya at example.com>
Subject: [Mew-dist 10969] Re: 8bit clean and queue
> 私の使い方では、queue ってのは、「ユーザのコントロールはなれて送信待ち」
> で、draft は、「ユーザのコントロール下の送信待ち」なので、ちょっと違う
> わけです。

これ、私も全く同様です。


んで、本題とはあんまり関係ないんですが、
mew-summary-flush-queue する前に確認して欲しいです。

以前間違って Summary mode で、x のつもりで C-cC-c してしまい、
ものすごくドキドキしました。
# queue に何もなかったので問題なかったのですが。

ということで、patches for 1.95b3 です。

-- 
かとぺ / 加藤 貴司
-------------- next part --------------
--- mew-summary.el.orig	Fri Oct 15 15:57:01 1999
+++ mew-summary.el	Tue Oct 19 15:30:41 1999
@@ -2042,7 +2042,8 @@
 (defun mew-summary-flush-queue ()
   "Flush the mail queue explicitly."
   (interactive)
-  (mew-im-call-process-no-output "Sending message" mew-prog-imput "-q"))
+  (if (or (not mew-ask-flush-queue) (y-or-n-p "Flush queue? "))
+      (mew-im-call-process-no-output "Sending message" mew-prog-imput "-q")))
 
 (provide 'mew-summary)
 
--- mew-vars.el.orig	Fri Oct 15 15:57:01 1999
+++ mew-vars.el	Tue Oct 19 15:30:41 1999
@@ -919,6 +919,9 @@
   "*If *non-nil*, ask whether or not you really want to send the message
 which you composed without explicit C-cC-m.")
 
+(defvar mew-ask-flush-queue nil
+  "*If *non-nil*, ask whether or not you really want to flush queue.")
+
 ;;
 ;; Field Magic
 ;;