diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-27 09:11:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-27 09:11:50 +0000 |
| commit | 7781a817ad3f15566a9ec32f83bbbea212391406 (patch) | |
| tree | 19bc41a713e5ef72f4cc7b7cca9507dc2eeed05a | |
| parent | 8672a560f666c4817840ecb9a45d772047b65279 (diff) | |
| download | emacs-7781a817ad3f15566a9ec32f83bbbea212391406.tar.gz | |
(gnus-summary-catchup): Check gnus-interactive-catchup.
(gnus-summary-catchup-and-exit): Likewise.
| -rw-r--r-- | lisp/gnus.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index b7ad1d37903..e32eb67a36c 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -3940,6 +3940,7 @@ Optional argument FOLDER specifies folder name." 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." 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? " |