diff options
author | Dave Love <[email protected]> | 2000-11-08 23:39:05 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2000-11-08 23:39:05 +0000 |
commit | 78f164bac1d6f25a3b6708646317cc8c09beb48f (patch) | |
tree | 6bfd4add67953c4555aead2b0abcd76e6c3f58c3 /lisp | |
parent | 7cd26120b6b26d7bf58c316c73b107db0643ceb8 (diff) |
2000-11-09 Lars Magne Ingebrigtsen <[email protected]>
* gnus-start.el (gnus-read-active-file, gnus-activate-group):
Issue message on quit.
2000-11-09 ShengHuo ZHU <[email protected]>
* gnus-start.el: Remove gnus-xemacs.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/gnus/gnus-start.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index f6c1651ce2..ea81a60ad4 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -1385,7 +1385,9 @@ newsgroup." (condition-case () (inline (gnus-request-group group dont-check method)) ;;(error nil) - (quit nil)) + (quit + (message "Quit activating %s" group) + nil)) (setq active (gnus-parse-active)) ;; If there are no articles in the group, the GROUP ;; command may have responded with the `(0 . 0)'. We @@ -1738,7 +1740,9 @@ newsgroup." (gnus-read-active-file-1 method force) ;; We catch C-g so that we can continue past servers ;; that do not respond. - (quit nil))))))) + (quit + (message "Quit reading the active file") + nil))))))) (defun gnus-read-active-file-1 (method force) (let (where mesg) |