[gnus git] branch master updated: n0-17-259-gf6afef2 =1= gnus-sum.el: Update gnus-newsgroup-articles when adding articles.

       via  f6afef21c74b8654c40348fa0d8655369884d7df (commit)
      from  dac2a8904a812aecc126e4679bf362c726d80e7f (commit)


- Log -----------------------------------------------------------------
commit f6afef21c74b8654c40348fa0d8655369884d7df
Author: Andrew Cohen <[email protected]>
Date:   Thu Sep 1 08:48:50 2011 -0400

    gnus-sum.el: Update gnus-newsgroup-articles when adding articles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ebcdcc..08facef 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-01  Andrew Cohen  <[email protected]>
+
+	* gnus-sum.el: When adding article headers to a summary buffer also
+	update gnus-newsgroup-articles. This fixes bug 9386.
+
 2011-08-30  Katsumi Yamaoka  <[email protected]>
 
 	* auth-source.el: Autoload help-mode.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index c01f919..fd441c4 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/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))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    5 +++++
 lisp/gnus-sum.el |   10 +++++++++-
 2 files changed, 14 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project