From 640f4e9e393284c82c70cea521862f78ed3d906b Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 15 Feb 1998 16:10:58 +0000 Subject: [PATCH] Sync up with qgnus-0.25. --- lisp/nnmail.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 3e9cd0f..c6cb367 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -1547,9 +1547,6 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." (defun nnmail-get-new-mail (method exit-func temp &optional group spool-func) "Read new incoming mail." - ;; Nix out the previous split history. - (unless group - (setq nnmail-split-history nil)) (let* ((spools (nnmail-get-spool-files group)) (group-in group) nnmail-current-spool incoming incomings spool) @@ -1748,6 +1745,17 @@ If ARGS, PROMPT is used as an argument to `format'." ", ")) (princ "\n"))))) +(defun nnmail-purge-split-history (group) + (let ((history nnmail-split-history)) + (while history + (let ((pairs (car history))) + (while pairs + (if (string= (car (car pairs)) group) + (setcar pairs (cdr pairs)) + (setq pairs (cdr pairs))))) + (setq history (cdr history)))) + (setq nnmail-split-history (delq nil nnmail-split-history))) + (defun nnmail-new-mail-p (group) "Say whether GROUP has new mail." (let ((his nnmail-split-history) -- 1.7.10.4