[Mew-dist 14954] patch for summary-flush-queue

[Tatsuya Kinoshita]

複数のSMTPサーバを利用している場合、+queue以下のフォルダそれぞれ
について、メッセージを確認・送信したいことがあります。そのための
パッチを作りました。

このパッチを適用すると、たとえば+queue/smtp.sv2.ne.jpのサマリに移っ
てからC-u C-c C-cとすると、+queue/smtp.sv2.ne.jpにあるメッセージ
だけが送信され、+queue, +queue/smtp.sv3.ne.jpなど、ほかのフォルダ
はフラッシュされなくなります。

C-c C-cなら、従来どおり、+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.

diff -ur mew-1.95b78/mew-summary.el mew-1.95b78-tats20001121/mew-summary.el
--- mew-1.95b78/mew-summary.el	Mon Nov 20 22:06:03 2000
+++ mew-1.95b78-tats20001121/mew-summary.el	Tue Nov 21 00:03:42 2000
@@ -2153,21 +2153,26 @@
 ;;; Flushing the queue
 ;;;
 
-(defun mew-summary-send-message ()
-  (interactive)
-  (cond
-   ((string-match (mew-folder-regex mew-queue-folder)
-		  (mew-summary-folder-name))
-    (mew-window-configure 'summary)
-    (mew-summary-flush-queue))
-   (t
-    (mew-summary-flush-queue))))
+(defun mew-summary-send-message (&optional arg)
+  (interactive "P")
+  (let ((fld (mew-summary-folder-name)))
+    (cond
+     ((string-match (mew-folder-regex mew-queue-folder) fld)
+      (mew-window-configure 'summary)
+      (if arg
+	  (mew-summary-flush-queue fld)
+	(mew-summary-flush-queue)))
+     (t
+      (mew-summary-flush-queue)))))
 
-(defun mew-summary-flush-queue ()
+(defun mew-summary-flush-queue (&optional qfld)
   "Flush the mail queue explicitly."
-  (if (and mew-ask-flush-queue (not (y-or-n-p "Flush queue? ")))
+  (if (and mew-ask-flush-queue
+	   (not (y-or-n-p (concat "Flush " (or qfld "queue") "? "))))
       (message "The queue is not flushed.")
-    (mew-smtp-flush)))
+    (if qfld
+	(mew-smtp-flush-queue qfld)
+      (mew-smtp-flush))))
 
 (provide 'mew-summary)