[Emacs-diffs] /srv/bzr/emacs/trunk r105633: gnus-sum.el: When adding article headers to a summary buffer also update gnus-newsgroup-articles (bug#9386).

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 105633
author: Andrew Cohen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2011-09-01 13:25:09 +0000
message:
  gnus-sum.el: When adding article headers to a summary buffer also update 
gnus-newsgroup-articles (bug#9386).
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-sum.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-08-30 23:01:50 +0000
+++ b/lisp/gnus/ChangeLog       2011-09-01 13:25:09 +0000
@@ -1,3 +1,8 @@
+2011-09-01  Andrew Cohen  <address@hidden>
+
+       * gnus-sum.el: When adding article headers to a summary buffer also
+       update gnus-newsgroup-articles (bug#9386).
+
 2011-08-30  Katsumi Yamaoka  <address@hidden>
 
        * auth-source.el: Autoload help-mode.

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2011-08-21 22:10:49 +0000
+++ b/lisp/gnus/gnus-sum.el     2011-09-01 13:25:09 +0000
@@ -8630,6 +8630,8 @@
           '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 @@
                      (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 @@
              (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 @@
                      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))