Mercurial > emacs

diff lisp/gnus/gnus-group.el @ 111230:bf96ffd54855

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-group.el (gnus-group-make-tool-bar): Check for display graphic capability before doing anything. gnus-group.el (gnus-group-insert-group-line): Remove useless gnus-group-remove-excess-properties.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 29 Oct 2010 11:24:23 +0000
parents c1bfed865afd
children ffb890b32d37
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el	Fri Oct 29 12:49:27 2010 +0200
+++ b/lisp/gnus/gnus-group.el	Fri Oct 29 11:24:23 2010 +0000
@@ -1090,8 +1090,7 @@
   (when (and (not (featurep 'xemacs))
 	     (boundp 'tool-bar-mode)
 	     tool-bar-mode
-	     ;; The Gnus 5.10.6 code checked (default-value 'tool-bar-mode).
-	     ;; Why?  --rsteib
+             (display-graphic-p)
 	     (or (not gnus-group-tool-bar-map) force))
     (let* ((load-path
 	    (gmm-image-load-path-for-library "gnus"
@@ -1607,9 +1606,7 @@
     (when (inline (gnus-visual-p 'group-highlight 'highlight))
       (gnus-group-highlight-line gnus-tmp-group beg end))
     (gnus-run-hooks 'gnus-group-update-hook)
-    (forward-line)
-    ;; Allow XEmacs to remove front-sticky text properties.
-    (gnus-group-remove-excess-properties)))
+    (forward-line)))
 
 (defun gnus-group-update-eval-form (group list)
   "Eval `car' of each element of LIST, and return the first that return t.