From: yamaoka <yamaoka>
Date: Sun, 10 Aug 2003 22:26:00 +0000 (+0000)
Subject: Synch to Gnus 200308101651.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=252699e27144886473fa3454e7c1a46e4e1bc43b;p=elisp%2Fgnus.git-

Synch to Gnus 200308101651.
---

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  <tzz@lifelogs.com>
+
+	* 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  <harder@ifa.au.dk>
 
 	* 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."