* minor fix to gnus-articles-to-read
@ 2004-07-06 15:02 Dan Christensen
0 siblings, 0 replies; only message in thread
From: Dan Christensen @ 2004-07-06 15:02 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 841 bytes --]
Here is an excerpt from gnus-sum.el:
(defun gnus-articles-to-read (group &optional read-all)
"Find out what articles the user wants to read."
(let* ((display (gnus-group-find-parameter group 'display))
(articles
;; Select all articles if `read-all' is non-nil, or if there
;; are no unread articles.
(if (or read-all
(and (zerop (length gnus-newsgroup-marked))
(zerop (length gnus-newsgroup-unreads)))
;; Fetch all if the predicate is non-nil.
gnus-newsgroup-display)
It looks to me like the part:
(display (gnus-group-find-parameter group 'display))
is unused. This information is passed in through the
gnus-newsgroup-display variable (after being massaged
in the function gnus-select-newsgroup).
Patch below.
Dan
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-sum.el.patch --]
[-- Type: text/x-patch, Size: 451 bytes --]
--- gnus-sum.el~ 2004-07-06 10:35:31.000000000 -0400
+++ gnus-sum.el 2004-07-06 10:57:35.000000000 -0400
@@ -5294,8 +5294,7 @@
(defun gnus-articles-to-read (group &optional read-all)
"Find out what articles the user wants to read."
- (let* ((display (gnus-group-find-parameter group 'display))
- (articles
+ (let* ((articles
;; Select all articles if `read-all' is non-nil, or if there
;; are no unread articles.
(if (or read-all
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2004-07-06 15:02 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-07-06 15:02 minor fix to gnus-articles-to-read Dan Christensen
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).