From: morioka <morioka>
Date: Sun, 15 Feb 1998 16:10:58 +0000 (+0000)
Subject: Sync up with qgnus-0.25.
X-Git-Tag: gnus-6_7-tomo-199811302358~202
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=640f4e9e393284c82c70cea521862f78ed3d906b;p=elisp%2Fgnus.git-

Sync up with qgnus-0.25.
---

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)