Mercurial > emacs
changeset 32964:352449d35643
(message-mode-menu): Add some :help strings.
(message-mode) [message-tool-bar-map]: Define tool-bar-map.
(featurep): Use (featurep 'xemacs). Install tool bar for Emacs.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 27 Oct 2000 17:11:23 +0000 |
| parents | 214c0fec919e |
| children | 13cbb629e3ce |
| files | lisp/gnus/message.el |
| diffstat | 1 files changed, 35 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/message.el Fri Oct 27 16:46:11 2000 +0000 +++ b/lisp/gnus/message.el Fri Oct 27 17:11:23 2000 +0000 @@ -1382,12 +1382,17 @@ ["Kill To Signature" message-kill-to-signature t] ["Newline and Reformat" message-newline-and-reformat t] ["Rename buffer" message-rename-buffer t] - ["Spellcheck" ispell-message t] - ["Attach file as MIME" mml-attach-file t] + ["Spellcheck" ispell-message + :help "Spellcheck this message"] + ["Attach file as MIME" mml-attach-file + :help "Attach a file at point"] "----" - ["Send Message" message-send-and-exit t] - ["Abort Message" message-dont-send t] - ["Kill Message" message-kill-buffer t])) + ["Send Message" message-send-and-exit + :help "Send this message"] + ["Abort Message" message-dont-send + :help "File this draft message and exit"] + ["Kill Message" message-kill-buffer + :help "Delete this message without sending"])) (easy-menu-define message-mode-field-menu message-mode-map "" @@ -1490,7 +1495,9 @@ (if (featurep 'xemacs) (message-setup-toolbar) (set (make-local-variable 'font-lock-defaults) - '(message-font-lock-keywords t))) + '(message-font-lock-keywords t)) + (if (boundp 'message-tool-bar-map) + (set (make-local-variable 'tool-bar-map) message-tool-bar-map))) (easy-menu-add message-mode-menu message-mode-map) (easy-menu-add message-mode-field-menu message-mode-map) ;; Allow mail alias things. @@ -4309,8 +4316,28 @@ (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark) ;; Support for toolbar -(when (string-match "XEmacs\\|Lucid" emacs-version) - (require 'messagexmas)) +(if (featurep 'xemacs) + (require 'messagexmas) + (when (and (fboundp 'tool-bar-add-item-from-menu) + tool-bar-mode) + (defvar message-tool-bar-map + (let ((tool-bar-map (copy-keymap tool-bar-map))) + ;; Zap some items which aren't so relevant and take up space. + (dolist (key '(print-buffer kill-buffer save-buffer write-file + dired open-file)) + (define-key tool-bar-map (vector key) nil)) + + (tool-bar-add-item-from-menu + 'message-send-and-exit "mail_send" message-mode-map) + (tool-bar-add-item-from-menu + 'message-kill-buffer "close" message-mode-map) + (tool-bar-add-item-from-menu + 'message-dont-send "cancel" message-mode-map) + (tool-bar-add-item-from-menu + 'mml-attach-file "attach" message-mode-map) + (tool-bar-add-item-from-menu + 'ispell-message "spell" message-mode-map) + tool-bar-map)))) ;;; Group name completion.