[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