Mercurial > emacs
comparison lisp/mh-e/mh-show.el @ 69245:f3bbf5f32462
* mh-folder.el (mh-tool-bar-init): Autoload.
(mh-folder-mode): Call mh-tool-bar-init conditionally in XEmacs. Set
scoped variables image-load-path and load-path with updated
mh-image-load-path before calling mh-tool-bar-folder-buttons-init.
* mh-letter.el (mh-tool-bar-init): Autoload.
(mh-letter-mode): Call mh-tool-bar-init conditionally in XEmacs. Set
scoped variables image-load-path and load-path with updated
mh-image-load-path before calling mh-tool-bar-letter-buttons-init.
* mh-show.el (mh-tool-bar-init): Autoload.
(mh-show-mode): Perform tool bar stuff conditionally in XEmacs and GNU
Emacs.
* mh-tool-bar.el (mh-tool-bar-define): Don't quote stuff in error
messages per conventions.
(mh-tool-bar-folder-buttons-init)
(mh-tool-bar-letter-buttons-init): Don't call mh-image-load-path.
(mh-tool-bar-define call): Format.
* mh-utils.el (mh-image-directory, mh-image-load-path-called-flag):
Delete.
(mh-image-load-path): Incorporate changes from Gnus team. Biggest
changes are that it no longer uses/sets mh-image-directory or
mh-image-load-path-called-flag, and returns the updated path rather
than change it.
(mh-logo-display): Change usage of mh-image-load-path.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Fri, 03 Mar 2006 00:27:49 +0000 |
| parents | 4cb528cc4c04 |
| children | 0e0916499a15 |
comparison
equal
deleted
inserted
replaced
| 69244:b89c722dac50 | 69245:f3bbf5f32462 |
|---|---|
| 33 | 33 |
| 34 ;;; Code: | 34 ;;; Code: |
| 35 | 35 |
| 36 (require 'mh-e) | 36 (require 'mh-e) |
| 37 (require 'mh-scan) | 37 (require 'mh-scan) |
| 38 | |
| 39 ;; Dynamically-created function not found in mh-loaddefs.el. | |
| 40 (autoload 'mh-tool-bar-init "mh-tool-bar") | |
| 38 | 41 |
| 39 (require 'font-lock) | 42 (require 'font-lock) |
| 40 (require 'gnus-cite) | 43 (require 'gnus-cite) |
| 41 (require 'gnus-util) | 44 (require 'gnus-util) |
| 42 (require 'goto-addr) | 45 (require 'goto-addr) |
| 828 The hook `mh-show-mode-hook' is called upon entry to this mode. | 831 The hook `mh-show-mode-hook' is called upon entry to this mode. |
| 829 | 832 |
| 830 See also `mh-folder-mode'. | 833 See also `mh-folder-mode'. |
| 831 | 834 |
| 832 \\{mh-show-mode-map}" | 835 \\{mh-show-mode-map}" |
| 836 (mh-do-in-gnu-emacs | |
| 837 (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map)) | |
| 838 (mh-do-in-xemacs | |
| 839 (mh-tool-bar-init :show)) | |
| 833 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator) | 840 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator) |
| 834 (setq paragraph-start (default-value 'paragraph-start)) | 841 (setq paragraph-start (default-value 'paragraph-start)) |
| 835 (mh-show-unquote-From) | 842 (mh-show-unquote-From) |
| 836 (mh-show-xface) | 843 (mh-show-xface) |
| 837 (mh-show-addr) | 844 (mh-show-addr) |
| 851 (t | 858 (t |
| 852 (setq font-lock-defaults '(mh-show-font-lock-keywords t)))) | 859 (setq font-lock-defaults '(mh-show-font-lock-keywords t)))) |
| 853 (if (and mh-xemacs-flag | 860 (if (and mh-xemacs-flag |
| 854 font-lock-auto-fontify) | 861 font-lock-auto-fontify) |
| 855 (turn-on-font-lock)) | 862 (turn-on-font-lock)) |
| 856 (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map) | |
| 857 (mh-funcall-if-exists mh-tool-bar-init :show) | |
| 858 (when mh-decode-mime-flag | 863 (when mh-decode-mime-flag |
| 859 (mh-make-local-hook 'kill-buffer-hook) | 864 (mh-make-local-hook 'kill-buffer-hook) |
| 860 (add-hook 'kill-buffer-hook 'mh-mime-cleanup nil t)) | 865 (add-hook 'kill-buffer-hook 'mh-mime-cleanup nil t)) |
| 861 (easy-menu-add mh-show-sequence-menu) | 866 (easy-menu-add mh-show-sequence-menu) |
| 862 (easy-menu-add mh-show-message-menu) | 867 (easy-menu-add mh-show-message-menu) |