Index: gnus-group.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-group.el,v retrieving revision 7.55 diff -u -u -b -r7.55 gnus-group.el --- gnus-group.el 26 Oct 2005 14:53:25 -0000 7.55 +++ gnus-group.el 31 Oct 2005 23:36:13 -0000 @@ -1049,7 +1056,7 @@ (gnus-group-make-tool-bar)) (gnus-simplify-mode-line) (setq major-mode 'gnus-group-mode) - (setq mode-name "Group") + (setq mode-name gnus-group-mode-line-string) (gnus-group-set-mode-line) (setq mode-line-process nil) (use-local-map gnus-group-mode-map) @@ -3176,9 +3183,11 @@ (gnus-group-real-name group) (nth 1 method) all))) (if (>= (gnus-group-level group) gnus-level-zombie) (gnus-message 2 "Dead groups can't be caught up") - (if (prog1 + (if (condition-case nil + (prog1 (gnus-group-goto-group group) (gnus-group-catchup group all)) + (t nil)) (gnus-group-update-group-line) (setq ret (1+ ret))))) (gnus-group-next-unread-group 1)