From 78f164bac1d6f25a3b6708646317cc8c09beb48f Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 8 Nov 2000 23:39:05 +0000 Subject: [PATCH] 2000-11-09 Lars Magne Ingebrigtsen * gnus-start.el (gnus-read-active-file, gnus-activate-group): Issue message on quit. 2000-11-09 ShengHuo ZHU * gnus-start.el: Remove gnus-xemacs. --- lisp/gnus/gnus-start.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index f6c1651ce2c..ea81a60ad4b 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) -- 2.39.5