Mercurial > hg > xemacs-beta

diff lisp/toolbar-items.el @ 363:972bbb6d6ca2 r21-1-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-11
author cvs
date Mon, 13 Aug 2007 10:59:28 +0200
parents 70ad99077275
children a4f53d9b3154
line wrap: on
line diff
--- a/lisp/toolbar-items.el	Mon Aug 13 10:58:41 2007 +0200
+++ b/lisp/toolbar-items.el	Mon Aug 13 10:59:28 2007 +0200
@@ -382,18 +382,19 @@
     (unless (frame-live-p toolbar-news-frame)
       (setq toolbar-news-frame (make-frame toolbar-news-frame-plist))
       (add-hook 'gnus-exit-gnus-hook
-		(lambda ()
-		  (when (frame-live-p toolbar-news-frame)
-		    (if (cdr (frame-list))
-			(delete-frame toolbar-news-frame))
-		    (setq toolbar-news-frame nil))))
+                (lambda ()
+                  (when (frame-live-p toolbar-news-frame)
+                    (if (cdr (frame-list))
+                        (delete-frame toolbar-news-frame))
+                    (setq toolbar-news-frame nil))))
       (select-frame toolbar-news-frame)
       (gnus))
     (when (framep toolbar-news-frame)
       (when (frame-iconified-p toolbar-news-frame)
-	(deiconify-frame toolbar-news-frame))
+        (deiconify-frame toolbar-news-frame))
       (select-frame toolbar-news-frame)
-      (raise-frame toolbar-news-frame))))
+      (raise-frame toolbar-news-frame)
+      (switch-to-buffer gnus-group-buffer))))
 
 (defun toolbar-news ()
   "Run News."