HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/mh-e/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/mh-e/mh-tool-bar.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require mh-e tool-bar] 2)
#@86 Interactively call `mh-tool-bar-search-function'.
Optional argument ARG is not used.
(defalias 'mh-tool-bar-search #[(&optional arg) "\301!\207" [mh-tool-bar-search-function call-interactively] 2 (#$ . 475) "P"])
#@40 Call `mh-customize' from the tool bar.
(defalias 'mh-tool-bar-customize #[nil "\300\301!\207" [mh-customize t] 2 (#$ . 695) nil])
#@20 Visit "(mh-e)Top".
(defalias 'mh-tool-bar-folder-help #[nil "\300\301!\210\302 \207" [info "(mh-e)Top" delete-other-windows] 2 (#$ . 831) nil])
#@31 Visit "(mh-e)Editing Drafts".
(defalias 'mh-tool-bar-letter-help #[nil "\300\301!\210\302 \207" [info "(mh-e)Editing Drafts" delete-other-windows] 2 (#$ . 981) nil])
#@175 Generate FUNCTION that replies to RECIPIENT.
If FOLDER-BUFFER-FLAG is nil then the function generated...
When INCLUDE-FLAG is non-nil, include message body being replied to.
(defalias 'mh-tool-bar-reply-generator '(macro . #[(function recipient folder-buffer-flag) "\303\304\305\306	\"\307\n?\205\310\311\312	\313BBB\257\207" [function recipient folder-buffer-flag defun (&optional arg) format "Reply to \"%s\".\nWhen ARG is non-nil include message in reply." (interactive "P") (set-buffer mh-show-folder-buffer) mh-reply (mh-get-msg-num nil) (arg)] 10 (#$ . 1154)]))
#@64 Reply to "from".
When ARG is non-nil include message in reply.
(defalias 'mh-tool-bar-reply-from #[(&optional arg) "\301\302\303!\304#\207" [arg mh-reply mh-get-msg-num nil "from"] 4 (#$ . 1732) "P"])
#@64 Reply to "from".
When ARG is non-nil include message in reply.
(defalias 'mh-show-tool-bar-reply-from #[(&optional arg) "q\210\302\303\304!\305	#\207" [mh-show-folder-buffer arg mh-reply mh-get-msg-num nil "from"] 4 (#$ . 1940) "P"])
#@62 Reply to "to".
When ARG is non-nil include message in reply.
(defalias 'mh-tool-bar-reply-to #[(&optional arg) "\301\302\303!\304#\207" [arg mh-reply mh-get-msg-num nil "to"] 4 (#$ . 2181) "P"])
#@62 Reply to "to".
When ARG is non-nil include message in reply.
(defalias 'mh-show-tool-bar-reply-to #[(&optional arg) "q\210\302\303\304!\305	#\207" [mh-show-folder-buffer arg mh-reply mh-get-msg-num nil "to"] 4 (#$ . 2383) "P"])
#@63 Reply to "all".
When ARG is non-nil include message in reply.
(defalias 'mh-tool-bar-reply-all #[(&optional arg) "\301\302\303!\304#\207" [arg mh-reply mh-get-msg-num nil "all"] 4 (#$ . 2618) "P"])
#@63 Reply to "all".
When ARG is non-nil include message in reply.
(defalias 'mh-show-tool-bar-reply-all #[(&optional arg) "q\210\302\303\304!\305	#\207" [mh-show-folder-buffer arg mh-reply mh-get-msg-num nil "all"] 4 (#$ . 2823) "P"])
#@2013 Define a tool bar for MH-E.
DEFAULTS is the list of buttons that are present by default. It
is a list of lists where the sublists are of the following form:

  (:KEYWORD FUNC1 FUNC2 FUNC3 ...)

Here :KEYWORD is one of :folder or :letter. If it is :folder then
the default buttons in the folder and show mode buffers are being
specified. If it is :letter then the default buttons in the
letter mode are listed. FUNC1, FUNC2, FUNC3, ... are the names of
the functions that the buttons would execute.

Each element of BUTTONS is a list consisting of four mandatory
items and one optional item as follows:

  (FUNCTION MODES ICON DOC &optional ENABLE-EXPR)

where,

  FUNCTION is the name of the function that will be executed when
  the button is clicked.

  MODES is a list of symbols. List elements must be from "folder",
  "letter" and "sequence". If "folder" is present then the button is
  available in the folder and show buffer. If the name of FUNCTION is
  of the form "mh-foo", where foo is some arbitrary string, then we
  check if the function `mh-show-foo' exists. If it exists then that
  function is used in the show buffer. Otherwise the original function
  `mh-foo' is used in the show buffer as well. Presence of "sequence"
  is handled similar to the above. The only difference is that the
  button is shown only when the folder is narrowed to a sequence. If
  "letter" is present in MODES, then the button is available during
  draft editing and runs FUNCTION when clicked.

  ICON is the icon that is drawn in the button.

  DOC is the documentation for the button. It is used in tool-tips and
  in providing other help to the user. GNU Emacs uses only the first
  line of the string. So the DOC should be formatted such that the
  first line is useful and complete without the rest of the string.

  Optional item ENABLE-EXPR is an arbitrary lisp expression. If it
  evaluates to nil, then the button is inactive, otherwise it is
  active. If it isn't present then the button is always active.
(defalias 'mh-tool-bar-define '(macro . #[(defaults &rest buttons) "\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211-)@A*BC.+D\306E\211F\203ZF@\211E@\307=\203EEA\202QE@\310=\203QEAFA\211F\2042*G\306H\211F\203F@\211H<\203\200HG\311\232\204\206HG\312\232\204\206\313\314H\"\210H@I\315I!J\316H8K\306L\317H8M\320\321M\"\203\260\322\323M\"\202\262MN\324HG\311\"\203\301\325\202\305\311H8OHA@P\306\211QR\326P>\203\340\310IDQ\327P>\204\356\330P>\203<\331\327P>\203\372\307\202\373\332IDQ\"Q\320\333J\"\203\334\335\322\323J\"P!\202IR\331\327P>\203'\336\202(\337\340R!\2034R\2026IDQ\"QQ\211Q\203Q@SQA@T\315S!\323\306OUS\341\267\202k\301\202l\301\202l\300\202l\302VS\342\267\202y\343\202z\344W\334\345U\346JR!X\334U\347P!YS\350\267\202\242\351\202\243\352\202\243\352\202\243\353\211Z\354\267\202\263\355\202\264\356\202\264\306[\357V\360L\361TD\325M\257\"\210\357Y\362\363\361IDWE\364\365K\361TD\361XD\366N\367\361OD\257	E\"\210\357ZI\"\210[\203\377\357[N\"\210.	QAA\211Q\204D.FA\211F\204f*+\237+)\237)*\237*-\237-.\237.\n\237	\237\237\f\306E\211F\203^F@\211E+>\204U\313\370E\"\210FA\211F\204C*\306E\211F\203\204F@\211E)>\204{\313\371E\"\210FA\211F\204i*\372\373\374\375\376\377\306\362\201l\201m\201n\201o\201p\201q\201r\331C\237\201s\"BBE\201o\201t\201q\201u\331B\237\201v\"BBE\201o\201w\201q\201x\331A\237\201y\"BBE\201o\201z\201q\201{\331@\237\201|\"BBE\257EF\376\201}\306\362\201~\201m\201\201o\201\200\201q\201\201\331
\237\201\202\"BBEEEF\201\203BBBB\201\204\201\205\201\206\201W+\\\306H\n]\306\2110^\\:\203s\\@H]:\203s]@0\201\207\361HD0E^B^\\A\\]A]\202A^\237-BE\201\205\201\210\201W*_\306H	`\306\2110a_:\203\304_@H`:\203\304`@0\201\207\361HD0EaBa_A_`A`\202\222a\237-BE\201\205\201\211\201W)b\306Hc\306\2110db:\203b@Hc:\203c@0\201\207\361HD0EdBdbAbcAc\202\343d\237-BE\201\212BBBB\201\213\201\214\361\201W\201\215\201\216\f\"BD\201\217\201\220\201\221\201\222\201\223\201\224\361\201\225+e\306E.f\306\211ghe:\203\220e@Ef:\203\220f@g\201\226\201\227gEFhBheAefAf\202]h\237-BD\257\n\201\213\201\230\361\201W\201\215\201\231\"BD\201\232\201\220\201\233\201\222\201\234\201\224\361\201\225)i\306E-j\306\211gki:\203i@Ej:\203j@g\201\226\201\227gEFkBkiAijAj\202\323k\237-BD\257\n\257.\207" [letter-vectors show-vectors folder-vectors letter-defaults folder-defaults letter-button-setter nil :folder :letter 4 5 error "Incorrect MH-E tool-bar button specification: %s" symbol-name 2 3 string-match "\\(.*\\)\n" match-string 1 eql t letter folder sequence append :sequence "^mh-\\(.*\\)$" intern "mh-show-" :show :show-seq fboundp #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:show 351 :show-seq 355 :letter 359)) #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:letter 373)) mh-tool-bar-letter-buttons mh-tool-bar-folder-buttons "mh-" "-tool-bar-" "-button-setter" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:letter 406 :show 410 :show-seq 414)) letter-buttons show-buttons folder-buttons #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (letter-buttons 427 folder-buttons 431)) letter-docs folder-docs add-to-list vector quote when member mh-funcall-if-exists tool-bar-add-item :help :enable "Folder defaults contains unknown button %s" "Letter defaults contains unknown button %s" eval-when (compile load eval) mh-do-in-gnu-emacs (defun mh-buffer-exists-p (mode) "Test whether a buffer with major mode MODE is present." (loop for buf in (buffer-list) when (with-current-buffer buf (eq major-mode mode)) return t)) defun mh-tool-bar-folder-buttons-init show-seq-button-setter show-button-setter sequence-button-setter folder-button-setter defaults x --dolist-tail-- buttons button name name-str icon xemacs-icon full-doc doc enable-expr modes functions show-sym type function type1 vector-list list key setter mbuttons docs #1=#:--cl-var-- #2=#:--cl-var-- #3=#:--cl-var-- #4=#:--cl-var-- #5=#:--cl-var-- #6=#:--cl-var-- #7=#:--cl-var-- #8=#:--cl-var-- #9=#:--cl-var-- #10=#:--cl-var-- #11=#:--cl-var-- y #12=#:--cl-var-- #13=#:--cl-var-- #14=#:--cl-var-- #15=#:--cl-var-- (mh-buffer-exists-p 'mh-folder-mode) let* ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) (image-load-path (cons (car load-path) (when (boundp 'image-load-path) image-load-path)))) setq mh-folder-tool-bar-map let ((tool-bar-map (make-sparse-keymap))) (tool-bar-map) mh-folder-seq-tool-bar-map ((tool-bar-map (copy-keymap mh-folder-tool-bar-map))) (tool-bar-map) mh-show-tool-bar-map ((tool-bar-map (make-sparse-keymap))) (tool-bar-map) mh-show-seq-tool-bar-map ((tool-bar-map (copy-keymap mh-show-tool-bar-map))) (tool-bar-map) mh-tool-bar-letter-buttons-init (mh-buffer-exists-p 'mh-letter-mode) ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) (image-load-path (cons (car load-path) (when (boundp 'image-load-path) image-load-path)))) mh-letter-tool-bar-map ((tool-bar-map (make-sparse-keymap))) (tool-bar-map) ((defun mh-tool-bar-update (mode default-map sequence-map) "Update `tool-bar-map' in all buffers of MODE.\nUse SEQUENCE-MAP if display is limited; DEFAULT-MAP otherwise." (loop for buf in (buffer-list) do (with-current-buffer buf (if (eq mode major-mode) (let ((map (if mh-folder-view-stack sequence-map default-map))) (set (make-local-variable 'tool-bar-map) map)))))) (defun mh-tool-bar-folder-buttons-set (symbol value) "Construct tool bar for `mh-folder-mode' and `mh-show-mode'." (set-default symbol value) (mh-tool-bar-folder-buttons-init) (mh-tool-bar-update 'mh-folder-mode mh-folder-tool-bar-map mh-folder-seq-tool-bar-map) (mh-tool-bar-update 'mh-show-mode mh-show-tool-bar-map mh-show-seq-tool-bar-map)) (defun mh-tool-bar-letter-buttons-set (symbol value) "Construct tool bar for `mh-letter-mode'." (set-default symbol value) (mh-tool-bar-letter-buttons-init) (mh-tool-bar-update 'mh-letter-mode mh-letter-tool-bar-map mh-letter-tool-bar-map))) mh-do-in-xemacs defvar mh-tool-bar-folder-vector-map cons mh-tool-bar-show-vector-map mh-tool-bar-letter-vector-map ((defvar mh-tool-bar-folder-buttons) (defvar mh-tool-bar-show-buttons) (defvar mh-tool-bar-letter-buttons) (defun mh-tool-bar-letter-buttons-set (symbol value) (set-default symbol value) (when mh-xemacs-has-tool-bar-flag (setq mh-tool-bar-letter-buttons (loop for b in value collect (cdr (assoc b mh-tool-bar-letter-vector-map)))))) (defun mh-tool-bar-folder-buttons-set (symbol value) (set-default symbol value) (when mh-xemacs-has-tool-bar-flag (setq mh-tool-bar-folder-buttons (loop for b in value collect (cdr (assoc b mh-tool-bar-folder-vector-map)))) (setq mh-tool-bar-show-buttons (loop for b in value collect (cdr (assoc b mh-tool-bar-show-vector-map)))))) (defun mh-tool-bar-init (mode) "Install tool bar in MODE." (when mh-xemacs-use-tool-bar-flag (let ((tool-bar (cond ((eq mode :folder) mh-tool-bar-folder-buttons) ((eq mode :letter) mh-tool-bar-letter-buttons) ((eq mode :show) mh-tool-bar-show-buttons))) (height 37) (width 40) (buffer (current-buffer))) (cond ((eq mh-xemacs-tool-bar-position 'top) (set-specifier top-toolbar tool-bar buffer) (set-specifier top-toolbar-visible-p t) (set-specifier top-toolbar-height height)) ((eq mh-xemacs-tool-bar-position 'bottom) (set-specifier bottom-toolbar tool-bar buffer) (set-specifier bottom-toolbar-visible-p t) (set-specifier bottom-toolbar-height height)) ((eq mh-xemacs-tool-bar-position 'left) (set-specifier left-toolbar tool-bar buffer) (set-specifier left-toolbar-visible-p t) (set-specifier left-toolbar-width width)) ((eq mh-xemacs-tool-bar-position 'right) (set-specifier right-toolbar tool-bar buffer) (set-specifier right-toolbar-visible-p t) (set-specifier right-toolbar-width width)) (t (set-specifier default-toolbar tool-bar buffer))))))) custom-declare-variable 'mh-tool-bar-folder-buttons mapcar #[(x) "\301D\207" [x quote] 2] "List of buttons to include in MH-Folder tool bar." :group 'mh-tool-bar :set 'mh-tool-bar-folder-buttons-set :type set const :tag 'mh-tool-bar-letter-buttons #[(x) "\301D\207" [x quote] 2] "List of buttons to include in MH-Letter tool bar." 'mh-tool-bar 'mh-tool-bar-letter-buttons-set] 22 (#$ . 3063)]))
#@56 Test whether a buffer with major mode MODE is present.
(defalias 'mh-buffer-exists-p #[(mode) "\306 \307\310\307:\203/@r	q\210\f
)=\203$\310\307\211\202%\310\203/A\211\202\n,\207" [#1=#:--cl-var-- buf #2=#:--cl-var-- #3=#:--cl-var-- major-mode mode buffer-list nil t] 3 (#$ . 13658)])
(defalias 'mh-tool-bar-folder-buttons-init #[nil "\306\307!\205\247\310\311\312\"\211@\313\301!\205	B\314 \315\235\2030\316\317!\2030\317\320\315\321\322\323\324\325&\210\326\235\203G\316\317!\203G\317\327\326\330\322\331\324\325&\210\332\235\203^\316\317!\203^\317\333\332\334\322\335\324\325&\210\336\235\203u\316\317!\203u\317\337\336\340\322\341\324\325&\210\342\235\203\214\316\317!\203\214\317\343\342\344\322\345\324\325&\210\346\235\203\243\316\317!\203\243\317\347\346\350\322\351\324\325&\210\352\235\203\272\316\317!\203\272\317\353\352\354\322\355\324\325&\210\356\235\203\321\316\317!\203\321\317\357\356\360\322\361\324\362&\210\363\235\203\350\316\317!\203\350\317\364\363\365\322\366\324\367&\210\370\235\203\377\316\317!\203\377\317\371\370\372\322\373\324\325&\210\374\235\203\316\317!\203\317\375\374\376\322\377\324\325&\210\201B\235\2037\316\317!\2037\317\201C\201B\201D\322\201E\324\325&\210\201F\235\203X\316\317!\203X\317\201G\201F\201H\322\201I\324\325&\210\201J\235\203y\316\317!\203y\317\201K\201J\201L\322\201M\324\325&\210\201N\235\203\232\316\317!\203\232\317\201O\201N\201P\322\201Q\324\325&\210\201R\235\203\275\316\317!\203\275\317\201S\201R\201T\322\201U\324\201V&\210\201W\235\203\336\316\317!\203\336\317\201X\201W\201Y\322\201Z\324\325&\210\201[\235\203\377\316\317!\203\377\317\201\\\201[\201]\322\201^\324\325&\210\201_\235\203 \316\317!\203 \317\201`\201_\201a\322\201b\324\325&\210\201c\235\203A\316\317!\203A\317\201d\201c\201e\322\201f\324\325&\210\201g\235\203b\316\317!\203b\317\201h\201g\201i\322\201j\324\325&\210\201k\235\203\203\316\317!\203\203\317\201l\201k\201m\322\201n\324\325&\210\201o\235\203\244\316\317!\203\244\317\201p\201o\201q\322\201r\324\325&\210\n)\201s\f!\201t\235\203\316\316\317!\203\316\317\201u\201t\201v\322\201w\324\325&\210\n)\314 \315\235\203\355\316\317!\203\355\317\320\315\201x\322\323\324\325&\210\326\235\203\316\317!\203\317\327\326\201y\322\331\324\325&\210\332\235\203\316\317!\203\317\333\332\201z\322\335\324\325&\210\336\235\2038\316\317!\2038\317\337\336\201{\322\341\324\325&\210\342\235\203Q\316\317!\203Q\317\343\342\201|\322\345\324\325&\210\346\235\203j\316\317!\203j\317\347\346\201}\322\351\324\325&\210\352\235\203\203\316\317!\203\203\317\353\352\201~\322\355\324\325&\210\356\235\203\234\316\317!\203\234\317\357\356\201\322\361\324\362&\210\363\235\203\265\316\317!\203\265\317\364\363\201\200\322\366\324\367&\210\370\235\203\316\316\317!\203\316\317\371\370\201\201\322\373\324\325&\210\374\235\203\347\316\317!\203\347\317\375\374\201\202\322\377\324\325&\210\201B\235\203\316\317!\203\317\201C\201B\201\203\322\201E\324\325&\210\201F\235\203)\316\317!\203)\317\201G\201F\201\204\322\201I\324\325&\210\201J\235\203J\316\317!\203J\317\201K\201J\201\205\322\201M\324\325&\210\201N\235\203k\316\317!\203k\317\201O\201N\201\206\322\201Q\324\325&\210\201R\235\203\216\316\317!\203\216\317\201S\201R\201\207\322\201U\324\201V&\210\201W\235\203\257\316\317!\203\257\317\201X\201W\201\210\322\201Z\324\325&\210\201[\235\203\320\316\317!\203\320\317\201\\\201[\201\211\322\201^\324\325&\210\201_\235\203\361\316\317!\203\361\317\201`\201_\201\212\322\201b\324\325&\210\201c\235\203\316\317!\203\317\201d\201c\201\213\322\201f\324\325&\210\201g\235\2033\316\317!\2033\317\201h\201g\201\214\322\201j\324\325&\210\201k\235\203T\316\317!\203T\317\201l\201k\201\215\322\201n\324\325&\210\201o\235\203u\316\317!\203u\317\201p\201o\201\216\322\201r\324\325&\210\n)@\201s@!\201t\235\203\241\316\317!\203\241\317\201u\201t\201\217\322\201w\324\325&\210\n)\211A*\207" [load-path image-load-path tool-bar-map mh-tool-bar-folder-buttons mh-folder-tool-bar-map mh-folder-seq-tool-bar-map mh-buffer-exists-p mh-folder-mode mh-image-load-path-for-library "mh-e" "mh-logo.xpm" boundp make-sparse-keymap mh-inc-folder fboundp tool-bar-add-item "mail/inbox" mh-folder-tool-bar-mh-inc-folder :help "Incorporate new mail in Inbox" :enable t mh-mime-save-parts "attach" mh-folder-tool-bar-mh-mime-save-parts "Save MIME parts from this message" mh-previous-undeleted-msg "left-arrow" mh-folder-tool-bar-mh-previous-undeleted-msg "Go to the previous undeleted message" mh-page-msg "next-page" mh-folder-tool-bar-mh-page-msg "Page the current message forwards" mh-next-undeleted-msg "right-arrow" mh-folder-tool-bar-mh-next-undeleted-msg "Go to the next undeleted message" mh-delete-msg "delete" mh-folder-tool-bar-mh-delete-msg "Mark this message for deletion" mh-refile-msg "mail/move" mh-folder-tool-bar-mh-refile-msg "Refile this message" mh-undo "undo" mh-folder-tool-bar-mh-undo "Undo last operation" (mh-outstanding-commands-p) mh-execute-commands "data-save" mh-folder-tool-bar-mh-execute-commands "Perform moves and deletes" (mh-outstanding-commands-p) mh-toggle-tick "mail/flag-for-followup" mh-folder-tool-bar-mh-toggle-tick "Toggle tick mark" mh-toggle-showing "show" mh-folder-tool-bar-mh-toggle-showing "Toggle showing message" mh-show-tool-bar-map mh-show-seq-tool-bar-map mh-reply "mail/reply" mh-folder-tool-bar-mh-reply "Reply to this message" mh-tool-bar-reply-from "mail/reply-from" mh-folder-tool-bar-mh-tool-bar-reply-from "Reply to \"from\"" mh-tool-bar-reply-to "mail/reply-to" mh-folder-tool-bar-mh-tool-bar-reply-to "Reply to \"to\"" mh-tool-bar-reply-all "mail/reply-all" mh-folder-tool-bar-mh-tool-bar-reply-all "Reply to \"all\"" mh-alias-grab-from-field "contact" mh-folder-tool-bar-mh-alias-grab-from-field "Create alias for sender" (and (mh-extract-from-header-value) (not (mh-alias-for-from-p))) mh-send "mail/compose" mh-folder-tool-bar-mh-send "Compose new message" mh-rescan-folder "refresh" mh-folder-tool-bar-mh-rescan-folder "Rescan this folder" mh-pack-folder "mail/repack" mh-folder-tool-bar-mh-pack-folder "Repack this folder" mh-tool-bar-search "search" mh-folder-tool-bar-mh-tool-bar-search "Search" mh-visit-folder "open" mh-folder-tool-bar-mh-visit-folder "Visit other folder" mh-tool-bar-customize "preferences" mh-folder-tool-bar-mh-tool-bar-customize "MH-E Preferences" mh-tool-bar-folder-help "help" mh-folder-tool-bar-mh-tool-bar-folder-help "Help! (general help)" copy-keymap mh-widen "zoom-out" mh-sequence-tool-bar-mh-widen "Widen from the sequence" mh-show-tool-bar-mh-inc-folder mh-show-tool-bar-mh-mime-save-parts mh-show-tool-bar-mh-previous-undeleted-msg mh-show-tool-bar-mh-page-msg mh-show-tool-bar-mh-next-undeleted-msg mh-show-tool-bar-mh-delete-msg mh-show-tool-bar-mh-refile-msg mh-show-tool-bar-mh-undo mh-show-tool-bar-mh-execute-commands mh-show-tool-bar-mh-toggle-tick mh-show-tool-bar-mh-toggle-showing mh-show-tool-bar-mh-reply mh-show-tool-bar-mh-tool-bar-reply-from mh-show-tool-bar-mh-tool-bar-reply-to mh-show-tool-bar-mh-tool-bar-reply-all mh-show-tool-bar-mh-alias-grab-from-field mh-show-tool-bar-mh-send mh-show-tool-bar-mh-rescan-folder mh-show-tool-bar-mh-pack-folder mh-show-tool-bar-mh-tool-bar-search mh-show-tool-bar-mh-visit-folder mh-show-tool-bar-mh-tool-bar-customize mh-show-tool-bar-mh-tool-bar-folder-help mh-show-seq-tool-bar-mh-widen] 9])
(defalias 'mh-tool-bar-letter-buttons-init #[nil "\305\306!\205\307\310\311\"\211@\312\301!\205	B\313 \314\235\2030\315\316!\2030\316\317\314\320\321\322\323\324&\210\325\235\203G\315\316!\203G\316\326\325\327\321\330\323\331&\210\332\235\203^\315\316!\203^\316\333\332\334\321\335\323\324&\210\336\235\203u\315\316!\203u\316\337\336\340\321\341\323\324&\210\342\235\203\214\315\316!\203\214\316\343\342\344\321\345\323\324&\210\346\235\203\243\315\316!\203\243\316\347\346\350\321\351\323\324&\210\352\235\203\272\315\316!\203\272\316\353\352\354\321\355\323\324&\210\356\235\203\321\315\316!\203\321\316\357\356\360\321\361\323\324&\210\362\235\203\350\315\316!\203\350\316\363\362\364\321\365\323\324&\210\366\235\203\377\315\316!\203\377\316\367\366\370\321\371\323\324&\210\372\235\203\315\316!\203\316\373\372\374\321\375\323\324&\210\n)\211*\207" [load-path image-load-path tool-bar-map mh-tool-bar-letter-buttons mh-letter-tool-bar-map mh-buffer-exists-p mh-letter-mode mh-image-load-path-for-library "mh-e" "mh-logo.xpm" boundp make-sparse-keymap mh-send-letter fboundp tool-bar-add-item "mail/send" mh-letter-tool-bar-mh-send-letter :help "Send this letter" :enable t save-buffer "save" mh-letter-tool-bar-save-buffer "Save current buffer to its file" (buffer-modified-p) mh-fully-kill-draft "delete" mh-letter-tool-bar-mh-fully-kill-draft "Kill this draft" mh-compose-insertion "attach" mh-letter-tool-bar-mh-compose-insertion "Insert attachment" ispell-message "spell" mh-letter-tool-bar-ispell-message "Check spelling" undo "undo" mh-letter-tool-bar-undo "Undo last operation" clipboard-kill-region "cut" mh-letter-tool-bar-clipboard-kill-region "Cut (kill) text in region" clipboard-kill-ring-save "copy" mh-letter-tool-bar-clipboard-kill-ring-save "Copy text in region" clipboard-yank "paste" mh-letter-tool-bar-clipboard-yank "Paste (yank) text cut or copied earlier" mh-tool-bar-customize "preferences" mh-letter-tool-bar-mh-tool-bar-customize "MH-E Preferences" mh-tool-bar-letter-help "help" mh-letter-tool-bar-mh-tool-bar-letter-help "Help! (general help)"] 9])
#@110 Update `tool-bar-map' in all buffers of MODE.
Use SEQUENCE-MAP if display is limited; DEFAULT-MAP otherwise.
(defalias 'mh-tool-bar-update #[(mode default-map sequence-map) "\306 \307:\2034@r	q\210\n=\203,\f\203
\202!\n\310\311!\210	))A\211\202*\307\207" [#1=#:--cl-var-- buf mode major-mode mh-folder-view-stack sequence-map buffer-list nil make-local-variable tool-bar-map default-map map] 3 (#$ . 23465)])
#@61 Construct tool bar for `mh-folder-mode' and `mh-show-mode'.
(defalias 'mh-tool-bar-folder-buttons-set #[(symbol value) "\306	\"\210\307 \210\310\311\n#\210\310\312\f
#\207" [symbol value mh-folder-tool-bar-map mh-folder-seq-tool-bar-map mh-show-tool-bar-map mh-show-seq-tool-bar-map set-default mh-tool-bar-folder-buttons-init mh-tool-bar-update mh-folder-mode mh-show-mode] 4 (#$ . 23901)])
#@42 Construct tool bar for `mh-letter-mode'.
(defalias 'mh-tool-bar-letter-buttons-set #[(symbol value) "\303	\"\210\304 \210\305\306\n\211#\207" [symbol value mh-letter-tool-bar-map set-default mh-tool-bar-letter-buttons-init mh-tool-bar-update mh-letter-mode] 4 (#$ . 24301)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\305\306\315\310\316&	\210\317\305!\207" [custom-declare-variable mh-tool-bar-folder-buttons (list 'mh-inc-folder 'mh-mime-save-parts 'mh-previous-undeleted-msg 'mh-page-msg 'mh-next-undeleted-msg 'mh-delete-msg 'mh-refile-msg 'mh-undo 'mh-execute-commands 'mh-toggle-tick 'mh-reply 'mh-alias-grab-from-field 'mh-send 'mh-rescan-folder 'mh-tool-bar-search 'mh-visit-folder 'mh-tool-bar-customize 'mh-tool-bar-folder-help 'mh-widen) "List of buttons to include in MH-Folder tool bar." :group mh-tool-bar :set mh-tool-bar-folder-buttons-set :type (set (const :tag "Incorporate new mail in Inbox" mh-inc-folder) (const :tag "Save MIME parts from this message" mh-mime-save-parts) (const :tag "Go to the previous undeleted message" mh-previous-undeleted-msg) (const :tag "Page the current message forwards" mh-page-msg) (const :tag "Go to the next undeleted message" mh-next-undeleted-msg) (const :tag "Mark this message for deletion" mh-delete-msg) (const :tag "Refile this message" mh-refile-msg) (const :tag "Undo last operation" mh-undo) (const :tag "Perform moves and deletes" mh-execute-commands) (const :tag "Toggle tick mark" mh-toggle-tick) (const :tag "Toggle showing message" mh-toggle-showing) (const :tag "Reply to this message" mh-reply) (const :tag "Reply to \"from\"" mh-tool-bar-reply-from) (const :tag "Reply to \"to\"" mh-tool-bar-reply-to) (const :tag "Reply to \"all\"" mh-tool-bar-reply-all) (const :tag "Create alias for sender" mh-alias-grab-from-field) (const :tag "Compose new message" mh-send) (const :tag "Rescan this folder" mh-rescan-folder) (const :tag "Repack this folder" mh-pack-folder) (const :tag "Search" mh-tool-bar-search) (const :tag "Visit other folder" mh-visit-folder) (const :tag #1="MH-E Preferences" mh-tool-bar-customize) (const :tag "Help! (general help)" mh-tool-bar-folder-help) (const :tag "Widen from the sequence" mh-widen)) mh-tool-bar-letter-buttons (list 'mh-send-letter 'save-buffer 'mh-fully-kill-draft 'mh-compose-insertion 'ispell-message 'undo 'clipboard-kill-region 'clipboard-kill-ring-save 'clipboard-yank 'mh-tool-bar-customize 'mh-tool-bar-letter-help) "List of buttons to include in MH-Letter tool bar." mh-tool-bar-letter-buttons-set (set (const :tag "Send this letter" mh-send-letter) (const :tag "Save current buffer to its file" save-buffer) (const :tag "Kill this draft" mh-fully-kill-draft) (const :tag "Insert attachment" mh-compose-insertion) (const :tag "Check spelling" ispell-message) (const :tag "Undo last operation" undo) (const :tag "Cut (kill) text in region" clipboard-kill-region) (const :tag "Copy text in region" clipboard-kill-ring-save) (const :tag "Paste (yank) text cut or copied earlier" clipboard-yank) (const :tag #1# mh-tool-bar-customize) (const :tag "Help! (general help)" mh-tool-bar-letter-help)) provide] 10)