From 8959a0b8b2331ba5318072872a3eb59e5ed8e0d3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 15 Jun 1999 05:14:48 +0000 Subject: [PATCH] Sync up with Pterodactyl Gnus v0.88. --- lisp/ChangeLog | 11 +++++++++++ lisp/gnus-sum.el | 3 ++- lisp/nnmail.el | 2 +- 3 files changed, 14 insertions(+), 2 deletions(-) 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 + + * gnus.el: Pterodactyl Gnus v0.88 is released. + +1999-06-15 04:13:45 Lars Magne Ingebrigtsen + + * 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 * gnus.el: Pterodactyl Gnus v0.87 is released. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 38d42ed..59fd509 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -8879,7 +8879,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 cb5449b..0b463a8 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -1411,7 +1411,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)) -- 1.7.10.4