(gnus-draft-send-all-messages): ask if all drafts

should be sent unless gnus-expert-user is on

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d46afde..4df0a2a 100644 (file)
--- 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 69dd1ae..4466130 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -185,8 +185,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."