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)
(let ((folder (or folder wl-summary-buffer-elmo-folder))
(number (or number (wl-summary-message-number)))
spam)
- (message "Cheking spam...")
+ (message "Checking spam...")
(when (setq spam (elmo-spam-message-spam-p (elmo-spam-processor)
folder number))
(wl-summary-spam number))
- (message "Cheking spam...done")
+ (message "Checking spam...done")
(when (interactive-p)
(message "No: %d is %sa spam message." number (if spam "" "not ")))))
(let ((original (wl-message-get-original-buffer))
(number wl-message-buffer-cur-number)
spam)
- (message "Cheking spam...")
- (when (elmo-spam-buffer-spam-p (elmo-spam-processor) original)
+ (message "Checking spam...")
+ (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 "Checking spam...done")
+ (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