"Spam configuration for wanderlust."
:group 'wl)
-(defcustom wl-spam-folder-name "+spam"
+(defcustom wl-spam-folder "+spam"
"*Spam folder."
:type 'string
:group 'wl-spam)
:type '(repeat (regexp :tag "Folder Regexp"))
:group 'wl-spam)
-(defcustom wl-spam-auto-check-folder-regexp-list '("[+.]inbox")
+(defcustom wl-spam-auto-check-folder-regexp-list nil
"*List of Folder regexp which check spam automatically."
:type '(repeat (regexp :tag "Folder Regexp"))
:group 'wl-spam)
:group 'wl-spam)
(defun wl-spam-domain (folder-name)
- (cond ((string= folder-name wl-spam-folder-name)
+ (cond ((string= folder-name wl-spam-folder)
'spam)
((wl-string-match-member folder-name
wl-spam-undecided-folder-regexp-list)
(defun wl-spam-save-status (&optional force)
(interactive "P")
- (let ((processor (elmo-spam-processor)))
- (when (or force (elmo-spam-modified-p processor))
+ (let ((processor (elmo-spam-processor (not force))))
+ (when (or force
+ (and processor (elmo-spam-modified-p processor)))
(elmo-spam-save-status processor))))
;; insinuate into summary mode
(when (wl-spam-auto-check-message-p wl-summary-buffer-elmo-folder
number)
(setq numbers (cons number numbers)))))
- (if numbers
- (wl-spam-map-spam-messages wl-summary-buffer-elmo-folder
- numbers
- #'wl-summary-spam)
- (message "No message to test."))))
+ (cond (numbers
+ (wl-spam-map-spam-messages wl-summary-buffer-elmo-folder
+ numbers
+ #'wl-summary-spam))
+ ((interactive-p)
+ (message "No message to test.")))))
(defun wl-summary-register-as-spam ()
(interactive)
(let ((domain (wl-spam-domain (elmo-folder-name-internal
wl-summary-buffer-elmo-folder)))
(total (length mark-list)))
+ (wl-folder-confirm-existence (elmo-make-folder wl-spam-folder))
(when (memq domain '(undecided good))
(message "Registering spam...")
(elmo-with-progress-display (> total elmo-display-progress-threshold)
(eq domain 'good)))
(message "Registering spam...done"))
(wl-summary-move-mark-list-messages mark-list
- wl-spam-folder-name
+ wl-spam-folder
"Refiling spam...")))
(defun wl-summary-exec-action-refile-with-register (mark-list)
(when (elmo-spam-message-spam-p (elmo-spam-processor)
wl-summary-buffer-elmo-folder
(elmo-message-entity-number entity))
- wl-spam-folder-name))
+ wl-spam-folder))
(defun wl-spam-setup ()
+ (add-hook 'wl-summary-prepared-hook #'wl-summary-auto-check-spam)
+ (let ((actions wl-summary-mark-action-list)
+ action)
+ (while actions
+ (setq action (car actions)
+ actions (cdr actions))
+ (when (eq (wl-summary-action-symbol action) 'refile)
+ (setcar (nthcdr 4 action) 'wl-summary-exec-action-refile-with-register)
+ (setq actions nil))))
(when wl-spam-mark-action-list
(setq wl-summary-mark-action-list (append
wl-summary-mark-action-list
(cons (wl-summary-action-mark action)
wl-summary-skip-mark-list))))
(define-key wl-summary-mode-map "k" wl-summary-spam-map)
- (define-key wl-summary-mode-map "ms" 'wl-summary-target-mark-register-as-spam)
- (define-key wl-summary-mode-map "mn" 'wl-summary-target-mark-register-as-good))
+ (define-key
+ wl-summary-mode-map "mk" 'wl-summary-target-mark-spam)
+ (define-key
+ wl-summary-mode-map "ms" 'wl-summary-target-mark-register-as-spam)
+ (define-key
+ wl-summary-mode-map "mn" 'wl-summary-target-mark-register-as-good))
(require 'product)
(product-provide (provide 'wl-spam) (require 'wl-version))