procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gnus-sum.el: When adding article headers to a summary buffer also update gnus-newsgroup-articles (bug#9386).

Browse source
This commit is contained in:
Andrew Cohen 2011-09-01 13:25:09 +00:00 • committed by Katsumi Yamaoka
parent fc27895144
commit 6ed17f119f
2 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2011-09-01 Andrew Cohen <cohen@andy.bu.edu>
* gnus-sum.el: When adding article headers to a summary buffer also
update gnus-newsgroup-articles (bug#9386).
2011-08-30 Katsumi Yamaoka <yamaoka@jpl.org>
* auth-source.el: Autoload help-mode.

10
lisp/gnus/gnus-sum.el
View file

@ -8630,6 +8630,8 @@ fetched for this group."
'list gnus-newsgroup-headers
(gnus-fetch-headers articles nil t)
'gnus-article-sort-by-number))
(setq gnus-newsgroup-articles
(gnus-sorted-nunion gnus-newsgroup-articles articles))
(gnus-summary-limit (append articles gnus-newsgroup-limit))))
(defun gnus-summary-limit-exclude-dormant ()
@ -9022,9 +9024,11 @@ non-numeric or nil fetch the number specified by the
(keep-lines
(regexp-opt ',(append refs (list id subject)))))))
(gnus-fetch-headers (list last) (if (numberp limit)
(* 2 limit) limit) t)))))
(* 2 limit) limit) t))))
article-ids)
(when (listp new-headers)
(dolist (header new-headers)
(push (mail-header-number header) article-ids)
(when (member (mail-header-number header) gnus-newsgroup-unselected)
(push (mail-header-number header) gnus-newsgroup-unreads)
(setq gnus-newsgroup-unselected
@ -9035,6 +9039,8 @@ non-numeric or nil fetch the number specified by the
(gnus-merge
'list gnus-newsgroup-headers new-headers
'gnus-article-sort-by-number)))
(setq gnus-newsgroup-articles
(gnus-sorted-nunion gnus-newsgroup-articles (nreverse article-ids)))
(gnus-summary-limit-include-thread id))))
(defun gnus-summary-refer-article (message-id)
@ -12743,6 +12749,8 @@ returned."
gnus-newsgroup-headers
(gnus-fetch-headers articles)
'gnus-article-sort-by-number))
(setq gnus-newsgroup-articles
(gnus-sorted-nunion gnus-newsgroup-articles articles))
;; Suppress duplicates?
(when gnus-suppress-duplicates
(gnus-dup-suppress-articles))