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