diff options
| author | Julien Danjou <julien@danjou.info> | 2010-10-29 11:24:23 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-29 11:24:23 +0000 |
| commit | 8674173394ab9450429e7af6fc29a7e86cd9e2bc (patch) | |
| tree | 7a5cb81279d45caf46fc5ea849d4aaf2b4adbc65 /lisp/gnus/gnus-group.el | |
| parent | aeeb3dcb656d2df4421f3c0a8b6416a5c1ea94a7 (diff) | |
| download | emacs-8674173394ab9450429e7af6fc29a7e86cd9e2bc.tar.gz emacs-8674173394ab9450429e7af6fc29a7e86cd9e2bc.tar.bz2 emacs-8674173394ab9450429e7af6fc29a7e86cd9e2bc.zip | |
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.
Diffstat (limited to 'lisp/gnus/gnus-group.el')
| -rw-r--r-- | lisp/gnus/gnus-group.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 3f3cd24963f..a777beb7485 100644 --- 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. |