From 252699e27144886473fa3454e7c1a46e4e1bc43b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 10 Aug 2003 22:26:00 +0000 Subject: [PATCH] Synch to Gnus 200308101651. --- lisp/ChangeLog | 5 +++++ lisp/gnus-draft.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d46afde..4df0a2a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-08-10 Teodor Zlatanov + + * gnus-draft.el (gnus-draft-send-all-messages): ask if all drafts + should be sent unless gnus-expert-user is on + 2003-08-09 Jesper Harder * pgg-gpg.el (pgg-gpg-extra-args): Fix customization type. diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el index db83179..d61c583 100644 --- a/lisp/gnus-draft.el +++ b/lisp/gnus-draft.el @@ -186,8 +186,12 @@ (defun gnus-draft-send-all-messages () "Send all the sendable drafts." (interactive) - (gnus-uu-mark-buffer) - (gnus-draft-send-message)) + (when (or + gnus-expert-user + (gnus-y-or-n-p + "Send all drafts? ")) + (gnus-uu-mark-buffer) + (gnus-draft-send-message))) (defun gnus-group-send-queue () "Send all sendable articles from the queue group." -- 1.7.10.4