* gnus-xmas.el (gnus-use-toolbar): Determine the default value according to

 default-toolbar-visible-p.

* messagexmas.el (message-use-toolbar): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d2ea53..ce0cb0e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2005-11-30  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-xmas.el (gnus-use-toolbar): Determine the default value
+       according to default-toolbar-visible-p.
+
+       * messagexmas.el (message-use-toolbar): Ditto.
+
 2005-11-26  Dave Love  <fx@gnu.org>
 
        * tls.el (open-tls-stream): Rename arg SERVICE to PORT.

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index f2a2312..e868a4c 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -537,7 +537,10 @@ call it with the value of the `gnus-data' text property."
              ((eq major-mode 'gnus-summary-mode)
               (gnus-xmas-setup-summary-toolbar)))))))
 
-(defcustom gnus-use-toolbar (if (featurep 'toolbar) 'default)
+(defcustom gnus-use-toolbar
+  (if (and (featurep 'toolbar)
+          (specifier-instance default-toolbar-visible-p))
+      'default)
   "*Position to display the toolbar.  Nil means do not use a toolbar.
 If it is non-nil, it should be one of the symbols `default', `top',
 `bottom', `right', and `left'.  `default' means to use the default

diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el
index 3d6a816..6b0ace0 100644 (file)
--- a/lisp/messagexmas.el
+++ b/lisp/messagexmas.el
@@ -38,7 +38,10 @@
 If this variable is nil, Message will try to locate the directory
 automatically.")
 
-(defvar message-use-toolbar (if (featurep 'toolbar) 'default)
+(defvar message-use-toolbar
+  (if (and (featurep 'toolbar)
+          (specifier-instance default-toolbar-visible-p))
+      'default)
   "*Position to display the toolbar.  Nil means do not use a toolbar.
 If it is non-nil, it should be one of the symbols `default', `top',
 `bottom', `right', and `left'.  `default' means to use the default