* 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 (file)
--- 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 (file)
--- 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)