From: teranisi <teranisi>
Date: Mon, 1 Oct 2001 08:44:02 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-queue-flush): Call elmo-folder-open-internal
X-Git-Tag: wl-2_7_5~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=460481fd3a94c39933758d4458350df3980147d1;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-queue-flush): Call elmo-folder-open-internal
and elmo-folder-close.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 558616c..909cc79 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2001-10-01  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-draft.el (wl-draft-queue-flush): Call elmo-folder-open-internal
+	and elmo-folder-close.
+
 	* wl.el (wl): Call `wl-check-environment' before `wl-plugged-init'.
 
 2001-09-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 659ead0..debb596 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1800,7 +1800,9 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
   "Flush draft queue."
   (interactive)
   (let* ((queue-folder (wl-folder-get-elmo-folder wl-queue-folder))
-	 (msgs2 (elmo-folder-list-messages queue-folder))
+	 (msgs2 (progn
+		  (elmo-folder-open-internal queue-folder)
+		  (elmo-folder-list-messages queue-folder)))
 	 (i 0)
 	 (performed 0)
 	 (wl-draft-queue-flushing t)
@@ -1859,6 +1861,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 	      (kill-buffer buffer)
 	      (message "%d message(s) are sent." performed)))
 	(message "%d message(s) are remained to be sent." len))
+      (elmo-folder-close queue-folder)
       len)))
 
 (defun wl-jump-to-draft-buffer (&optional arg)