diff options
Diffstat (limited to 'lisp/gnus/spam.el')
| -rw-r--r-- | lisp/gnus/spam.el | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el index d06559676db..82f98c4294f 100644 --- a/lisp/gnus/spam.el +++ b/lisp/gnus/spam.el @@ -2903,25 +2903,27 @@ explicitly, and matters only if you need the extra headers installed through `spam-necessary-extra-headers'." (interactive) - (dolist (var symbols) - (set var t)) - - (dolist (header (spam-necessary-extra-headers)) - (add-to-list 'nnmail-extra-headers header) - (add-to-list 'gnus-extra-headers header)) - - (setq spam-install-hooks t) - ;; TODO: How do we redo this every time the `spam' face is customized? - (push '((eq mark gnus-spam-mark) . spam) - gnus-summary-highlight) - ;; Add hooks for loading and saving the spam stats - (add-hook 'gnus-save-newsrc-hook 'spam-maybe-spam-stat-save) - (add-hook 'gnus-get-top-new-news-hook 'spam-maybe-spam-stat-load) - (add-hook 'gnus-startup-hook 'spam-maybe-spam-stat-load) - (add-hook 'gnus-summary-prepare-exit-hook 'spam-summary-prepare-exit) - (add-hook 'gnus-summary-prepare-hook 'spam-summary-prepare) - (add-hook 'gnus-get-new-news-hook 'spam-setup-widening) - (add-hook 'gnus-summary-prepared-hook 'spam-find-spam)) + (when spam-install-hooks + (dolist (var symbols) + (set var t)) + + (dolist (header (spam-necessary-extra-headers)) + (add-to-list 'nnmail-extra-headers header) + (add-to-list 'gnus-extra-headers header)) + + ;; TODO: How do we redo this every time the `spam' face is customized? + (push '((eq mark gnus-spam-mark) . spam) + gnus-summary-highlight) + ;; Add hooks for loading and saving the spam stats + (add-hook 'gnus-save-newsrc-hook 'spam-maybe-spam-stat-save) + (add-hook 'gnus-get-top-new-news-hook 'spam-maybe-spam-stat-load) + (add-hook 'gnus-startup-hook 'spam-maybe-spam-stat-load) + (add-hook 'gnus-summary-prepare-exit-hook 'spam-summary-prepare-exit) + (add-hook 'gnus-summary-prepare-hook 'spam-summary-prepare) + (add-hook 'gnus-get-new-news-hook 'spam-setup-widening) + (add-hook 'gnus-summary-prepared-hook 'spam-find-spam) + ;; Don't install things more than once. + (setq spam-install-hooks nil))) (defun spam-unload-hook () "Uninstall the spam.el hooks." @@ -2936,8 +2938,6 @@ installed through `spam-necessary-extra-headers'." (add-hook 'spam-unload-hook 'spam-unload-hook) -(when spam-install-hooks - (spam-initialize)) ;;}}} (provide 'spam) |