(require 'smtp)
(require 'wl-score)
(require 'wl-fldmgr)
- (require 'wl-mime))
+ (require 'wl-mime)
+ (require 'wl-spam))
(defun wl-plugged-init (&optional make-alist)
(setq elmo-plugged wl-plugged)
(progn
;; flush queue!!
(elmo-dop-queue-flush)
- (unless queue-flush-only (wl-biff-start))
+ (unless queue-flush-only
+ (when wl-biff-check-folder-list
+ (wl-biff-check-folders)
+ (wl-biff-start)))
(if (and wl-draft-enable-queuing
wl-auto-flush-queue)
(wl-draft-queue-flush))
(wl-save-status 'keep-summary)
(run-hooks 'wl-save-hook))
+(defun wl-execute-temp-marks ()
+ "Execute temporary marks in summary buffers."
+ (interactive)
+ (let ((summaries (wl-collect-summary)))
+ (while summaries
+ (with-current-buffer (car summaries)
+ (wl-summary-exec-with-confirmation)
+ (wl-summary-save-status))
+ (setq summaries (cdr summaries)))))
+
(defun wl-save-status (&optional keep-summary)
(message "Saving summary and folder status...")
- (let (summary-buf)
- (save-excursion
- (let ((summaries (wl-collect-summary)))
- (while summaries
- (with-current-buffer (car summaries)
- (unless keep-summary
- (wl-summary-cleanup-temp-marks))
- (wl-summary-save-view)
- (elmo-folder-commit wl-summary-buffer-elmo-folder)
- (unless keep-summary
- (kill-buffer (car summaries))))
- (setq summaries (cdr summaries))))))
+ (save-excursion
+ (let ((summaries (wl-collect-summary)))
+ (while summaries
+ (with-current-buffer (car summaries)
+ (unless keep-summary
+ (wl-summary-cleanup-temp-marks))
+ (wl-summary-save-view)
+ (elmo-folder-commit wl-summary-buffer-elmo-folder)
+ (unless keep-summary
+ (kill-buffer (car summaries))))
+ (setq summaries (cdr summaries)))))
(wl-refile-alist-save)
(wl-folder-info-save)
(and (featurep 'wl-fldmgr) (wl-fldmgr-exit))
+ (and (featurep 'wl-spam) (wl-spam-save-status))
(elmo-crosspost-message-alist-save)
(message "Saving summary and folder status...done"))
(elmo-quit)
(when wl-use-acap (funcall (symbol-function 'wl-acap-exit)))
(wl-biff-stop)
+ (elmo-clear-signal-slots)
(run-hooks 'wl-exit-hook)
(wl-save-status)
(wl-folder-cleanup-variables)
;; (delete-frame))
(setq wl-init nil)
(remove-hook 'kill-emacs-hook 'wl-save-status)
+ (elmo-passwd-alist-clear)
t)
(message "") ; empty minibuffer.
)
(fset 'wl-summary-subject-filter-func-internal
(symbol-value 'wl-summary-subject-filter-function))
(wl-summary-define-mark-action)
+ (dolist (spec wl-summary-flag-alist)
+ (set-face-foreground
+ (make-face (intern
+ (format "wl-highlight-summary-%s-flag-face" (car spec))))
+ (nth 1 spec)))
+ (setq elmo-get-folder-function #'wl-folder-make-elmo-folder)
(setq elmo-no-from wl-summary-no-from-message)
(setq elmo-no-subject wl-summary-no-subject-message)
+ (elmo-global-flags-initialize (mapcar 'car wl-summary-flag-alist))
+ (elmo-connect-signal
+ nil
+ 'message-number-changed
+ 'wl-draft
+ (elmo-define-signal-handler (listener folder old-number new-number)
+ (dolist (buffer (wl-collect-draft))
+ (with-current-buffer buffer
+ (wl-draft-buffer-change-number old-number new-number)))
+ (wl-draft-rename-saved-config old-number new-number))
+ (elmo-define-signal-filter (listener folder old-number new-number)
+ (and folder
+ (string= (elmo-folder-name-internal folder) wl-draft-folder))))
(wl-news-check)
(setq wl-init t)
;; This hook may contain the functions `wl-plugged-init-icons' and
(queue-folder (wl-folder-get-elmo-folder wl-queue-folder))
(lost+found-folder (wl-folder-get-elmo-folder
elmo-lost+found-folder)))
- (if (not (elmo-folder-message-file-p draft-folder))
- (error "%s is not allowed for draft folder" wl-draft-folder))
(unless (elmo-folder-exists-p draft-folder)
(if (y-or-n-p
(format "Draft Folder %s does not exist, create it? "
(interactive "P")
(unless wl-init
(wl-load-profile)
- (wl-folder-init)
(elmo-init))
(let (demo-buf check)
(unless wl-init
(wl-check-variables-2)
(message "Checking type of variables...done")))
(let ((inhibit-quit t))
- (wl-plugged-init (wl-folder arg)))
+ (wl-plugged-init (wl-folder)))
(unless arg
(run-hooks 'wl-auto-check-folder-pre-hook)
(wl-folder-auto-check)
- (run-hooks 'wl-auto-check-folder-hook))
- (unless arg (wl-biff-start)))
+ (run-hooks 'wl-auto-check-folder-hook)))
(error
(if (buffer-live-p demo-buf)
(kill-buffer demo-buf))
(signal (car obj)(cdr obj)))
(quit))
+ (when wl-biff-check-folder-list
+ (unless arg (wl-biff-check-folders))
+ (wl-biff-start))
(if (buffer-live-p demo-buf)
(kill-buffer demo-buf)))
(run-hooks 'wl-hook))
wl-score-change-score-file wl-score-edit-current-scores
wl-score-edit-file wl-score-flush-cache wl-summary-rescore
wl-score-set-mark-below wl-score-set-expunge-below
- wl-summary-increase-score wl-summary-lower-score ))))
+ wl-summary-increase-score wl-summary-lower-score )
+ ("wl-draft" wl-draft-rename-saved-config))))
;; for backward compatibility
(defalias 'wl-summary-from-func-petname 'wl-summary-default-from)