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