gnus-sum.el: When adding article headers to a summary buffer also update gnus-newsgro...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 71872b21adbb2e129da453f260d7ad3fde7f1fe5..8646f687420b1fa7f286e829a2c81e4176c80624 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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.

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index c01f91973a0fd6b64f1a5e95281904dc5130aed9..fd441c46d175beb1ce9c211c6c693e1d0296b361 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -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))