From: yamaoka <yamaoka>
Date: Tue, 2 Mar 1999 02:27:17 +0000 (+0000)
Subject: * gnus.el (gnus-revision-number): Increment to 03.
X-Git-Tag: t-gnus-6_10_061-03~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a120c5b57efbfc7915370cb46badf178119e1679;p=elisp%2Fgnus.git-

* gnus.el (gnus-revision-number): Increment to 03.
* gnus-sum.el (gnus-select-newsgroup): Examine cached articles with
`gnus-cache-articles-in-group' if the current group is not a virtual group.
(TopLevel): Autoload `gnus-cache-articles-in-group'
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index c082995..d3062bd 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -45,6 +45,9 @@
   (defvar gnus-decode-encoded-word-function)
   )
 
+(eval-and-compile
+  (autoload 'gnus-cache-articles-in-group "gnus-cache"))
+
 (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
 (autoload 'gnus-set-summary-default-charset "gnus-i18n" nil t)
 
@@ -3978,8 +3981,10 @@ If SELECT-ARTICLES, only select those articles from GROUP."
       (gnus-adjust-marked-articles info))
 
     ;; Kludge to avoid having cached articles nixed out in virtual groups.
-    (when (gnus-virtual-group-p group)
-      (setq cached gnus-newsgroup-cached))
+    (setq cached
+	  (if (gnus-virtual-group-p group)
+	      gnus-newsgroup-cached
+	    (gnus-cache-articles-in-group group)))
 
     (setq gnus-newsgroup-unreads
 	  (gnus-set-difference
@@ -4020,10 +4025,6 @@ If SELECT-ARTICLES, only select those articles from GROUP."
 		  gnus-fetch-old-headers)))
       (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name)
 
-      ;; Kludge to avoid having cached articles nixed out in virtual groups.
-      (when cached
-	(setq gnus-newsgroup-cached cached))
-
       ;; Suppress duplicates?
       (when gnus-suppress-duplicates
 	(gnus-dup-suppress-articles))
@@ -4040,6 +4041,11 @@ If SELECT-ARTICLES, only select those articles from GROUP."
       ;; Removed marked articles that do not exist.
       (gnus-update-missing-marks
        (gnus-sorted-complement fetched-articles articles))
+
+      ;; Kludge to avoid having cached articles nixed out in virtual groups.
+      (when cached
+	(setq gnus-newsgroup-cached cached))
+
       ;; We might want to build some more threads first.
       (when (and gnus-fetch-old-headers
 		 (eq gnus-headers-retrieved-by 'nov))
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 33fa506..6bb0d0a 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -267,7 +267,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.061"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "02"
+(defconst gnus-revision-number "03"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.79"