From: yamaoka <yamaoka>
Date: Tue, 15 Jun 1999 05:18:51 +0000 (+0000)
Subject: Sync up with Pterodactyl Gnus v0.88.
X-Git-Tag: et-gnus-6_11_03-00~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=db4279b169d30aed36805cd3beb2cce20396c008;p=elisp%2Fgnus.git-

Sync up with Pterodactyl Gnus v0.88.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 218520e..d27d230 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+Tue Jun 15 04:13:01 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+	* gnus.el: Pterodactyl Gnus v0.88 is released.
+
+1999-06-15 04:13:45  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-sum.el (gnus-summary-save-parts): Destroy handles after
+	usage. 
+
+	* nnmail.el (nnmail-get-new-mail): Save info.
+
 Mon Jun 14 01:15:59 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.87 is released.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 481b2c9..38d5f13 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8881,7 +8881,8 @@ If REVERSE, save parts that do not match TYPE."
       (set-buffer gnus-article-buffer)
       (let ((handles (or (mm-dissect-buffer) (mm-uu-dissect))))
 	(when handles
-	  (gnus-summary-save-parts-1 type dir handles reverse))))))
+	  (gnus-summary-save-parts-1 type dir handles reverse)
+	  (mm-destroy-parts handles))))))
 
 (defun gnus-summary-save-parts-1 (type dir handle reverse)
   (if (stringp (car handle))
diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 8b00f56..1372d9f 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1412,7 +1412,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
 	    (incf total new)
 	    (incf i))))
       ;; If we did indeed read any incoming spools, we save all info.
-      (unless (zerop new)
+      (unless (zerop total)
 	(nnmail-save-active
 	 (nnmail-get-value "%s-group-alist" method)
 	 (nnmail-get-value "%s-active-file" method))