(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)
wl-summary-skip-mark-list))))
(define-key wl-summary-mode-map "k" wl-summary-spam-map)
(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))