(gnus-agent-batch): Bind gnus-agent-confirmation-function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 795893c..a221bad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * gnus-agent.el (gnus-agent-retrieve-headers): Use correct buffer.
        (gnus-agent-braid-nov): Switch back to nntp-server-buffer. Remove
        duplications.
+       (gnus-agent-batch): Bind gnus-agent-confirmation-function.
 
 2002-01-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 6c32ed6..e9ae804 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1795,8 +1795,9 @@ The following commands are available:
   (let ((init-file-user "")
        (gnus-always-read-dribble-file t))
     (gnus))
-  (gnus-group-send-queue)
-  (gnus-agent-fetch-session))
+  (let ((gnus-agent-confirmation-function 'gnus-agent-batch-confirmation))
+    (gnus-group-send-queue)
+    (gnus-agent-fetch-session)))
 
 (defun gnus-agent-retrieve-headers (articles group &optional fetch-old)
   (save-excursion