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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc092d4..1f189c5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-01-22  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * 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  <julien@danjou.info>
 
        * mailcap.el (mailcap-mime-extensions): Rename text/org to text/x-org.
 2011-01-22  Julien Danjou  <julien@danjou.info>
 
        * 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 (file)
--- 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)
      (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.
 
 (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 (file)
--- 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)))
            (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 ()
 
 ;;;###autoload
 (defun gnus-draft-reminder ()