X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnmail.el;h=5a1cd65b740b88b68d468a3204eb50d32dfeaed1;hb=0a919ac2e96918074f11c8740a5acadbec21a676;hp=c3b53048a6bd7507850112278175e51dc4f6e6d3;hpb=06aa1b92759389956224a3116e4d3655e5118670;p=elisp%2Fgnus.git-

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index c3b5304..5a1cd65 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1963,14 +1963,12 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
   (with-output-to-temp-buffer "*nnmail split history*"
     (with-current-buffer standard-output
       (fundamental-mode))		; for Emacs 20.4+
-    (let ((history nnmail-split-history)
-	  elem)
-      (while (setq elem (pop history))
+      (dolist (elem nnmail-split-history)
 	(princ (mapconcat (lambda (ga)
 			    (concat (car ga) ":" (int-to-string (cdr ga))))
 			  elem
 			  ", "))
-	(princ "\n")))))
+	(princ "\n"))))
 
 (defun nnmail-purge-split-history (group)
   "Remove all instances of GROUP from `nnmail-split-history'."