2001-10-12 Simon Josefsson <jas@extundo.com>

	* gnus-cache.el (gnus-summary-limit-include-cached): Rewrite.
	From Eric Marsden <emarsden@laas.fr>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 650dae0..8912786 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-12  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-cache.el (gnus-summary-limit-include-cached): Rewrite.
+       From Eric Marsden <emarsden@laas.fr>.
+
 2001-10-12 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-do-auto-fill): Use gnus-point-at-bol.

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 9a603fc..838a6b8 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -370,8 +370,16 @@ Returns the list of articles removed."
     (while cached
       (gnus-summary-goto-subject (pop cached) t))))
 
-(defalias 'gnus-summary-limit-include-cached
-  'gnus-summary-insert-cached-articles)
+(defun gnus-summary-limit-include-cached ()
+  "Limit the summary buffer to articles that are cached."
+  (interactive)
+  (let ((cached (sort (copy-sequence gnus-newsgroup-cached) '>))
+       (gnus-verbose (max 6 gnus-verbose)))
+    (if cached
+        (progn
+          (gnus-summary-limit cached)
+          (gnus-summary-position-point))
+        (gnus-message 3 "No cached articles for this group"))))
 
 ;;; Internal functions.