[gnus git] branch master updated: =1= Really refresh the queue group after sending.

       via  144f66e587b1bfd54fbfa9da7ad17d011bace13c (commit)
      from  c04efd3d3ac7b0dc8a9b53eebf6c53bb8a252b9f (commit)


- Log -----------------------------------------------------------------
commit 144f66e587b1bfd54fbfa9da7ad17d011bace13c
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Jan 22 20:03:18 2011 +0100

    Really refresh the queue group after sending.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f189c5..f31db7b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 2011-01-22  Lars Ingebrigtsen  <[email protected]>
 
+	* gnus-draft.el (gnus-group-send-queue): Really refresh the queue group
+	after sending.
+
+	* gnus-agent.el (gnus-agent-send-mail): Ditto.
+
+	* gnus-group.el (gnus-group-refresh-group): New convenience function.
+
 	* gnus-draft.el (gnus-group-send-queue): Update the queue group in the
 	group buffer after sending the queue.
 
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index e11da98..13fa94e 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -732,7 +732,7 @@ Optional arg GROUP-NAME allows to specify another group."
     (replace-match "\n")
     (gnus-agent-insert-meta-information 'mail)
     (gnus-request-accept-article "nndraft:queue" nil t t)
-    (gnus-group-update-group "nndraft:queue" t)))
+    (gnus-group-refresh-group "nndraft:queue")))
 
 (defun gnus-agent-insert-meta-information (type &optional method)
   "Insert meta-information into the message that says how it's to be posted.
diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index cc3eabe..e13bb88 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -222,7 +222,7 @@ Obeys the standard process/prefix convention."
 		   (format "Sending message %d of %d..."
 			   (- total (length articles)) total)))
 	      (gnus-draft-send article))))))
-    (gnus-group-update-group "nndraft:queue" t)))
+    (gnus-group-refresh-group "nndraft:queue")))
 
 ;;;###autoload
 (defun gnus-draft-reminder ()
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index a21053c..5ce1ed8 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1678,6 +1678,13 @@ and ends at END."
           " "))
     " "))
 
+
+(defun gnus-group-refresh-group (group)
+  (gnus-activate-group group)
+  (gnus-get-unread-articles-in-group (gnus-get-info group)
+				     (gnus-active group))
+  (gnus-group-update-group group t))
+
 (defun gnus-group-update-group (group &optional visible-only)
   "Update all lines where GROUP appear.
 If VISIBLE-ONLY is non-nil, the group won't be displayed if it isn't

-----------------------------------------------------------------------
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     |    7 +++++++
 lisp/gnus-agent.el |    2 +-
 lisp/gnus-draft.el |    2 +-
 lisp/gnus-group.el |    7 +++++++
 lisp/gnus-start.el |    2 +-
 5 files changed, 17 insertions(+), 3 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