# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770029910 0
# Node ID b10cc49f6c37349a8cd49db1933ba63d14b766de
# Parent  022727dbe5f3856ed8e47a949ae69695f5724e52
(gnus-summary-catchup): Check gnus-interactive-catchup.
(gnus-summary-catchup-and-exit): Likewise.

diff -r 022727dbe5f3 -r b10cc49f6c37 lisp/=gnus.el
--- a/lisp/=gnus.el	Fri May 27 08:17:46 1994 +0000
+++ b/lisp/=gnus.el	Fri May 27 09:11:50 1994 +0000
@@ -3940,6 +3940,7 @@
 If prefix argument ALL is non-nil, all articles are marked as read."
   (interactive "P")
   (if (or quietly
+	  (not gnus-interactive-catchup) ;Without confirmation?
 	  (y-or-n-p
 	   (if all
 	       "Do you really want to mark everything as read? "
@@ -3966,6 +3967,7 @@
 If prefix argument ALL is non-nil, all articles are marked as read."
   (interactive "P")
   (if (or quietly
+	  (not gnus-interactive-catchup) ;Without confirmation?
 	  (y-or-n-p
 	   (if all
 	       "Do you really want to mark everything as read? "