diff lisp/mh-e/mh-utils.el @ 67656:76690fbcd56a

* mh-customize.el (mh-toolbar): Rename to mh-tool-bar. (mh-tool-bar-search-function): Sync docstrings with manual. (mh-tool-bar-customize): Replace toolbar with tool bar in docstring. (mh-tool-bar-letter-help): Fix manual reference. (mh-xemacs-use-toolbar-flag): Rename to mh-xemacs-use-tool-bar-flag. Initialize to mh-xemacs-has-tool-bar-flag. Sync docstrings with manual. (mh-xemacs-toolbar-position): Rename to mh-xemacs-tool-bar-position. Initialize to nil. Drop "no tool bar" option (redundant) and change "Same As Default Tool Bar" setting to nil. Sync docstrings with manual. (mh-tool-bar-define): Replace toolbar with tool-bar or tool bar depending on context. (mh-toolbar-init): Rename to mh-tool-bar-init. Simplified condition for calling set-specifier. Only look at the value of mh-xemacs-use-tool-bar-flag. (mh-tool-bar-folder-buttons, mh-tool-bar-letter-buttons): Sync docstrings with manual. * mh-comp.el (mh-letter-mode): Use mh-tool-bar-init instead of mh-toolbar-init. * mh-e.el (mh-folder-mode): Ditto. * mh-utils.el (mh-show-mode): Ditto.

--- a/lisp/mh-e/mh-utils.el	Mon Dec 19 04:49:42 2005 +0000
+++ b/lisp/mh-e/mh-utils.el	Mon Dec 19 05:37:02 2005 +0000
@@ -1120,7 +1120,7 @@
            font-lock-auto-fontify)
       (turn-on-font-lock))
   (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map)
-  (mh-funcall-if-exists mh-toolbar-init :show)
+  (mh-funcall-if-exists mh-tool-bar-init :show)
   (when mh-decode-mime-flag
     (mh-make-local-hook 'kill-buffer-hook)
     (add-hook 'kill-buffer-hook 'mh-mime-cleanup nil t))