From: yamaoka <yamaoka>
Date: Mon, 5 Jul 1999 22:37:52 +0000 (+0000)
Subject: (gnus-agent-expire): Refresh the value of `gnus-active-hashtb' for each method.
X-Git-Tag: et-gnus-6_11_05-01~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=92196ba063ddf6fc304db5eb8a818b6a7dc0fd2c;p=elisp%2Fgnus.git-

(gnus-agent-expire): Refresh the value of `gnus-active-hashtb' for each method.
---

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 5c3d759..1642fc9 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1363,14 +1363,14 @@ The following commands are available:
 	history overview file histories elem art nov-file low info
 	unreads marked article orig lowest highest)
     (save-excursion
-      (with-temp-buffer
-	(insert-file-contents-as-coding-system gnus-agent-file-coding-system
-					       file)
-	(gnus-active-to-gnus-format
-	 nil (setq orig (gnus-make-hashtable
-			 (count-lines (point-min) (point-max))))))
       (setq overview (gnus-get-buffer-create " *expire overview*"))
       (while (setq gnus-command-method (pop methods))
+	(with-temp-buffer
+	  (insert-file-contents-as-coding-system
+	   gnus-agent-file-coding-system (gnus-agent-lib-file "active"))
+	  (gnus-active-to-gnus-format
+	   nil (setq orig (gnus-make-hashtable
+			   (count-lines (point-min) (point-max))))))
 	(let ((expiry-hashtb (gnus-make-hashtable 1023)))
 	(gnus-agent-open-history)
 	(set-buffer