* gnus-draft.el (gnus-group-send-queue): Pass group and

interactive as the arguments of gnus-draft-send.
(gnus-draft-send): Don't give "nndraft:queue" special treatment.

diff --git a/ChangeLog b/ChangeLog
index 579fc80..0270048 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-18   Daiki Ueno  <ueno@unixuser.org>
+
+       * lisp/gnus-draft.el (gnus-group-send-queue): Pass group and
+       interactive as the arguments of gnus-draft-send.
+       (gnus-draft-send): Don't give "nndraft:queue" special treatment.
+
 2002-04-17   Daiki Ueno  <ueno@unixuser.org>
 
        * lisp/gnus-delay.el (gnus-delay-article): Use `message-save-drafts'

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 7c92c7f..b966012 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -135,12 +135,9 @@
   (let ((message-syntax-checks (if interactive message-syntax-checks
                                 'dont-check-for-anything-just-trust-me))
        (message-inhibit-body-encoding (or (not group)
-                                          (equal group "nndraft:queue")
                                           message-inhibit-body-encoding))
-       (message-send-hook (and group (not (equal group "nndraft:queue"))
-                               message-send-hook))
-       (message-setup-hook (and group (not (equal group "nndraft:queue"))
-                                message-setup-hook))
+       (message-send-hook (and group message-send-hook))
+       (message-setup-hook (and group message-setup-hook))
        type method)
     (gnus-draft-setup-for-editing article (or group "nndraft:queue"))
     ;; We read the meta-information that says how and where
@@ -194,7 +191,7 @@
          (let ((message-sending-message
                 (format "Sending message %d of %d..."
                         (- total (length articles)) total)))
-           (gnus-draft-send article)))))))
+           (gnus-draft-send article "nndraft:queue" t)))))))
 
 ;;;###autoload
 (defun gnus-draft-reminder ()