gnus-group.el (gnus-group-make-tool-bar): Check for display graphic capability before...

gnus-group.el (gnus-group-insert-group-line): Remove useless gnus-group-remove-excess-properties.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index c368d84cccf503562777b69c2288e18c1a978750..84dc4258347e8f450954c4c780a04b9c15545f06 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,10 @@
+2010-10-29  Julien Danjou  <julien@danjou.info>
+
+       * gnus-group.el (gnus-group-make-tool-bar): Check for display graphic
+       capability before doing anything.
+       (gnus-group-insert-group-line): Remove useless
+       gnus-group-remove-excess-properties.
+
 2010-10-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-goto-part): Work for article narrowed by ^L.

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 3f3cd24963f9def069b909a9330fa2b119fadfdb..a777beb7485b1ff9b591c470fab54acddefef41a 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1090,8 +1090,7 @@ When FORCE, rebuild the tool bar."
   (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 @@ if it is a string, only list groups matching REGEXP."
     (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.

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index bd78c6aef35a090821f6570bf135996dfcb5d555..965f789587e20dfb991d93f30b1f60cf9789b52a 100644 (file)
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -308,9 +308,6 @@ be set in `.emacs' instead."
   :group 'gnus-start
   :type 'boolean)
 
-(unless (fboundp 'gnus-group-remove-excess-properties)
-  (defalias 'gnus-group-remove-excess-properties 'ignore))
-
 (unless (featurep 'gnus-xmas)
   (defalias 'gnus-make-overlay 'make-overlay)
   (defalias 'gnus-delete-overlay 'delete-overlay)