From: morioka <morioka>
Date: Tue, 17 Feb 1998 20:38:38 +0000 (+0000)
Subject: Quassia Gnus v0.29.
X-Git-Tag: qgnus-0_29~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f393a881c3f473a341ac3c610cedd306e7cbbf16;p=elisp%2Fgnus.git-

Quassia Gnus v0.29.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3afc35a..60cdafb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+Tue Feb 17 07:00:43 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+	* gnus.el: Quassia Gnus v0.29 is released.
+
+Tue Feb 17 06:15:03 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+	* nnmail.el (nnmail-purge-split-history): List if alists, not
+	alist. 
+
 Mon Feb 16 20:22:04 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Quassia Gnus v0.28 is released.
diff --git a/lisp/gnus.el b/lisp/gnus.el
index aa67654..edf5db6 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -246,7 +246,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "0.28"
+(defconst gnus-version-number "0.29"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number)
diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 1a8470f..e326b09 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1742,12 +1742,10 @@ If ARGS, PROMPT is used as an argument to `format'."
   (let ((history nnmail-split-history)
 	prev)
     (while history
-      (if (string= (caar history) group)
-	  (if prev
-	      (setcdr prev (cdr history))
-	    (setq nnmail-split-history (cdr history)))
-	(setq prev history
-	      history (cdr history))))))
+      (setcar history (delete-if (lambda (e) (string= (car e) group))
+				 (car history)))
+      (pop history))
+    (setq nnmail-split-history (delq nil nnmail-split-history))))
 
 (defun nnmail-new-mail-p (group)
   "Say whether GROUP has new mail."
diff --git a/texi/gnus.texi b/texi/gnus.texi
index aa2d330..067a28d 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Quassia Gnus 0.28 Manual
+@settitle Quassia Gnus 0.29 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -313,7 +313,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Quassia Gnus 0.28 Manual
+@title Quassia Gnus 0.29 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -349,7 +349,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 spool or your mbox file.  All at the same time, if you want to push your
 luck.
 
-This manual corresponds to Quassia Gnus 0.28.
+This manual corresponds to Quassia Gnus 0.29.
 
 @end ifinfo
 
diff --git a/texi/message.texi b/texi/message.texi
index 96433a4..972f238 100644
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Message 0.28 Manual
+@settitle Message 0.29 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Message 0.28 Manual
+@title Message 0.29 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -80,7 +80,7 @@ Message mode buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
-This manual corresponds to Message 0.28.  Message is distributed with
+This manual corresponds to Message 0.29.  Message is distributed with
 the Gnus distribution bearing the same version number as this manual
 has.