From 701a826d39e8832fe1865f5ac6f5a8f02c47a3f4 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 17 Apr 2002 08:43:16 +0000 Subject: [PATCH] * 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. --- ChangeLog | 6 ++++++ lisp/gnus-draft.el | 9 +++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 579fc80..0270048 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-04-18 Daiki Ueno + + * 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 * 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 --- 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 () -- 1.7.10.4