Mercurial > emacs
diff lisp/mail/pmail.el @ 98048:dec575ec3687
(pmail-use-spam-filter): Remove un-needed variable declaration.
Doc fix for actual definition.
(pmail-get-new-mail): Call rmail-spam-filter rather than non-existent
pmail-spam-filter.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 06 Sep 2008 18:37:43 +0000 |
parents | 72564311fb7b |
children | c4cf87cdb0a4 |
line wrap: on
line diff
--- a/lisp/mail/pmail.el Sat Sep 06 18:22:55 2008 +0000 +++ b/lisp/mail/pmail.el Sat Sep 06 18:37:43 2008 +0000 @@ -53,7 +53,6 @@ (defvar mail-abbrev-syntax-table) (defvar mail-abbrevs) (defvar messages-head) -(defvar pmail-use-spam-filter) (defvar rsf-beep) (defvar rsf-sleep-after-message) (defvar total-messages) @@ -799,8 +798,11 @@ (defvar pmail-enable-multibyte nil) -;; Avoid errors. -(defvar pmail-use-spam-filter nil) +;; XXX rmail-spam-filter hasn't been tested at all with the mbox +;; branch. --enberg +(defvar pmail-use-spam-filter nil + "*Non-nil to activate the rmail spam filter with pmail. +WARNING - this has not been tested at all with pmail.") (defun pmail-require-mime-maybe () "Require `pmail-mime-feature' if that is non-nil. @@ -1445,8 +1447,8 @@ ;;;; *** Pmail input *** -;;;(declare-function pmail-spam-filter "pmail-spam-filter" (msg)) -(declare-function pmail-summary-goto-msg "pmailsum" (&optional n nowarn skip-pmail)) +(declare-function pmail-summary-goto-msg "pmailsum" + (&optional n nowarn skip-pmail)) (declare-function pmail-summary-mark-undeleted "pmailsum" (n)) (declare-function pmail-summary-mark-deleted "pmailsum" (&optional n undel)) (declare-function rfc822-addresses "rfc822" (header-text)) @@ -1566,12 +1568,10 @@ ;; Process the new messages for spam using the integrated ;; spam filter. The spam filter can mark messages for ;; deletion and can output a message. - ;; XXX pmail-spam-filter hasn't been tested at all with - ;; the mbox branch. --enberg (setq current-message (pmail-first-unseen-message)) (when pmail-use-spam-filter (while (<= current-message pmail-total-messages) - (pmail-spam-filter current-message) + (rmail-spam-filter current-message) (setq current-message (1+ current-message)))) ;; Make the first unseen message the current message and ;; update the summary buffer, if one exists.