+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.
(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.
(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 ()