[Mew-dist 16696] Re: patch for flush-queue (was b110)

[Tatsuya Kinoshita]

In message "[Mew-dist 16689] b110"
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> - C-cC-c (in Summary) は、今いる queue のメッセージを 
>   mew-config-output が示すSMTP サーバにフラッシュします。

なるほど。プレビューからフラッシュへの動作が自然で、良さそうに思え
ます。

ところが、実際にはmew-config-outputが使われないようです。

> queue にいない場合は、デフォルトの +queue が対象になります。

caseごとにqueueを対応させることを考えると、queueにいない場合には、
"+queue"ではなく、mew-config-output(または入力したcase)が示すqueue 
を対象にしてほしい。

パッチを添付します。

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.

 Permission is granted to use, copy, distribute, and/or modify it 
 without restriction.  There is NO WARRANTY.

--- mew-1.95b110/mew-summary.el	Wed Feb 28 20:03:02 2001
+++ mew-1.95b110-tats20010301a/mew-summary.el	Thu Mar  1 16:13:06 2001
@@ -1942,13 +1942,15 @@
 you can set the sending case."
   (interactive "P")
   (let ((qfld (mew-summary-folder-name 'ext)) case)
+    (if arg
+	(setq case (mew-input-config mew-config-output "Queue"))
+      (setq case mew-config-output))
     (if (string-match mew-regex-queue-folder qfld)
 	(mew-window-configure 'summary)
-      (setq qfld (mew-queue-folder)))
+      (setq qfld (mew-queue-folder case)))
     (if (and mew-ask-flush-queue
 	     (not (y-or-n-p (concat "Flush " qfld  "? "))))
 	(message "The queue is not flushed.")
-      (if arg (setq case (mew-input-config mew-config-output "Queue")))
       (mew-smtp-flush-queue qfld case))))
 
 (provide 'mew-summary)