Synch to No Gnus 200511302306.
authoryamaoka <yamaoka>
Wed, 30 Nov 2005 23:06:28 +0000 (23:06 +0000)
committeryamaoka <yamaoka>
Wed, 30 Nov 2005 23:06:28 +0000 (23:06 +0000)
lisp/ChangeLog
lisp/gnus-xmas.el
lisp/messagexmas.el

index 5ef53cb..a7f0930 100644 (file)
@@ -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.
index 0962b9a..70ddeba 100644 (file)
@@ -614,7 +614,10 @@ the resulting string may be narrower than END-COLUMN.
              ((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
index 31438db..67f9a6a 100644 (file)
 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