Append this value to `wl-summary-mark-action-list' by `wl-spam-setup'.
See `wl-summary-mark-action-list' for the detail of element."
- :type '(repeat (string :tag "Temporary mark")
- (symbol :tag "Set mark function")
- (symbol :tag "Unset mark function")
- (symbol :tag "Exec function")
- (symbol :tag "Face symbol")
- (string :tag "Document string"))
+ :type '(repeat (list
+ (string :tag "Temporary mark")
+ (symbol :tag "Action name")
+ (symbol :tag "Argument function")
+ (symbol :tag "Set mark function")
+ (symbol :tag "Exec function")
+ (symbol :tag "Face symbol")
+ (string :tag "Document string")))
:group 'wl-spam)
(defun wl-spam-domain (folder-name)
(spam (setq spam-list nil))
(good (setq good-list nil)))
(when (or spam-list good-list)
- (setq total (+ (length spam-list) (length good-list)))
(when spam-list
+ (setq total (length spam-list))
(message "Registering spam...")
(elmo-with-progress-display (> total elmo-display-progress-threshold)
(elmo-spam-register total "Registering spam...")
(eq domain 'good)))
(message "Registering spam...done"))
(when good-list
+ (setq total (length good-list))
(message "Registering good...")
(elmo-with-progress-display (> total elmo-display-progress-threshold)
(elmo-spam-register total "Registering good...")
(number wl-message-buffer-cur-number)
spam)
(message "Cheking spam...")
- (when (elmo-spam-buffer-spam-p (elmo-spam-processor) original)
+ (when (setq spam (elmo-spam-buffer-spam-p (elmo-spam-processor) original))
(with-current-buffer wl-message-buffer-cur-summary-buffer
(wl-summary-spam number)))
(message "Cheking spam...done")
- (when (interactive-p)
- (message "No: %d is %sa spam message." number (if spam "" "not ")))))
+ (message "No: %d is %sa spam message." number (if spam "" "not "))))
(defun wl-refile-guess-by-spam (entity)
(when (elmo-spam-message-spam-p (elmo-spam-processor)
wl-spam-folder))
(defun wl-spam-setup ()
- (add-hook 'wl-summary-prepared-hook #'wl-summary-auto-check-spam)
+ (add-hook 'wl-summary-sync-updated-hook #'wl-summary-auto-check-spam)
(let ((actions wl-summary-mark-action-list)
action)
(while actions