Mercurial > emacs
comparison lisp/=gnus.el @ 7705:b10cc49f6c37
(gnus-summary-catchup): Check gnus-interactive-catchup.
(gnus-summary-catchup-and-exit): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 27 May 1994 09:11:50 +0000 |
| parents | 67b7d1ea7b2e |
| children | 4a683dc76931 |
comparison
equal
deleted
inserted
replaced
| 7704:022727dbe5f3 | 7705:b10cc49f6c37 |
|---|---|
| 3938 (defun gnus-summary-catchup (all &optional quietly) | 3938 (defun gnus-summary-catchup (all &optional quietly) |
| 3939 "Mark all articles not marked as unread in this newsgroup as read. | 3939 "Mark all articles not marked as unread in this newsgroup as read. |
| 3940 If prefix argument ALL is non-nil, all articles are marked as read." | 3940 If prefix argument ALL is non-nil, all articles are marked as read." |
| 3941 (interactive "P") | 3941 (interactive "P") |
| 3942 (if (or quietly | 3942 (if (or quietly |
| 3943 (not gnus-interactive-catchup) ;Without confirmation? | |
| 3943 (y-or-n-p | 3944 (y-or-n-p |
| 3944 (if all | 3945 (if all |
| 3945 "Do you really want to mark everything as read? " | 3946 "Do you really want to mark everything as read? " |
| 3946 "Delete all articles not marked as unread? "))) | 3947 "Delete all articles not marked as unread? "))) |
| 3947 (let ((unmarked | 3948 (let ((unmarked |
| 3964 (defun gnus-summary-catchup-and-exit (all &optional quietly) | 3965 (defun gnus-summary-catchup-and-exit (all &optional quietly) |
| 3965 "Mark all articles not marked as unread in this newsgroup as read, then exit. | 3966 "Mark all articles not marked as unread in this newsgroup as read, then exit. |
| 3966 If prefix argument ALL is non-nil, all articles are marked as read." | 3967 If prefix argument ALL is non-nil, all articles are marked as read." |
| 3967 (interactive "P") | 3968 (interactive "P") |
| 3968 (if (or quietly | 3969 (if (or quietly |
| 3970 (not gnus-interactive-catchup) ;Without confirmation? | |
| 3969 (y-or-n-p | 3971 (y-or-n-p |
| 3970 (if all | 3972 (if all |
| 3971 "Do you really want to mark everything as read? " | 3973 "Do you really want to mark everything as read? " |
| 3972 "Delete all articles not marked as unread? "))) | 3974 "Delete all articles not marked as unread? "))) |
| 3973 (let ((unmarked | 3975 (let ((unmarked |