Commit 4c7468f6 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

gnus-sum.el (gnus-articles-to-read): Revert back to old behaviour if we're...

gnus-sum.el (gnus-articles-to-read): Revert back to old behaviour if we're selecting a group with unread articles.
parent 448e0f79
2011-03-15 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* gnus-sum.el (gnus-articles-to-read): Revert back to old behaviour if
we're selecting a group with unread articles.
* nnimap.el (nnimap-open-connection-1): Allow `network-only', too.
 
* gssapi.el: New file separated out from imap.el to provide a general
......
......@@ -5798,7 +5798,8 @@ If SELECT-ARTICLES, only select those articles from GROUP."
(defun gnus-articles-to-read (group &optional read-all)
"Find out what articles the user wants to read."
(let* ((articles
(let* ((only-read-p t)
(articles
;; Select all articles if `read-all' is non-nil, or if there
;; are no unread articles.
(if (or read-all
......@@ -5822,6 +5823,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
(gnus-uncompress-range (gnus-active group)))
(gnus-cache-articles-in-group group))
;; Select only the "normal" subset of articles.
(setq only-read-p nil)
(gnus-sorted-nunion
(gnus-sorted-union gnus-newsgroup-dormant gnus-newsgroup-marked)
gnus-newsgroup-unreads)))
......@@ -5845,18 +5847,25 @@ If SELECT-ARTICLES, only select those articles from GROUP."
(let* ((cursor-in-echo-area nil)
(initial (gnus-parameter-large-newsgroup-initial
gnus-newsgroup-name))
(default (if only-read-p
(or initial gnus-large-newsgroup)
number))
(input
(read-string
(format
"How many articles from %s (available %d, default %d): "
(gnus-group-decoded-name
(gnus-group-real-name gnus-newsgroup-name))
number
(or initial gnus-large-newsgroup))
(if only-read-p
(format
"How many articles from %s (available %d, default %d): "
(gnus-group-decoded-name
(gnus-group-real-name gnus-newsgroup-name))
number default)
(format
"How many articles from %s (%d available): "
(gnus-group-decoded-name
(gnus-group-real-name gnus-newsgroup-name))
default))
nil
nil
(number-to-string
(or initial gnus-large-newsgroup)))))
(number-to-string default))))
(if (string-match "^[ \t]*$" input) number input)))
((and (> scored marked) (< scored number)
(> (- scored number) 20))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment