From 0a25d0ecda71a260662a3bfbc505685ecebf24c6 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 6 Sep 2008 18:37:43 +0000 Subject: [PATCH] (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. --- lisp/mail/pmail.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el index f09b2acae0a..ea287927801 100644 --- a/lisp/mail/pmail.el +++ b/lisp/mail/pmail.el @@ -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 @@ The first parenthesized expression should match the MIME-charset name.") (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 @@ original copy." ;;;; *** 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 @@ updated file. It returns t if it got any new messages." ;; 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. -- 2.39.5