Mercurial > hg > xemacs-beta

diff lisp/toolbar-items.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children 8626e4521993
line wrap: on
line diff
--- a/lisp/toolbar-items.el	Mon Aug 13 11:01:58 2007 +0200
+++ b/lisp/toolbar-items.el	Mon Aug 13 11:03:08 2007 +0200
@@ -33,7 +33,7 @@
 ;; is compiled in).
 
 ;; Miscellaneous toolbar functions, useful for users to redefine, in
-;; order to get different behavior.
+;; order to get different behaviour.
 
 ;;; Code:
 
@@ -382,19 +382,18 @@
     (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)
-      (switch-to-buffer gnus-group-buffer))))
+      (raise-frame toolbar-news-frame))))
 
 (defun toolbar-news ()
   "Run News."