[gnus git] branch master updated: =2= Update the queue group in the group buffer after sending the queue. ; Ignore TAGS.

Lars Magne Ingebrigtsen <[email protected]>
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  c04efd3d3ac7b0dc8a9b53eebf6c53bb8a252b9f (commit)
       via  8113f3ead89f562e51d519f3cbb1ff7cc708baeb (commit)
      from  0e48b3a323b78db8ae2f06d6af2c596ff6354e1e (commit)


- Log -----------------------------------------------------------------
commit c04efd3d3ac7b0dc8a9b53eebf6c53bb8a252b9f
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Jan 22 19:44:54 2011 +0100

    Update the queue group in the group buffer after sending the queue.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc092d4..1f189c5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-01-22  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-draft.el (gnus-group-send-queue): Update the queue group in the
+	group buffer after sending the queue.
+
+	* gnus-agent.el (gnus-agent-send-mail): Ditto.
+
 2011-01-22  Julien Danjou  <[email protected]>
 
 	* mailcap.el (mailcap-mime-extensions): Rename text/org to text/x-org.
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 2c215e8..e11da98 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -731,7 +731,8 @@ Optional arg GROUP-NAME allows to specify another group."
      (concat "^" (regexp-quote mail-header-separator) "\n"))
     (replace-match "\n")
     (gnus-agent-insert-meta-information 'mail)
-    (gnus-request-accept-article "nndraft:queue" nil t t)))
+    (gnus-request-accept-article "nndraft:queue" nil t t)
+    (gnus-group-update-group "nndraft:queue" t)))
 
 (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 c13018f..cc3eabe 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -221,7 +221,8 @@ Obeys the standard process/prefix convention."
 	    (let ((message-sending-message
 		   (format "Sending message %d of %d..."
 			   (- total (length articles)) total)))
-	      (gnus-draft-send article))))))))
+	      (gnus-draft-send article))))))
+    (gnus-group-update-group "nndraft:queue" t)))
 
 ;;;###autoload
 (defun gnus-draft-reminder ()

commit 8113f3ead89f562e51d519f3cbb1ff7cc708baeb
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Jan 22 19:26:52 2011 +0100

    Ignore TAGS.

diff --git a/.gitignore b/.gitignore
index 5d815f3..c41a7d1 100644
--- a/.gitignore
+++ b/.gitignore
@@ -19,6 +19,7 @@ contrib/request-assign.future
 etc/Makefile
 lisp/*.elc
 lisp/Makefile
+lisp/TAGS
 lisp/auto-autoloads.el
 lisp/custom-load.el
 lisp/gnus-load.el

-----------------------------------------------------------------------
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:
 .gitignore         |    1 +
 lisp/ChangeLog     |    7 +++++++
 lisp/gnus-agent.el |    3 ++-
 lisp/gnus-draft.el |    3 ++-
 4 files changed, 12 insertions(+), 2 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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.