Synch up with main trunk, and prepare the release 2.12.0.
[elisp/wanderlust.git] / wl / wl-util.el
index c4f8c26..a1820d4 100644 (file)
@@ -579,12 +579,14 @@ that `read' can handle, whenever this is possible."
     result))
 
 (defun wl-save-drafts ()
-  (let ((buffers (wl-collect-draft)))
+  (let ((msg (current-message))
+       (buffers (wl-collect-draft)))
     (save-excursion
       (while buffers
        (set-buffer (car buffers))
        (if (buffer-modified-p) (wl-draft-save))
-       (setq buffers (cdr buffers))))))
+       (setq buffers (cdr buffers))))
+    (message msg)))
 
 (static-if (fboundp 'read-directory-name)
     (defun wl-read-directory-name (prompt dir)
@@ -724,7 +726,7 @@ that `read' can handle, whenever this is possible."
     (if (numberp wl-auto-save-drafts-interval)
        (unless (get-itimer wl-save-drafts-timer-name)
          (start-itimer wl-save-drafts-timer-name 'wl-save-drafts
-                       wl-save-drafts-interval wl-save-drafts-interval
+                       wl-auto-save-drafts-interval wl-auto-save-drafts-interval
                        t))
       (when (get-itimer wl-save-drafts-timer-name)
        (delete-itimer wl-save-drafts-timer-name)))))
@@ -912,7 +914,7 @@ This function is imported from Emacs 20.7."
 
 (defun wl-biff-check-folder-async (folder notify-minibuf)
   (if (and (elmo-folder-plugged-p folder)
-          (elmo-folder-exists-p folder))
+          (wl-folder-entity-exists-p (elmo-folder-name-internal folder)))
       (progn
        (elmo-folder-set-biff-internal folder t)
        (if (and (eq (elmo-folder-type-internal folder) 'imap4)