From: yamaoka <yamaoka>
Date: Mon, 5 Jul 1999 22:36:51 +0000 (+0000)
Subject: (gnus-agent-expire): Refresh the value of `gnus-active-hashtb' for each method.
X-Git-Tag: t-gnus-6_10_069-01~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=342d5398c5190b522f6da06185869f2d80eb1980;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