;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require mh-e tool-bar] 2)
#@106 Interactively call `mh-tool-bar-search-function'.
Optional argument ARG is not used.

(fn &optional ARG)
(defalias 'mh-tool-bar-search #[256 "\301!\207" [mh-tool-bar-search-function call-interactively] 3 (#$ . 152) "P"])
#@40 Call `mh-customize' from the tool bar.
(defalias 'mh-tool-bar-customize #[0 "\300\301!\207" [mh-customize t] 2 (#$ . 380) nil])
#@20 Visit "(mh-e)Top".
(defalias 'mh-tool-bar-folder-help #[0 "\300\301!\210\302 \207" [info "(mh-e)Top" delete-other-windows] 2 (#$ . 514) nil])
#@31 Visit "(mh-e)Editing Drafts".
(defalias 'mh-tool-bar-letter-help #[0 "\300\301!\210\302 \207" [info "(mh-e)Editing Drafts" delete-other-windows] 2 (#$ . 662) nil])
#@219 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.

(fn FUNCTION RECIPIENT FOLDER-BUFFER-FLAG)
(defalias 'mh-tool-bar-reply-generator '(macro . #[771 "\300\301\302\303\"\304?\205\305\306\307	\310BBB\257\207" [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)] 13 (#$ . 833)]))
#@84 Reply to "from".
When ARG is non-nil include message in reply.

(fn &optional ARG)
(defalias 'mh-tool-bar-reply-from #[256 "\300\301\302!\303#\207" [mh-reply mh-get-msg-num nil "from"] 5 (#$ . 1381) "P"])
#@84 Reply to "from".
When ARG is non-nil include message in reply.

(fn &optional ARG)
(defalias 'mh-show-tool-bar-reply-from #[256 "q\210\301\302\303!\304#\207" [mh-show-folder-buffer mh-reply mh-get-msg-num nil "from"] 5 (#$ . 1593) "P"])
#@82 Reply to "to".
When ARG is non-nil include message in reply.

(fn &optional ARG)
(defalias 'mh-tool-bar-reply-to #[256 "\300\301\302!\303#\207" [mh-reply mh-get-msg-num nil "to"] 5 (#$ . 1838) "P"])
#@82 Reply to "to".
When ARG is non-nil include message in reply.

(fn &optional ARG)
(defalias 'mh-show-tool-bar-reply-to #[256 "q\210\301\302\303!\304#\207" [mh-show-folder-buffer mh-reply mh-get-msg-num nil "to"] 5 (#$ . 2044) "P"])
#@83 Reply to "all".
When ARG is non-nil include message in reply.

(fn &optional ARG)
(defalias 'mh-tool-bar-reply-all #[256 "\300\301\302!\303#\207" [mh-reply mh-get-msg-num nil "all"] 5 (#$ . 2283) "P"])
#@83 Reply to "all".
When ARG is non-nil include message in reply.

(fn &optional ARG)
(defalias 'mh-show-tool-bar-reply-all #[256 "q\210\301\302\303!\304#\207" [mh-show-folder-buffer mh-reply mh-get-msg-num nil "all"] 5 (#$ . 2492) "P"])
#@2042 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.

(fn DEFAULTS &rest BUTTONS)
(defalias 'mh-tool-bar-define '(macro . #[385 "\306\211\306\211\306\211\306\211@*\306\211,A\306\211BC\306\211#!\306\"
\211\203N\211@\211@\307=\203<\211AB\202G\211@\310=\203G\211AC
A\266\202\202(\210\211\211\203\262
\211@\211<\203i\211G\311=\204n\211G\312=\204n\313\314\"\210\211@\315
!\3168\3178\320\321\"\203\207\322\323\"\202\210\211G\311=\203\223\324\202\227\3118A@\306\211\325>\203\251\310	D\262\326>\204\265\327>\203\375\330\326>\203\300\307\202\301\331\nD\"\262\320\332	\"\203\334\333\334\322\323\"P!\202\336\262
\330\326>\203\353\335\202\354\336\337!\203\366\202\370\nD\"\262
\211\203\251
\211@
A@\315!\323\306O\340\267\202
\341\202 
\341\202 
\342\202 
\343\310=\203*
\344\202+
\345\333\346\347R!\333\350P!\351\267\202K
\352\202L
\304\202L
\304\202L
\300\211\353\267\202Z
\354\202[
\301\202[
\306\355\356\306\357\fD\324\257\"\210\355\360\361\357D	E\362\363\357D\357\fD\364\365\357D\257	E\"\210\355\"\210\211\203\237
\355
\"\210\266	\211AA\262
\202\376\266\n
A\266\202\202P\210\237*\237*\f\237,\237,	\237#\237#!\237!\"\237\"B\211\203\357
\211@\211>\204\350
\313\366\"\210
A\266\202\202\327
\210C\211\203\211@\211*>\204\313\367\"\210
A\266\202\202\362
\210\370\371\372\373\374\306\360\375\376\377\201D\201E\201F\201G\330\n\237\201H\"BBE\201D\201I\201F\201J\330\237\201K\"BBE\201D\201L\201F\201M\330
\237\201N\"BBE\201D\201O\201F\201P\330@\237\201Q\"BBE\257EF\373\201R\306\360\201S\376\201T\201D\201U\201F\201V\330A\237\201W\"BBEEEF\201XBBBB\201Y\201Z\201[\201\\\306#\306\211:\203\334@\262:\203\334@\262\201]\357DE
B\262
A\262A\262\202\263\211\237\266\205BE\201Z\201^\201\\\f\306!\306\211:\203@\262:\203@\262\201]\357DE
B\262
A\262A\262\202\361\211\237\266\205BE\201Z\201_\201\\*\306\"\306\211:\203Y@\262:\203Y@\262\201]\357DE
B\262
A\262A\262\2020\211\237\266\205BE\201`BBBB\201a\201b\357\201\\\201c\201dB\"BD\201e\201f\201g\201h\201i\201j\357\201k\306	\306\211:\203\301@\262:\203\301@\262\201l\201mF
B\262
A\262A\262\202\226\211\237\266\205BD\257\n\201a\201n\357\201\\\201c\201oC\"BD\201p\201f\201q\201h\201r\201j\357\201k*\306,\306\211:\203&@\262:\203&@\262\201l\201mF
B\262
A\262A\262\202\373\211\237\266\205BD\257\n\257.\207" [folder-buttons folder-docs folder-button-setter sequence-button-setter show-buttons show-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 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 275 :show-seq 279 :letter 283)) show-vectors letter-vectors folder-vectors 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 319 :show 323 :show-seq 327)) letter-buttons #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (letter-buttons 338 folder-buttons 342)) letter-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-and-compile mh-do-in-gnu-emacs (defun mh-buffer-exists-p (mode) "Test whether a buffer with major mode MODE is present." (cl-loop for buf in (buffer-list) when (with-current-buffer buf (eq major-mode mode)) return t)) defun mh-tool-bar-folder-buttons-init (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)))) show-seq-button-setter letter-button-setter folder-defaults letter-defaults 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." (cl-loop for buf in (buffer-list) do (with-current-buffer buf (when (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 list 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 (cl-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 (cl-loop for b in value collect (cdr (assoc b mh-tool-bar-folder-vector-map)))) (setq mh-tool-bar-show-buttons (cl-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 #[257 "\300
D\207" [quote] 3 "\n\n(fn X)"] "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 #[257 "\300
D\207" [quote] 3 "\n\n(fn X)"] "List of buttons to include in MH-Letter tool bar." 'mh-tool-bar #'mh-tool-bar-letter-buttons-set] 38 (#$ . 2736)]))
#@67 Test whether a buffer with major mode MODE is present.

(fn MODE)
(defalias 'mh-buffer-exists-p #[257 "\301 \302\211\211:\203.@\262rq\210)=\203#\303\262
\302\211\262\202$\303\203.A\262\202\207" [major-mode buffer-list nil t] 7 (#$ . 12691)])
(defalias 'mh-tool-bar-folder-buttons-init #[0 "\306\307!\205\247\310\311\312\"\211@\313\301!\205	B\314 \315>\2030\316\317!\2030\317\320\315\321\322\323\324\325&\210\326>\203G\316\317!\203G\317\327\326\330\322\331\324\325&\210\332>\203^\316\317!\203^\317\333\332\334\322\335\324\325&\210\336>\203u\316\317!\203u\317\337\336\340\322\341\324\325&\210\342>\203\214\316\317!\203\214\317\343\342\344\322\345\324\325&\210\346>\203\243\316\317!\203\243\317\347\346\350\322\351\324\325&\210\352>\203\272\316\317!\203\272\317\353\352\354\322\355\324\325&\210\356>\203\321\316\317!\203\321\317\357\356\360\322\361\324\362&\210\363>\203\350\316\317!\203\350\317\364\363\365\322\366\324\367&\210\370>\203\377\316\317!\203\377\317\371\370\372\322\373\324\325&\210\374>\203
\316\317!\203
\317\375\374\376\322\377\324\325&\210\201B>\2037
\316\317!\2037
\317\201C\201B\201D\322\201E\324\325&\210\201F>\203X
\316\317!\203X
\317\201G\201F\201H\322\201I\324\325&\210\201J>\203y
\316\317!\203y
\317\201K\201J\201L\322\201M\324\325&\210\201N>\203\232
\316\317!\203\232
\317\201O\201N\201P\322\201Q\324\325&\210\201R>\203\275
\316\317!\203\275
\317\201S\201R\201T\322\201U\324\201V&\210\201W>\203\336
\316\317!\203\336
\317\201X\201W\201Y\322\201Z\324\325&\210\201[>\203\377
\316\317!\203\377
\317\201\\\201[\201]\322\201^\324\325&\210\201_>\203 \316\317!\203 \317\201`\201_\201a\322\201b\324\325&\210\201c>\203A\316\317!\203A\317\201d\201c\201e\322\201f\324\325&\210\201g>\203b\316\317!\203b\317\201h\201g\201i\322\201j\324\325&\210\201k>\203\203\316\317!\203\203\317\201l\201k\201m\322\201n\324\325&\210\201o>\203\244\316\317!\203\244\317\201p\201o\201q\322\201r\324\325&\210\n)\201s\f!\201t>\203\316\316\317!\203\316\317\201u\201t\201v\322\201w\324\325&\210\n)\314 \315>\203\355\316\317!\203\355\317\320\315\201x\322\323\324\325&\210\326>\203\316\317!\203\317\327\326\201y\322\331\324\325&\210\332>\203\316\317!\203\317\333\332\201z\322\335\324\325&\210\336>\2038\316\317!\2038\317\337\336\201{\322\341\324\325&\210\342>\203Q\316\317!\203Q\317\343\342\201|\322\345\324\325&\210\346>\203j\316\317!\203j\317\347\346\201}\322\351\324\325&\210\352>\203\203\316\317!\203\203\317\353\352\201~\322\355\324\325&\210\356>\203\234\316\317!\203\234\317\357\356\201\322\361\324\362&\210\363>\203\265\316\317!\203\265\317\364\363\201\200\322\366\324\367&\210\370>\203\316\316\317!\203\316\317\371\370\201\201\322\373\324\325&\210\374>\203\347\316\317!\203\347\317\375\374\201\202\322\377\324\325&\210\201B>\203\316\317!\203\317\201C\201B\201\203\322\201E\324\325&\210\201F>\203)\316\317!\203)\317\201G\201F\201\204\322\201I\324\325&\210\201J>\203J\316\317!\203J\317\201K\201J\201\205\322\201M\324\325&\210\201N>\203k\316\317!\203k\317\201O\201N\201\206\322\201Q\324\325&\210\201R>\203\216\316\317!\203\216\317\201S\201R\201\207\322\201U\324\201V&\210\201W>\203\257\316\317!\203\257\317\201X\201W\201\210\322\201Z\324\325&\210\201[>\203\320\316\317!\203\320\317\201\\\201[\201\211\322\201^\324\325&\210\201_>\203\361\316\317!\203\361\317\201`\201_\201\212\322\201b\324\325&\210\201c>\203\316\317!\203\317\201d\201c\201\213\322\201f\324\325&\210\201g>\2033\316\317!\2033\317\201h\201g\201\214\322\201j\324\325&\210\201k>\203T\316\317!\203T\317\201l\201k\201\215\322\201n\324\325&\210\201o>\203u\316\317!\203u\317\201p\201o\201\216\322\201r\324\325&\210\n)@\201s@!\201t>\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 #[0 "\305\306!\205
\307\310\311\"\211@\312\301!\205	B\313 \314>\2030\315\316!\2030\316\317\314\320\321\322\323\324&\210\325>\203G\315\316!\203G\316\326\325\327\321\330\323\331&\210\332>\203^\315\316!\203^\316\333\332\334\321\335\323\324&\210\336>\203u\315\316!\203u\316\337\336\340\321\341\323\324&\210\342>\203\214\315\316!\203\214\316\343\342\344\321\345\323\324&\210\346>\203\243\315\316!\203\243\316\347\346\350\321\351\323\324&\210\352>\203\272\315\316!\203\272\316\353\352\354\321\355\323\324&\210\356>\203\321\315\316!\203\321\316\357\356\360\321\361\323\324&\210\362>\203\350\315\316!\203\350\316\363\362\364\321\365\323\324&\210\366>\203\377\315\316!\203\377\316\367\366\370\321\371\323\324&\210\372>\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])
#@146 Update `tool-bar-map' in all buffers of MODE.
Use SEQUENCE-MAP if display is limited; DEFAULT-MAP otherwise.

(fn MODE DEFAULT-MAP SEQUENCE-MAP)
(defalias 'mh-tool-bar-update #[771 "\303 \304
:\203,
@\262
r\211q\210=\203$	\203\202\305\302!\210)
A\262\202\304\207" [major-mode mh-folder-view-stack tool-bar-map buffer-list nil make-local-variable] 8 (#$ . 22272)])
#@80 Construct tool bar for `mh-folder-mode' and `mh-show-mode'.

(fn SYMBOL VALUE)
(defalias 'mh-tool-bar-folder-buttons-set #[514 "\304\"\210\305 \210\306\307	#\210\306\310\n#\207" [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] 6 (#$ . 22656)])
#@61 Construct tool bar for `mh-letter-mode'.

(fn SYMBOL VALUE)
(defalias 'mh-tool-bar-letter-buttons-set #[514 "\301\"\210\302 \210\303\304\211#\207" [mh-letter-tool-bar-map set-default mh-tool-bar-letter-buttons-init mh-tool-bar-update mh-letter-mode] 6 (#$ . 23050)])
(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)