* gnus-sum.el (gnus-select-newsgroup): Use it.

* gnus-util.el (gnus-not-ignore): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 101f785..14375eb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-08-23 18:43:05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-sum.el (gnus-select-newsgroup): Use it.
+
+       * gnus-util.el (gnus-not-ignore): New function.
+
        * lpath.el (featurep): Don't fbind char-int.
 
        * gnus-util.el (gnus-create-info-command): New function.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index fd0fa4b..51760dd 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4533,7 +4533,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
       (setq gnus-newsgroup-display
            (cond
             ((eq display 'all)
-             'identity)
+             'gnus-not-ignore)
             ((arrayp display)
              (gnus-summary-display-make-predicate (mapcar 'identity display)))
             (t
@@ -4700,7 +4700,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
          (if (or read-all
                  (and (zerop (length gnus-newsgroup-marked))
                       (zerop (length gnus-newsgroup-unreads)))
-                 (eq gnus-newsgroup-display 'identity))
+                 (eq gnus-newsgroup-display 'gnus-not-ignore))
              ;; We want to select the headers for all the articles in
              ;; the group, so we select either all the active
              ;; articles in the group, or (if that's nil), the
@@ -7149,7 +7149,7 @@ fetch-old-headers verbiage, and so on."
   ;; Most groups have nothing to remove.
   (if (or gnus-inhibit-limiting
          (and (null gnus-newsgroup-dormant)
-              (eq gnus-newsgroup-display 'identity)
+              (eq gnus-newsgroup-display 'gnus-not-ignore)
               (not (eq gnus-fetch-old-headers 'some))
               (not (numberp gnus-fetch-old-headers))
               (not (eq gnus-fetch-old-headers 'invisible))

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 0d3bbcc..dec85cd 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1069,6 +1069,9 @@ sure of changing the value of `foo'."
      (setq gnus-info-buffer (current-buffer))
      (gnus-configure-windows 'info)))
 
+(defun gnus-not-ignore (&rest args)
+  t)
+
 (provide 'gnus-util)
 
 ;;; gnus-util.el ends here