* gnus-sum.el (gnus-summary-make-tool-bar): Add checks for XEmacs

[gnus] / lisp / gnus-sum.el

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 15f2d94..eb11a9b 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2765,7 +2765,10 @@ See `gmm-tool-bar-from-list' for the format of the list."
 (defun gnus-summary-make-tool-bar (&optional force)
   "Make a summary mode tool bar from `gnus-summary-tool-bar'.
 When FORCE, rebuild the tool bar."
-  (when (or (not gnus-summary-tool-bar-map) force)
+  (when (and (not (featurep 'xemacs))
+            (boundp 'tool-bar-mode)
+            tool-bar-mode
+            (or (not gnus-summary-tool-bar-map) force))
     (let ((map (when (default-value 'tool-bar-mode)
                 (let ((load-path (mm-image-load-path)))
                   (gmm-tool-bar-from-list gnus-summary-tool-bar