;ELC   
;;; Compiled by jmorzins@kamp-krusty.mit.edu on Mon Oct  3 10:37:36 2005
;;; from file /afs/sipb/contrib/emacs/packages/mh-e-7.82/mh-utils.el
;;; in Emacs version 21.4.1
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`mh-utils.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\301B\302\301!\203 	\250\203 \303	V\203 \303\304\305!\210\304\306!\210\304\307!\210\304\310!\210\311\312\313\211#\210\304\314!\210\304\315!\210\304\316!\210\311\317\313\211#\210\311\320\313\211#\210\311\321\313\211#\210\311\322\313\211#\210\311\323\313\211#\210\324B\325B\326B\327\330\331\"\210\327\332\333\"\210\327\334\333\"\210\304\335!\210\336\337!\204\201 \327\337\340\"\210\301\207" [current-load-list recursive-load-depth-limit boundp 50 require cl gnus-util font-lock mouse load "tool-bar" t mh-loaddefs mh-customize mh-inc "mm-decode" "mm-view" "vcard" "hl-line" "executable" font-lock-auto-fontify font-lock-defaults mark-active autoload gnus-article-highlight-citation "gnus-cite" message-fetch-field "message" message-tokenize-header sendmail fboundp make-hash-table "cl"] 4)
#@169 Return the position of last occurrence of CHAR in STRING.
If CHAR is not present in STRING then return nil. The function is used in lieu
of `search' in the CL package.
(defalias 'mh-search-from-end #[(char string) "GS\305\306	\307Y\203) 	H\f\232\203 	\306\211\202 \305\203) 	S\211\202	 \n?\205/ +\207" [string index #1=#:G3223 #2=#:G3224 char t nil 0] 3 (#$ . 1447)])
#@183 This regexp is used to extract the message number from a scan line.
Note that the message number must be placed in a parenthesized expression as
in the default of "^ *\\([0-9]+\\)".
(defvar mh-scan-msg-number-regexp "^ *\\([0-9]+\\)" (#$ . 1833))
#@72 This regexp matches scan lines in which the message number overflowed.
(defvar mh-scan-msg-overflow-regexp "^[?0-9][0-9]" (#$ . 2086))
#@189 This regexp is used to find the message number width in a scan format.
Note that the message number must be placed in a parenthesized expression as
in the default of "%\\([0-9]*\\)(msg)".
(defvar mh-scan-msg-format-regexp "%\\([0-9]*\\)(msg)" (#$ . 2228))
#@118 This is a format string for width of the message number in a scan format.
Use `0%d' for zero-filled message numbers.
(defvar mh-scan-msg-format-string "%d" (#$ . 2491))
#@195 This format string regexp matches the scan line for a particular message.
Use `%d' to represent the location of the message number within the
expression as in the default of "^[^0-9]*%d[^0-9]".
(defvar mh-scan-msg-search-regexp "^[^0-9]*%d[^0-9]" (#$ . 2667))
#@254 This is the number of characters to skip over before inserting notation.
This variable should be set with the function `mh-set-cmd-note'. This variable
may be updated dynamically if `mh-adaptive-cmd-note-flag' is non-nil and
`mh-scan-format-file' is t.
(defvar mh-cmd-note 4 (#$ . 2934))
(make-variable-buffer-local 'mh-cmd-note)
#@139 Messages in a user-defined sequence are marked by this character.
Messages in the `search' sequence are marked by this character as well.
(defvar mh-note-seq 37 (#$ . 3271))
#@136 Format string to produce `mode-line-buffer-identification' for show buffers.
First argument is folder name.  Second is message number.
(defvar mh-show-buffer-mode-line-buffer-id "    {show-%s} %d" (#$ . 3452))
#@509 *Line used by MH to separate headers from text in messages being composed.
This variable should not be used directly in programs. Programs should use
`mail-header-separator' instead. `mail-header-separator' is initialized to
`mh-mail-header-separator' in `mh-letter-mode'; in other contexts, you may
have to perform this initialization yourself.

Do not make this a regexp as it may be the argument to `insert' and it is
passed through `regexp-quote' before being used by functions like
`re-search-forward'.
(defvar mh-mail-header-separator "--------" (#$ . -3669))
#@72 Regexp used to find signature separator.
See `mh-signature-separator'.
(defvar mh-signature-separator-regexp "^-- $" (#$ . 4241))
#@323 Text of a signature separator.
A signature separator is used to separate the body of a message from the
signature. This can be used by user agents such as MH-E to render the
signature differently or to suppress the inclusion of the signature in a
reply.
Use `mh-signature-separator-regexp' when searching for a separator.
(defvar mh-signature-separator "-- \n" (#$ . 4378))
#@44 Return non-nil if buffer includes "^-- $".
(defalias 'mh-signature-separator-p #[nil "\212eb\210\301\302\303#)\207" [mh-signature-separator-regexp re-search-forward nil t] 4 (#$ . 4758)])
(defalias 'mh-make-buffer-data #[(&rest #1=#:--rest--3228) "\306>A@\307>\206 \310\311 DA@\312>\206 \313A@\314>\206' \310\311 DA@\203V @\315>\203? AA\211\202- \316>A@\203M \310\211\202- \317\320@\"\210\202, )\321	\n\f\257,\207" [#1# handles handles-cache parts-count part-index-hash #2=#:--keys--3229 :handles :handles-cache nil make-hash-table :parts-count (nil 0) :part-index-hash (:handles :handles-cache :parts-count :part-index-hash :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:handles :handles-cache :parts-count :part-index-hash)" mh-buffer-data] 6])
(defalias 'mh-buffer-data-p #[(arg) ":\205	 @\301=\207" [arg mh-buffer-data] 2])
(defalias 'mh-mime-handles '(macro . #[(z) "\301\302E\207" [z nth 1] 3]))
(defalias 'mh-mime-handles-cache '(macro . #[(z) "\301\302E\207" [z nth 2] 3]))
(defalias 'mh-mime-parts-count '(macro . #[(z) "\301\302E\207" [z nth 3] 3]))
(defalias 'mh-mime-part-index-hash '(macro . #[(z) "\301\302E\207" [z nth 4] 3]))
#@74 Convenience macro to get the MIME data structures of the current buffer.
(defalias 'mh-buffer-data '(macro . #[nil "\300\207" [(gethash (current-buffer) mh-globals-hash)] 1 (#$ . 5964)]))
#@49 Keeps track of MIME data on a per buffer basis.
(defvar mh-globals-hash (make-hash-table) (#$ . 6158))
#@47 Non-nil means installed Gnus has PGP support.
(defvar mh-gnus-pgp-support-flag (byte-code "\300\301!??\207" [locate-library "mml2015"] 2) (#$ . 6267))
#@74 Alist of media types/tests saying whether types can be displayed inline.
(defvar mh-mm-inline-media-tests (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322!\203 \322\202 \323\324BB\325BBBBBBBBBBBBBBBBB\207" [("image/jpeg" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'jpeg handle))) ("image/png" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'png handle))) ("image/gif" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'gif handle))) ("image/tiff" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'tiff handle))) ("image/xbm" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'xbm handle))) ("image/x-xbitmap" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'xbm handle))) ("image/xpm" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'xpm handle))) ("image/x-pixmap" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'xpm handle))) ("image/bmp" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'bmp handle))) ("image/x-portable-bitmap" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'pbm handle))) ("text/plain" mm-inline-text identity) ("text/enriched" mm-inline-text identity) ("text/richtext" mm-inline-text identity) ("text/x-patch" mm-display-patch-inline (lambda (handle) (locate-library "diff-mode"))) ("application/emacs-lisp" mm-display-elisp-inline identity) ("application/x-emacs-lisp" mm-display-elisp-inline identity) "text/html" fboundp mm-inline-text-html mm-inline-text ((lambda (handle) (or (and (boundp 'mm-inline-text-html-renderer) mm-inline-text-html-renderer) (and (boundp 'mm-text-html-renderer) mm-text-html-renderer)))) (("text/x-vcard" mm-inline-text-vcard (lambda (handle) (or (featurep 'vcard) (locate-library "vcard")))) ("message/delivery-status" mm-inline-text identity) ("message/rfc822" mh-mm-inline-message identity) ("text/.*" mm-inline-text identity) ("audio/wav" mm-inline-audio (lambda (handle) (and (or (featurep 'nas-sound) (featurep 'native-sound)) (device-sound-enabled-p)))) ("audio/au" mm-inline-audio (lambda (handle) (and (or (featurep 'nas-sound) (featurep 'native-sound)) (device-sound-enabled-p)))) ("application/pgp-signature" ignore identity) ("application/x-pkcs7-signature" ignore identity) ("application/pkcs7-signature" ignore identity) ("application/x-pkcs7-mime" ignore identity) ("application/pkcs7-mime" ignore identity) ("multipart/alternative" ignore identity) ("multipart/mixed" ignore identity) ("multipart/related" ignore identity) ("audio/.*" ignore ignore) ("image/.*" ignore ignore) (".*" mm-inline-text mm-readable-p))] 19) (#$ . 6424))
#@59 A regular expression probably matching an e-mail address.
(defvar mh-address-mail-regexp "[-a-zA-Z0-9._]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" (#$ . 9085))
#@165 Find e-mail address around or before point.
Then search backwards to beginning of line for the start of an e-mail
address.  If no e-mail address found, return nil.
(defalias 'mh-goto-address-find-address-at-point #[nil "\301\302\303 \304#\210\305!\204 \306\307 \304#\205 \310\224b\205 \311\310!\207" [mh-address-mail-regexp re-search-backward "[^-_A-z0-9.@]" line-beginning-position lim looking-at re-search-forward line-end-position 0 match-string-no-properties] 4 (#$ . 9249)])
#@214 Substitute for `mail-header-end' that doesn't widen the buffer.
In MH-E we frequently need to find the end of headers in nested messages, where
the buffer has been narrowed. This function works in this situation.
(defalias 'mh-mail-header-end #[nil "\212eb\210\300\301\215\210`)\207" [--cl-block-nil-- (byte-code "\301\302\303\301\304#\211\204 \305\306\301\"\210\202 \307\224b\210\310\311!\204# \305\306\301\"\210b\210\202 " [p nil re-search-forward "^\\([:\n]\\|[^: 	\n]+[ 	\n]\\)" move throw --cl-block-nil-- 0 looking-at "From "] 5)] 2 (#$ . 9741)])
#@66 Return non-nil if the point is in the header of a draft message.
(defalias 'mh-in-header-p #[nil "`\300 W\207" [mh-mail-header-end] 2 (#$ . 10306)])
#@88 Move to the beginning of the current header field.
Handles RFC 822 continuation lines.
(defalias 'mh-header-field-beginning #[nil "\300 \210\301\302!\205 \303y\210\202 \207" [beginning-of-line looking-at "^[ 	]" -1] 2 (#$ . 10461)])
#@82 Move to the end of the current header field.
Handles RFC 822 continuation lines.
(defalias 'mh-header-field-end #[nil "\300y\210\301\302!\203 \300y\210\202 \303u\207" [1 looking-at "^[ 	]" -1] 2 (#$ . 10702)])
#@75 Return the entire mail header to font-lock.
Argument LIMIT limits search.
(defalias 'mh-letter-header-font-lock #[(limit) "`U?\205, \304 \305\216\306 *\211W\203 \n\202 \307 \205+ \310\311D!\210b\210\312*\207" [limit save-match-data-internal mail-header-end lesser-limit match-data ((set-match-data save-match-data-internal)) mh-mail-header-end mh-in-header-p set-match-data 1 t] 4 (#$ . 10920)])
#@86 Return the value of a header field FIELD to font-lock.
Argument LIMIT limits search.
(defalias 'mh-header-field-font-lock #[(field limit) "`U?\205I \306 \211W\203 	\202 \307`	W\205H \310\311\312\f\"\n\307#\205H \313\224\313\225\314 \210`V\203< b\210\315\211T`F!\210*\307+\207" [limit mail-header-end lesser-limit case-fold-search field match-one-e mh-mail-header-end t re-search-forward format "^%s" 0 mh-header-field-end set-match-data match-one-b] 6 (#$ . 11332)])
#@83 Return the value of a header field To to font-lock.
Argument LIMIT limits search.
(defalias 'mh-header-to-font-lock #[(limit) "\301\302\"\207" [limit mh-header-field-font-lock "To:"] 3 (#$ . 11821)])
#@83 Return the value of a header field cc to font-lock.
Argument LIMIT limits search.
(defalias 'mh-header-cc-font-lock #[(limit) "\301\302\"\207" [limit mh-header-field-font-lock "cc:"] 3 (#$ . 12028)])
#@88 Return the value of a header field Subject to font-lock.
Argument LIMIT limits search.
(defalias 'mh-header-subject-font-lock #[(limit) "\301\302\"\207" [limit mh-header-field-font-lock "Subject:"] 3 (#$ . 12235)])
#@54 Additional expressions to highlight in MH-show mode.
(defvar mh-show-font-lock-keywords '(("^\\(From:\\|Sender:\\)\\(.*\\)" (1 'default) (2 mh-show-from-face)) (mh-header-to-font-lock (0 'default) (1 mh-show-to-face)) (mh-header-cc-font-lock (0 'default) (1 mh-show-cc-face)) ("^\\(Reply-To:\\|Return-Path:\\)\\(.*\\)$" (1 'default) (2 mh-show-from-face)) (mh-header-subject-font-lock (0 'default) (1 mh-show-subject-face)) ("^\\(Apparently-To:\\|Newsgroups:\\)\\(.*\\)" (1 'default) (2 mh-show-cc-face)) ("^\\(In-reply-to\\|Date\\):\\(.*\\)$" (1 'default) (2 mh-show-date-face)) (mh-letter-header-font-lock (0 mh-show-header-face append t))) (#$ . 12457))
#@54 Additional expressions to highlight in MH-show mode.
(defvar mh-show-font-lock-keywords-with-cite '(("^\\(From:\\|Sender:\\)\\(.*\\)" (1 'default) (2 mh-show-from-face)) (mh-header-to-font-lock (0 'default) (1 mh-show-to-face)) (mh-header-cc-font-lock (0 'default) (1 mh-show-cc-face)) ("^\\(Reply-To:\\|Return-Path:\\)\\(.*\\)$" (1 'default) (2 mh-show-from-face)) (mh-header-subject-font-lock (0 'default) (1 mh-show-subject-face)) ("^\\(Apparently-To:\\|Newsgroups:\\)\\(.*\\)" (1 'default) (2 mh-show-cc-face)) ("^\\(In-reply-to\\|Date\\):\\(.*\\)$" (1 'default) (2 mh-show-date-face)) (mh-letter-header-font-lock (0 mh-show-header-face append t)) ("[>|}]" ("\\=[ 	]*\\(\\([A-Za-z]+[A-Za-z0-9_.@-`'\"]*\\)?\\([>|}][ 	]*\\)\\)+\\(.*\\)" (beginning-of-line) (end-of-line) (2 font-lock-constant-face nil t) (4 font-lock-comment-face nil t)))) (#$ . 13120))
(byte-code "\302B\303\302!\204 \304	\305\"\302\207" [current-load-list mh-show-font-lock-keywords-with-cite mh-letter-font-lock-keywords boundp append ((mh-font-lock-field-data (1 'mh-letter-header-field-face prepend t)))] 3)
#@299 Limit font-lock in `mh-show-mode' to the header.
Used when `mh-highlight-citation-p' is set to gnus, leaving the body to be
dealt with by gnus highlighting. The region between BEG and END is
given over to be fontified and LOUDLY controls if a user sees a
message about the fontification operation.
(defalias 'mh-show-font-lock-fontify-region #[(beg end loudly) "\304 	W\203 \nW\203 \305	\n#\202, 	W\203+ \nY\203+ \305	#\202, \306)\207" [header-end beg end loudly mh-mail-header-end font-lock-default-fontify-region nil] 4 (#$ . 14215)])
(byte-code "\203 \301\302!\210\301\303!\210\301\304!\210\301\207" [mh-xemacs-flag require gnus gnus-art gnus-cite] 2)
#@52 Highlight cited text in current buffer using gnus.
(defalias 'mh-gnus-article-highlight-citation #[nil "\204\f \306\307!\210\306\310!\210\311\312!\211\205 \312K\313\216\312\314M\210\315 \316 \317A@C\"\320\321!\210\322!.\207" [mh-xemacs-flag #1=#:--letf-bound--3233 #2=#:--letf-save--3232 modified gnus-article-buffer gnus-cite-face-list require gnus-art gnus-cite fboundp gnus-article-add-button ((byte-code "\203 \302	M\210\202 \303\302!\210\302\207" [#1# #2# gnus-article-add-button fmakunbound] 2)) #[(&rest args) "\300\207" [nil] 1] buffer-modified-p buffer-name append gnus-article-highlight-citation t set-buffer-modified-p] 4 (#$ . 14888) nil])
(byte-code "\301B\306\301!\204\f \307\302B\306\302!\204 \307\303B\306\303!\204$ \307\304B\306\304!\2040 \307\305B\306\305!\204< \307\310B\311\312B\313\n\314B\315\f\316B\317\320B\321\322B\323\324B\325\326B\327\330B\331\332B\333\334B\306\334!\204\217 \335\336B\306\336!\204\234 \307\337B\306\337!\204\251 \307\340B\306\340!\204\266 \307 \341B\306\341!\204\303 \307!\342B\306\342!\204\320 \307\"\343B\306\343!\204\335 \307#\344B\306\344!\204\352 \307$\307\207" [current-load-list mh-user-path mh-draft-folder mh-unseen-seq mh-previous-seq mh-inbox boundp nil mh-temp-buffer " *mh-temp*" mh-temp-fetch-buffer " *mh-fetch*" mh-aliases-buffer "*MH-E Aliases*" mh-folders-buffer "*MH-E Folders*" mh-help-buffer "*MH-E Help*" mh-info-buffer "*MH-E Info*" mh-log-buffer "*MH-E Log*" mh-mail-delivery-buffer "*MH-E Mail Delivery*" mh-recipients-buffer "*MH-E Recipients*" mh-sequences-buffer "*MH-E Sequences*" mh-log-buffer-lines 100 mh-previous-window-config mh-page-to-next-msg-flag mh-current-folder mh-show-buffer mh-folder-filename mh-msg-count mh-showing-mode] 2)
#@33 Keymap used by the show buffer.
(defvar mh-show-mode-map (make-sparse-keymap) (#$ . 16702))
#@57 Keeps track of folder whose message is being displayed.
(defvar mh-show-folder-buffer nil (#$ . 16800))
(byte-code "\301B\302\301!\204\f \303\303\207" [current-load-list mh-logo-cache boundp nil] 2)
#@40 Modify mode line to display MH-E logo.
(defalias 'mh-logo-display #[nil "\302\303\304\305\206 \306\307!\211D	@$\210\310\207" [mh-logo-cache mode-line-buffer-identification add-text-properties 0 2 display find-image ((:type xpm :ascent center :file "mh-logo.xpm")) nil] 6 (#$ . 17008)])
#@94 Change whether messages should be displayed.
With arg, display messages iff ARG is positive.
(defalias 'mh-showing-mode #[(&optional arg) "\204	 	?\202 \302!\303V\211\207" [arg mh-showing-mode prefix-numeric-value 0] 2 (#$ . 17303)])
(byte-code "\301B\304\301!\204\f \305\302B\304\302!\204 \305\303B\304\303!\204$ \305\305\207" [current-load-list mh-seq-list mh-seen-list mh-showing-with-headers boundp nil] 2)
#@320 Format is (with-mh-folder-updating (SAVE-MODIFICATION-FLAG) &body BODY).
Execute BODY, which can modify the folder buffer without having to
worry about file locking or the read-only flag, and return its result.
If SAVE-MODIFICATION-FLAG is non-nil, the buffer's modification
flag is unchanged, otherwise it is cleared.
(defalias 'with-mh-folder-updating '(macro . #[(save-modification-flag &rest body) "@\302\303\304\302\305	B\306BBE?\205 \307BB\207" [save-modification-flag body prog1 let ((mh-folder-updating-mod-flag (buffer-modified-p)) (buffer-read-only nil) (buffer-file-name nil)) progn ((mh-set-folder-modified-p mh-folder-updating-mod-flag)) ((mh-set-folder-modified-p nil))] 6 (#$ . 17735)]))
(put 'with-mh-folder-updating 'lisp-indent-hook 'defun)
#@193 Format is (mh-in-show-buffer (SHOW-BUFFER) &body BODY).
Display buffer SHOW-BUFFER in other window and execute BODY in it.
Stronger than `save-excursion', weaker than `save-window-excursion'.
(defalias 'mh-in-show-buffer '(macro . #[(show-buffer &rest body) "@\302\303\304D\305\306\307	B\310BB\257\207" [show-buffer body let ((mh-in-show-buffer-saved-window (selected-window))) switch-to-buffer-other-window (if mh-bury-show-buffer-flag (bury-buffer (current-buffer))) unwind-protect progn ((select-window mh-in-show-buffer-saved-window))] 7 (#$ . 18505)]))
(put 'mh-in-show-buffer 'lisp-indent-hook 'defun)
#@177 Switch to the location of EVENT and execute BODY.
After BODY has been executed return to original window. The modification flag
of the buffer in the event window is preserved.
(defalias 'mh-do-at-event-location '(macro . #[(event &rest body) "\306\307!\306\310!\306\311!\306\312!\306\313!\314\315\f\316\317\320\321DE\317\304EED\316\317\322\321DE\317\323EED\n\324B	\325\326\327\fDD\330BBD\331B\332BBBBB\333\325\334\fD\335D!BBB\336D\335	D\337	\340BB\334\nD\257E-D\207" [modified-flag original-position original-window event-position event-window event make-symbol "event-window" "event-position" "original-window" "original-position" "modified-flag" save-excursion let* or mh-funcall-if-exists posn-window event-start posn-point event-closest-point ((selected-window)) progn set-buffer window-buffer ((set-marker (make-marker) (point))) ((buffer-modified-p)) ((buffer-read-only nil)) unwind-protect select-window goto-char set-buffer-modified-p set-marker (nil) body] 10 (#$ . 19124)]))
(put 'mh-do-at-event-location 'lisp-indent-hook 'defun)
#@43 Create sequence NAME with the given MSGS.
(defalias 'mh-make-seq '(macro . #[(name msgs) "\302	E\207" [name msgs cons] 3 (#$ . 20186)]))
#@48 Extract sequence name from the given SEQUENCE.
(defalias 'mh-seq-name '(macro . #[(sequence) "\301D\207" [sequence car] 2 (#$ . 20330)]))
#@43 Extract messages from the given SEQUENCE.
(defalias 'mh-seq-msgs '(macro . #[(sequence) "\301D\207" [sequence cdr] 2 (#$ . 20475)]))
#@294 Like recenter but with three improvements:
- At the end of the buffer it tries to show fewer empty lines.
- operates only if the current buffer is in the selected window.
  (Commands like `save-some-buffers' can make this false.)
- nil ARG means recenter as if prefix argument had been given.
(defalias 'mh-recenter #[(arg) "\302p!\303 =\204 \304\207d\212\305 \306\245\306Zy\210`)U\2034 \306\212d\304y\210`V\203- T\202 )\307[!)\207\307	\206: \310!\207" [lines-from-end arg get-buffer-window selected-window nil window-height 2 recenter (4)] 3 (#$ . 20616)])
#@59 Position uninteresting headers off the top of the window.
(defalias 'mh-start-of-uncleaned-message #[nil "\301\302\303\304\301#\210\305 \210\306\307!)\207" [case-fold-search t re-search-forward "^To:\\|^Cc:\\|^From:\\|^Subject:\\|^Date:" nil beginning-of-line mh-recenter 0] 4 (#$ . 21186)])
#@60 Invalidate the show buffer so we must update it to use it.
(defalias 'mh-invalidate-show-buffer #[nil "\301!\205 \212q\210\302 )\207" [mh-show-buffer get-buffer mh-unvisit-file] 2 (#$ . 21485)])
#@64 Separate current buffer from the message file it was visiting.
(defalias 'mh-unvisit-file #[nil "\301 \203 \203 \302\303\304\305!\"!\204 \306\307!\210\310 \210\311 \210\312\211\207" [buffer-file-name buffer-modified-p yes-or-no-p format "Message %s modified; flush changes? " file-name-nondirectory error "Flushing changes not confirmed" clear-visited-file-modtime unlock-buffer nil] 5 (#$ . 21689)])
#@159 Return the message number of the displayed message.
If the argument ERROR-IF-NO-MESSAGE is non-nil, then complain if the cursor is
not pointing to a message.
(defalias 'mh-get-msg-num #[(error-if-no-message) "\212\302 \210\303!\203 \304\305\224\305\225{!\202 	\203 \306\307!\202 \310)\207" [mh-scan-msg-number-regexp error-if-no-message beginning-of-line looking-at string-to-int 1 error "Cursor not pointing to message" nil] 3 (#$ . 22103)])
#@121 Return non-nil if NAME is the name of a folder.
A name (a string or symbol) can be a folder name if it begins with "+".
(defalias 'mh-folder-name-p #[(name) "9\203 \301!\302H\303=\207G\302V\205 \302H\303=\207" [name symbol-name 0 43] 2 (#$ . 22558)])
#@189 Expand FILENAME like `expand-file-name', but also handle MH folder names.
Any filename that starts with '+' is treated as a folder name.
See `expand-file-name' for description of DEFAULT.
(defalias 'mh-expand-file-name #[(filename &optional default) "\303!\203 \304\305\306O	\"\207\304\n\"\207" [filename mh-user-path default mh-folder-name-p expand-file-name 1 nil] 4 (#$ . 22822)])
#@65 Return the file name of MSG in FOLDER (default current folder).
(defalias 'mh-msg-filename #[(msg &optional folder) "\303\304!	\203 \305	!\202 \n\"\207" [msg folder mh-folder-filename expand-file-name int-to-string mh-expand-file-name] 4 (#$ . 23216)])
#@156 Define FUNCTION to run ORIGINAL-FUNCTION in folder buffer.
If the buffer we start in is still visible and DONT-RETURN is nil then switch
to it after that.
(defalias 'mh-defun-show-buffer '(macro . #[(function original-function &optional dont-return) "\303\304\305\306	\n\203 \307\202 \310	$\311\312\313\314\315\316\317\n?\205 \320BBB\321\322\323\324\325\326\327\300	DD\330BB\331\332\333\334\n\203; \335\202< \336E\257\257E\257\207" [function original-function dont-return defun nil format "Calls %s from the message's folder.\n%s\nSee `%s' for more info.\n" "" "When function completes, returns to the show buffer if it is\nstill visible.\n" (interactive) when (buffer-live-p (get-buffer mh-show-folder-buffer)) let (config (current-window-configuration)) (folder-buffer mh-show-folder-buffer) (normal-exit nil) ((cur-buffer-name (buffer-name))) (pop-to-buffer mh-show-folder-buffer nil) (unless (equal (buffer-name (window-buffer (frame-first-window (selected-frame)))) folder-buffer) (delete-other-windows)) (mh-goto-cur-msg t) (mh-funcall-if-exists deactivate-mark) unwind-protect prog1 call-interactively ((setq normal-exit t)) (mh-funcall-if-exists deactivate-mark) (when (eq major-mode 'mh-folder-mode) (mh-funcall-if-exists hl-line-highlight)) cond ((not normal-exit) (set-window-configuration config)) (t (setq mh-previous-window-config config)) ((and (get-buffer cur-buffer-name) (window-live-p (get-buffer-window (get-buffer cur-buffer-name)))) (pop-to-buffer (get-buffer cur-buffer-name) nil))] 20 (#$ . 23479)]))
#@185 Calls mh-previous-undeleted-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-previous-undeleted-msg' for more info.

(defalias 'mh-show-previous-undeleted-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-previous-undeleted-msg mark-active] 4 (#$ . 25018) nil])
#@177 Calls mh-next-undeleted-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-next-undeleted-msg' for more info.

(defalias 'mh-show-next-undeleted-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-next-undeleted-msg mark-active] 4 (#$ . 26173) nil])
#@149 Calls mh-quit from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-quit' for more info.

(defalias 'mh-show-quit #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-quit mark-active] 4 (#$ . 27312) nil])
#@161 Calls mh-delete-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-delete-msg' for more info.

(defalias 'mh-show-delete-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-delete-msg mark-active] 4 (#$ . 28395) nil])
#@161 Calls mh-refile-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-refile-msg' for more info.

(defalias 'mh-show-refile-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-refile-msg mark-active] 4 (#$ . 29502) nil])
#@149 Calls mh-undo from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-undo' for more info.

(defalias 'mh-show-undo #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-undo mark-active] 4 (#$ . 30609) nil])
#@173 Calls mh-execute-commands from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-execute-commands' for more info.

(defalias 'mh-show-execute-commands #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-execute-commands mark-active] 4 (#$ . 31692) nil])
#@75 Calls mh-reply from the message's folder.

See `mh-reply' for more info.

(defalias 'mh-show-reply #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-reply] 4 (#$ . 32822) nil])
#@165 Calls mh-redistribute from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-redistribute' for more info.

(defalias 'mh-show-redistribute #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-redistribute mark-active] 4 (#$ . 33714) nil])
#@79 Calls mh-forward from the message's folder.

See `mh-forward' for more info.

(defalias 'mh-show-forward #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-forward] 4 (#$ . 34828) nil])
#@169 Calls mh-header-display from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-header-display' for more info.

(defalias 'mh-show-header-display #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-header-display mark-active] 4 (#$ . 35728) nil])
#@183 Calls mh-refile-or-write-again from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-refile-or-write-again' for more info.

(defalias 'mh-show-refile-or-write-again #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-refile-or-write-again mark-active] 4 (#$ . 36851) nil])
#@149 Calls mh-show from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-show' for more info.

(defalias 'mh-show-show #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-show mark-active] 4 (#$ . 38002) nil])
#@175 Calls mh-write-msg-to-file from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-write-msg-to-file' for more info.

(defalias 'mh-show-write-message-to-file #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-write-msg-to-file mark-active] 4 (#$ . 39085) nil])
#@107 Calls mh-extract-rejected-mail from the message's folder.

See `mh-extract-rejected-mail' for more info.

(defalias 'mh-show-extract-rejected-mail #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-extract-rejected-mail] 4 (#$ . 40224) nil])
#@181 Calls mh-delete-msg-no-motion from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-delete-msg-no-motion' for more info.

(defalias 'mh-show-delete-msg-no-motion #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-delete-msg-no-motion mark-active] 4 (#$ . 41180) nil])
#@159 Calls mh-first-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-first-msg' for more info.

(defalias 'mh-show-first-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-first-msg mark-active] 4 (#$ . 42327) nil])
#@157 Calls mh-last-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-last-msg' for more info.

(defalias 'mh-show-last-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-last-msg mark-active] 4 (#$ . 43430) nil])
#@157 Calls mh-copy-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-copy-msg' for more info.

(defalias 'mh-show-copy-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-copy-msg mark-active] 4 (#$ . 44529) nil])
#@85 Calls mh-edit-again from the message's folder.

See `mh-edit-again' for more info.

(defalias 'mh-show-edit-again #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-edit-again] 4 (#$ . 45627) nil])
#@157 Calls mh-goto-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-goto-msg' for more info.

(defalias 'mh-show-goto-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-goto-msg mark-active] 4 (#$ . 46539) nil])
#@161 Calls mh-inc-folder from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-inc-folder' for more info.

(defalias 'mh-show-inc-folder #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-inc-folder mark-active] 4 (#$ . 47638) nil])
#@189 Calls mh-delete-subject-or-thread from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-delete-subject-or-thread' for more info.

(defalias 'mh-show-delete-subject-or-thread #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-delete-subject-or-thread mark-active] 4 (#$ . 48745) nil])
#@169 Calls mh-delete-subject from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-delete-subject' for more info.

(defalias 'mh-show-delete-subject #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-delete-subject mark-active] 4 (#$ . 49908) nil])
#@159 Calls mh-print-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-print-msg' for more info.

(defalias 'mh-show-print-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-print-msg mark-active] 4 (#$ . 51031) nil])
#@73 Calls mh-send from the message's folder.

See `mh-send' for more info.

(defalias 'mh-show-send #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-send] 4 (#$ . 52133) nil])
#@93 Calls mh-toggle-showing from the message's folder.

See `mh-toggle-showing' for more info.

(defalias 'mh-show-toggle-showing #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-toggle-showing] 4 (#$ . 53020) nil])
#@81 Calls mh-pipe-msg from the message's folder.

See `mh-pipe-msg' for more info.

(defalias 'mh-show-pipe-msg #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-pipe-msg] 4 (#$ . 53947) nil])
#@163 Calls mh-sort-folder from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-sort-folder' for more info.

(defalias 'mh-show-sort-folder #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-sort-folder mark-active] 4 (#$ . 54851) nil])
#@89 Calls mh-visit-folder from the message's folder.

See `mh-visit-folder' for more info.

(defalias 'mh-show-visit-folder #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-visit-folder] 4 (#$ . 55961) nil])
#@167 Calls mh-rescan-folder from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-rescan-folder' for more info.

(defalias 'mh-show-rescan-folder #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-rescan-folder mark-active] 4 (#$ . 56881) nil])
#@163 Calls mh-pack-folder from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-pack-folder' for more info.

(defalias 'mh-show-pack-folder #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-pack-folder mark-active] 4 (#$ . 58000) nil])
#@87 Calls mh-kill-folder from the message's folder.

See `mh-kill-folder' for more info.

(defalias 'mh-show-kill-folder #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-kill-folder] 4 (#$ . 59110) nil])
#@89 Calls mh-list-folders from the message's folder.

See `mh-list-folders' for more info.

(defalias 'mh-show-list-folders #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-list-folders] 4 (#$ . 60025) nil])
#@91 Calls mh-search-folder from the message's folder.

See `mh-search-folder' for more info.

(defalias 'mh-show-search-folder #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-search-folder] 4 (#$ . 60944) nil])
#@163 Calls mh-undo-folder from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-undo-folder' for more info.

(defalias 'mh-show-undo-folder #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-undo-folder mark-active] 4 (#$ . 61868) nil])
#@179 Calls mh-delete-msg-from-seq from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-delete-msg-from-seq' for more info.

(defalias 'mh-show-delete-msg-from-seq #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-delete-msg-from-seq mark-active] 4 (#$ . 62979) nil])
#@161 Calls mh-delete-seq from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-delete-seq' for more info.

(defalias 'mh-show-delete-seq #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-delete-seq mark-active] 4 (#$ . 64122) nil])
#@169 Calls mh-list-sequences from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-list-sequences' for more info.

(defalias 'mh-show-list-sequences #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-list-sequences mark-active] 4 (#$ . 65229) nil])
#@167 Calls mh-narrow-to-seq from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-narrow-to-seq' for more info.

(defalias 'mh-show-narrow-to-seq #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-narrow-to-seq mark-active] 4 (#$ . 66352) nil])
#@169 Calls mh-put-msg-in-seq from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-put-msg-in-seq' for more info.

(defalias 'mh-show-put-msg-in-seq #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-put-msg-in-seq mark-active] 4 (#$ . 67471) nil])
#@167 Calls mh-msg-is-in-seq from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-msg-is-in-seq' for more info.

(defalias 'mh-show-msg-is-in-seq #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-msg-is-in-seq mark-active] 4 (#$ . 68594) nil])
#@151 Calls mh-widen from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-widen' for more info.

(defalias 'mh-show-widen #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-widen mark-active] 4 (#$ . 69713) nil])
#@175 Calls mh-narrow-to-subject from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-narrow-to-subject' for more info.

(defalias 'mh-show-narrow-to-subject #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-narrow-to-subject mark-active] 4 (#$ . 70800) nil])
#@169 Calls mh-narrow-to-from from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-narrow-to-from' for more info.

(defalias 'mh-show-narrow-to-from #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-narrow-to-from mark-active] 4 (#$ . 71935) nil])
#@165 Calls mh-narrow-to-cc from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-narrow-to-cc' for more info.

(defalias 'mh-show-narrow-to-cc #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-narrow-to-cc mark-active] 4 (#$ . 73058) nil])
#@171 Calls mh-narrow-to-range from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-narrow-to-range' for more info.

(defalias 'mh-show-narrow-to-range #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-narrow-to-range mark-active] 4 (#$ . 74173) nil])
#@165 Calls mh-narrow-to-to from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-narrow-to-to' for more info.

(defalias 'mh-show-narrow-to-to #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-narrow-to-to mark-active] 4 (#$ . 75300) nil])
#@159 Calls mh-store-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-store-msg' for more info.

(defalias 'mh-show-store-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-store-msg mark-active] 4 (#$ . 76415) nil])
#@163 Calls mh-page-digest from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-page-digest' for more info.

(defalias 'mh-show-page-digest #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-page-digest mark-active] 4 (#$ . 77518) nil])
#@183 Calls mh-page-digest-backwards from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-page-digest-backwards' for more info.

(defalias 'mh-show-page-digest-backwards #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-page-digest-backwards mark-active] 4 (#$ . 78629) nil])
#@165 Calls mh-burst-digest from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-burst-digest' for more info.

(defalias 'mh-show-burst-digest #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-burst-digest mark-active] 4 (#$ . 79780) nil])
#@157 Calls mh-page-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-page-msg' for more info.

(defalias 'mh-show-page-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-page-msg mark-active] 4 (#$ . 80895) nil])
#@167 Calls mh-previous-page from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-previous-page' for more info.

(defalias 'mh-show-previous-page #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-previous-page mark-active] 4 (#$ . 81994) nil])
#@77 Calls mh-modify from the message's folder.

See `mh-modify' for more info.

(defalias 'mh-show-modify #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-modify] 4 (#$ . 83112) nil])
#@163 Calls mh-next-button from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-next-button' for more info.

(defalias 'mh-show-next-button #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-next-button mark-active] 4 (#$ . 84008) nil])
#@163 Calls mh-prev-button from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-prev-button' for more info.

(defalias 'mh-show-prev-button #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-prev-button mark-active] 4 (#$ . 85119) nil])
#@187 Calls mh-folder-toggle-mime-part from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-folder-toggle-mime-part' for more info.

(defalias 'mh-show-toggle-mime-part #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-folder-toggle-mime-part mark-active] 4 (#$ . 86230) nil])
#@183 Calls mh-folder-save-mime-part from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-folder-save-mime-part' for more info.

(defalias 'mh-show-save-mime-part #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-folder-save-mime-part mark-active] 4 (#$ . 87382) nil])
#@187 Calls mh-folder-inline-mime-part from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-folder-inline-mime-part' for more info.

(defalias 'mh-show-inline-mime-part #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-folder-inline-mime-part mark-active] 4 (#$ . 88526) nil])
#@169 Calls mh-toggle-threads from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-toggle-threads' for more info.

(defalias 'mh-show-toggle-threads #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-toggle-threads mark-active] 4 (#$ . 89678) nil])
#@167 Calls mh-thread-delete from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-thread-delete' for more info.

(defalias 'mh-show-thread-delete #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-thread-delete mark-active] 4 (#$ . 90801) nil])
#@167 Calls mh-thread-refile from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-thread-refile' for more info.

(defalias 'mh-show-thread-refile #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-thread-refile mark-active] 4 (#$ . 91920) nil])
#@173 Calls mh-update-sequences from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-update-sequences' for more info.

(defalias 'mh-show-update-sequences #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-update-sequences mark-active] 4 (#$ . 93039) nil])
#@171 Calls mh-next-unread-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-next-unread-msg' for more info.

(defalias 'mh-show-next-unread-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-next-unread-msg mark-active] 4 (#$ . 94170) nil])
#@179 Calls mh-previous-unread-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-previous-unread-msg' for more info.

(defalias 'mh-show-previous-unread-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-previous-unread-msg mark-active] 4 (#$ . 95297) nil])
#@171 Calls mh-thread-ancestor from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-thread-ancestor' for more info.

(defalias 'mh-show-thread-ancestor #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-thread-ancestor mark-active] 4 (#$ . 96440) nil])
#@179 Calls mh-thread-next-sibling from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-thread-next-sibling' for more info.

(defalias 'mh-show-thread-next-sibling #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-thread-next-sibling mark-active] 4 (#$ . 97567) nil])
#@187 Calls mh-thread-previous-sibling from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-thread-previous-sibling' for more info.

(defalias 'mh-show-thread-previous-sibling #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-thread-previous-sibling mark-active] 4 (#$ . 98710) nil])
#@101 Calls mh-index-visit-folder from the message's folder.

See `mh-index-visit-folder' for more info.

(defalias 'mh-show-index-visit-folder #[nil "\306\307!!\205: \310 \311\312\311\"\210\313\314\315\316 !!!\n\232\204$ \317 \210\320\321!\210\f\2032 \311\322\323!\210\324\216\325\326!\321,\207" [mh-show-folder-buffer normal-exit folder-buffer config transient-mark-mode mark-active buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\202  \f\306\207" [transient-mark-mode mark-active major-mode normal-exit config mh-previous-window-config nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration] 2)) call-interactively mh-index-visit-folder] 4 (#$ . 99869) nil])
#@163 Calls mh-toggle-tick from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-toggle-tick' for more info.

(defalias 'mh-show-toggle-tick #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-toggle-tick mark-active] 4 (#$ . 100813) nil])
#@169 Calls mh-narrow-to-tick from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-narrow-to-tick' for more info.

(defalias 'mh-show-narrow-to-tick #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-narrow-to-tick mark-active] 4 (#$ . 101925) nil])
#@169 Calls mh-junk-blacklist from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-junk-blacklist' for more info.

(defalias 'mh-show-junk-blacklist #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-junk-blacklist mark-active] 4 (#$ . 103049) nil])
#@169 Calls mh-junk-whitelist from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-junk-whitelist' for more info.

(defalias 'mh-show-junk-whitelist #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-junk-whitelist mark-active] 4 (#$ . 104173) nil])
#@177 Calls mh-index-new-messages from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-index-new-messages' for more info.

(defalias 'mh-show-index-new-messages #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-index-new-messages mark-active] 4 (#$ . 105297) nil])
#@183 Calls mh-index-ticked-messages from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-index-ticked-messages' for more info.

(defalias 'mh-show-index-ticked-messages #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-index-ticked-messages mark-active] 4 (#$ . 106437) nil])
#@189 Calls mh-index-sequenced-messages from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-index-sequenced-messages' for more info.

(defalias 'mh-show-index-sequenced-messages #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-index-sequenced-messages mark-active] 4 (#$ . 107589) nil])
#@155 Calls mh-catchup from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-catchup' for more info.

(defalias 'mh-show-catchup #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-catchup mark-active] 4 (#$ . 108753) nil])
#@181 Calls mh-ps-print-toggle-mime from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-ps-print-toggle-mime' for more info.

(defalias 'mh-show-ps-print-toggle-mime #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-ps-print-toggle-mime mark-active] 4 (#$ . 109849) nil])
#@183 Calls mh-ps-print-toggle-color from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-ps-print-toggle-color' for more info.

(defalias 'mh-show-ps-print-toggle-color #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-ps-print-toggle-color mark-active] 4 (#$ . 110997) nil])
#@183 Calls mh-ps-print-toggle-faces from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-ps-print-toggle-faces' for more info.

(defalias 'mh-show-ps-print-toggle-faces #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-ps-print-toggle-faces mark-active] 4 (#$ . 112149) nil])
#@175 Calls mh-ps-print-msg-file from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-ps-print-msg-file' for more info.

(defalias 'mh-show-ps-print-msg-file #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-ps-print-msg-file mark-active] 4 (#$ . 113301) nil])
#@165 Calls mh-ps-print-msg from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-ps-print-msg' for more info.

(defalias 'mh-show-ps-print-msg #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-ps-print-msg mark-active] 4 (#$ . 114437) nil])
#@175 Calls mh-ps-print-msg-show from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-ps-print-msg-show' for more info.

(defalias 'mh-show-ps-print-msg-show #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-ps-print-msg-show mark-active] 4 (#$ . 115553) nil])
#@179 Calls mh-toggle-mime-buttons from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-toggle-mime-buttons' for more info.

(defalias 'mh-show-toggle-mime-buttons #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-toggle-mime-buttons mark-active] 4 (#$ . 116689) nil])
#@197 Calls mh-display-with-external-viewer from the message's folder.
When function completes, returns to the show buffer if it is
still visible.

See `mh-display-with-external-viewer' for more info.

(defalias 'mh-show-display-with-external-viewer #[nil "\306\307!!\205> \310 \311\312 \313\311\"\210\312\314\315\316 !!!\232\204' \317 \210\320\321!\210\2036 \311\322\323!\210\324\216\325\326!\321-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config transient-mark-mode buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t run-hooks deactivate-mark-hook ((byte-code "\203\n \306\307\310!\210\n\311=\203 \312 \210\204 \313\f!\210\2025 \314!\2035 \315\316\314!!!\2035 \317\314!\306\"\210\306\207" [transient-mark-mode mark-active major-mode normal-exit config cur-buffer-name nil run-hooks deactivate-mark-hook mh-folder-mode hl-line-highlight set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer] 4)) call-interactively mh-display-with-external-viewer mark-active] 4 (#$ . 117833) nil])
(byte-code "\302\300\303\"\210\302\304\305\"\210\302\306\307\"\210\310\311	#\210\302\312\313\"\210\302\314\315\"\210\302\316\317\"\210\302\320\321\"\210\302\322\323\"\210\302\324\325\"\210\302\326\327\"\207" [mh-show-mode-map mh-inc-spool-map gnus-define-keys-1 (" " mh-show-page-msg "!" mh-show-refile-or-write-again "'" mh-show-toggle-tick "," mh-show-header-display "." mh-show-show ">" mh-show-write-message-to-file "?" mh-help "E" mh-show-extract-rejected-mail "M" mh-show-modify "" mh-show-previous-page "" mh-show-delete-msg-no-motion "	" mh-show-next-button [backtab] mh-show-prev-button "\211" mh-show-prev-button "d" mh-show-redistribute "^" mh-show-refile-msg "c" mh-show-copy-msg "d" mh-show-delete-msg "e" mh-show-edit-again "f" mh-show-forward "g" mh-show-goto-msg "i" mh-show-inc-folder "k" mh-show-delete-subject-or-thread "m" mh-show-send "n" mh-show-next-undeleted-msg "\356" mh-show-next-unread-msg "o" mh-show-refile-msg "p" mh-show-previous-undeleted-msg "\360" mh-show-previous-unread-msg "q" mh-show-quit "r" mh-show-reply "s" mh-show-send "t" mh-show-toggle-showing "u" mh-show-undo "x" mh-show-execute-commands "v" mh-show-index-visit-folder "|" mh-show-pipe-msg) (mh-show-folder-map "F" mh-show-mode-map) ("?" mh-prefix-help "'" mh-index-ticked-messages "S" mh-show-sort-folder "c" mh-show-catchup "f" mh-show-visit-folder "i" mh-index-search "k" mh-show-kill-folder "l" mh-show-list-folders "n" mh-index-new-messages "o" mh-show-visit-folder "q" mh-show-index-sequenced-messages "r" mh-show-rescan-folder "s" mh-show-search-folder "t" mh-show-toggle-threads "u" mh-show-undo-folder "v" mh-show-visit-folder) (mh-show-sequence-map "S" mh-show-mode-map) ("'" mh-show-narrow-to-tick "?" mh-prefix-help "d" mh-show-delete-msg-from-seq "k" mh-show-delete-seq "l" mh-show-list-sequences "n" mh-show-narrow-to-seq "p" mh-show-put-msg-in-seq "s" mh-show-msg-is-in-seq "w" mh-show-widen) define-key "I" (mh-show-junk-map "J" mh-show-mode-map) ("?" mh-prefix-help "b" mh-show-junk-blacklist "w" mh-show-junk-whitelist) (mh-show-ps-print-map "P" mh-show-mode-map) ("?" mh-prefix-help "A" mh-show-ps-print-toggle-mime "C" mh-show-ps-print-toggle-color "F" mh-show-ps-print-toggle-faces "M" mh-show-ps-print-toggle-mime "f" mh-show-ps-print-msg-file "l" mh-show-print-msg "p" mh-show-ps-print-msg "s" mh-show-ps-print-msg-show) (mh-show-thread-map "T" mh-show-mode-map) ("?" mh-prefix-help "u" mh-show-thread-ancestor "p" mh-show-thread-previous-sibling "n" mh-show-thread-next-sibling "t" mh-show-toggle-threads "d" mh-show-thread-delete "o" mh-show-thread-refile) (mh-show-limit-map "/" mh-show-mode-map) ("'" mh-show-narrow-to-tick "?" mh-prefix-help "c" mh-show-narrow-to-cc "f" mh-show-narrow-to-from "r" mh-show-narrow-to-range "s" mh-show-narrow-to-subject "t" mh-show-narrow-to-to "w" mh-show-widen) (mh-show-extract-map "X" mh-show-mode-map) ("?" mh-prefix-help "s" mh-show-store-msg "u" mh-show-store-msg) (mh-show-digest-map "D" mh-show-mode-map) ("?" mh-prefix-help " " mh-show-page-digest "" mh-show-page-digest-backwards "b" mh-show-burst-digest) (mh-show-mime-map "K" mh-show-mode-map) ("?" mh-prefix-help "a" mh-mime-save-parts "e" mh-show-display-with-external-viewer "v" mh-show-toggle-mime-part "o" mh-show-save-mime-part "i" mh-show-inline-mime-part "t" mh-show-toggle-mime-buttons "	" mh-show-next-button [backtab] mh-show-prev-button "\211" mh-show-prev-button)] 4)
#@32 Menu for MH-E folder-sequence.
(defvar mh-show-sequence-menu nil (#$ . 122419))
(easy-menu-do-define 'mh-show-sequence-menu mh-show-mode-map "Menu for MH-E folder-sequence." '("Sequence" ["Add Message to Sequence..." mh-show-put-msg-in-seq t] ["List Sequences for Message" mh-show-msg-is-in-seq t] ["Delete Message from Sequence..." mh-show-delete-msg-from-seq t] ["List Sequences in Folder..." mh-show-list-sequences t] ["Delete Sequence..." mh-show-delete-seq t] ["Narrow to Sequence..." mh-show-narrow-to-seq t] ["Widen from Sequence" mh-show-widen t] "--" ["Narrow to Subject Sequence" mh-show-narrow-to-subject t] ["Narrow to Tick Sequence" mh-show-narrow-to-tick (save-excursion (set-buffer mh-show-folder-buffer) (and mh-tick-seq (mh-seq-msgs (mh-find-seq mh-tick-seq))))] ["Delete Rest of Same Subject" mh-show-delete-subject t] ["Toggle Tick Mark" mh-show-toggle-tick t] "--" ["Push State Out to MH" mh-show-update-sequences t]))
#@31 Menu for MH-E folder-message.
(defvar mh-show-message-menu nil (#$ . 123364))
(easy-menu-do-define 'mh-show-message-menu mh-show-mode-map "Menu for MH-E folder-message." '("Message" ["Show Message" mh-show-show t] ["Show Message with Header" mh-show-header-display t] ["Next Message" mh-show-next-undeleted-msg t] ["Previous Message" mh-show-previous-undeleted-msg t] ["Go to First Message" mh-show-first-msg t] ["Go to Last Message" mh-show-last-msg t] ["Go to Message by Number..." mh-show-goto-msg t] ["Modify Message" mh-show-modify t] ["Delete Message" mh-show-delete-msg t] ["Refile Message" mh-show-refile-msg t] ["Undo Delete/Refile" mh-show-undo t] ["Process Delete/Refile" mh-show-execute-commands t] "--" ["Compose a New Message" mh-send t] ["Reply to Message..." mh-show-reply t] ["Forward Message..." mh-show-forward t] ["Redistribute Message..." mh-show-redistribute t] ["Edit Message Again" mh-show-edit-again t] ["Re-edit a Bounced Message" mh-show-extract-rejected-mail t] "--" ["Copy Message to Folder..." mh-show-copy-msg t] ["Print Message" mh-show-print-msg t] ["Write Message to File..." mh-show-write-msg-to-file t] ["Pipe Message to Command..." mh-show-pipe-msg t] ["Unpack Uuencoded Message..." mh-show-store-msg t] ["Burst Digest Message" mh-show-burst-digest t]))
#@23 Menu for MH-E folder.
(defvar mh-show-folder-menu nil (#$ . 124661))
(byte-code "\303\304\305\306$\210\307\310\311\312#\210\300	B\313\300!\204 \314 \302	B\313\302!\204) \315\316\317\"\320	B\321\320\317\"\210\307\310\322\323#\207" [mh-show-mode-map current-load-list mh-show-mode-syntax-table easy-menu-do-define mh-show-folder-menu "Menu for MH-E folder." ("Folder" ["Incorporate New Mail" mh-show-inc-folder t] ["Toggle Show/Folder" mh-show-toggle-showing t] ["Execute Delete/Refile" mh-show-execute-commands t] ["Rescan Folder" mh-show-rescan-folder t] ["Thread Folder" mh-show-toggle-threads t] ["Pack Folder" mh-show-pack-folder t] ["Sort Folder" mh-show-sort-folder t] "--" ["List Folders" mh-show-list-folders t] ["Visit a Folder..." mh-show-visit-folder t] ["View New Messages" mh-show-index-new-messages t] ["Search a Folder..." mh-show-search-folder t] ["Indexed Search..." mh-index-search t] "--" ["Quit MH-E" mh-quit t]) put mh-show-mode mode-class special boundp make-sparse-keymap make-char-table syntax-table nil mh-show-mode-abbrev-table define-abbrev-table derived-mode-parent text-mode] 5)
#@223 Major mode for showing messages in MH-E.\<mh-show-mode-map>
The value of `mh-show-mode-hook' is a list of functions to
be called, with no arguments, upon entry to this mode.
See also `mh-folder-mode'.

\{mh-show-mode-map}
(defalias 'mh-show-mode #[nil "\306 \210\306\307N\203 \310\311\307\312#\210\311\313\314\n!\204 \315\n\316 \"\210\317!\211\203. \f\320 =\2034 \321\322 \"\210)\203> \323\324\"\210\325\n!\210\326!\2103\327\330!4L\210\331\332!\333 \210\334 \210\335 \210\3365\327\337!\312L\210\327\340!\2106\341\232\203x \342 \202\213 6\343\232\203\210 \344 \345 \210\202\213 \346 7\203\230 8\203\230 \347 \210\327\350!9L\210:\203\257 \351\352!\210\353\352\354\355\312$\210\356;!\210\356<!\210\356=!\210\327\357!\210\360 \210\312>\325\n!\210\361\362!\210\361\362!\207" [major-mode mode-name mh-show-mode-map mh-show-mode-syntax-table parent local-abbrev-table text-mode special put mh-show-mode t "MH-Show" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303!	\"\206 \304	\303!JK$\207" [symbol mh-show-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table make-local-variable mail-header-separator default-value paragraph-start mh-show-unquote-From mh-show-xface mh-show-addr ((vanish . t) t) line-move-ignore-invisible font-lock-defaults font-lock (mh-show-font-lock-keywords-with-cite t) gnus ((mh-show-font-lock-keywords) t nil nil nil (font-lock-fontify-region-function . mh-show-font-lock-fontify-region)) mh-gnus-article-highlight-citation (mh-show-font-lock-keywords t) turn-on-font-lock tool-bar-map make-local-hook kill-buffer-hook add-hook mh-mime-cleanup nil easy-menu-add mh-show-folder-buffer buffer-disable-undo run-hooks mh-show-mode-hook mh-show-mode-abbrev-table mh-mail-header-separator buffer-invisibility-spec mh-highlight-citation-p mh-xemacs-flag font-lock-auto-fontify mh-show-tool-bar-map mh-decode-mime-flag mh-show-sequence-menu mh-show-message-menu mh-show-folder-menu buffer-read-only] 6 (#$ . 125782) nil])
#@21 Use `goto-address'.
(defalias 'mh-show-addr #[nil "\205 \301\302!\204 \303\304\305\211#\210\306\307!\205 \307 \207" [mh-show-use-goto-addr-flag featurep goto-addr load "goto-addr" t fboundp goto-address] 4 (#$ . 127899)])
#@73 Determine at run time what function should be called to display X-Face.
(defvar mh-show-xface-function (byte-code "\203 \302\303!\203 \304\305!\204 \306\303\307\211#\210\310\207	\311Y\203  \310\207\312\207" [mh-xemacs-flag emacs-major-version locate-library "x-face" featurep xface load t mh-face-display-function 21 ignore] 4) (#$ . 128131))
(byte-code "\301B\302\301!\204 \303\304!\205 \304\305!\301\207" [current-load-list mh-uncompface-executable boundp fboundp executable-find "uncompface"] 2)
#@43 Convert base64 encoded DATA to png image.
(defalias 'mh-face-to-png #[(data) "\302\303\304!!\305\216rq\210	c\210\306\307\310\217\210\311 +\207" [#1=#:temp-buffer data get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) #2=#:G3234 (byte-code "\300ed\"\207" [base64-decode-region] 3) ((error)) buffer-string] 3 (#$ . 128645)])
#@51 Run DATA through `uncompface' to generate bitmap.
(defalias 'mh-uncompface #[(data) "\303\304\305!!\306\216rq\210	c\210\n\205$ \307ed\n\310\311%\312\232\205$ \313 \210\314 +\207" [#1=#:temp-buffer data mh-uncompface-executable get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process-region t (t nil) 0 mh-icontopbm buffer-string] 6 (#$ . 129059)])
#@35 Elisp substitute for `icontopbm'.
(defalias 'mh-icontopbm #[nil "eb\210d\301\302\303\304#\203% \212db\210\305\306\307!\310\"c\210\305\306\311!\310\"c\210)\202 e|\210eb\210\312c)\207" [end re-search-forward "0x\\(..\\)\\(..\\)," nil t string-to-number match-string 1 16 2 "P4\n48 48\n"] 4 (#$ . 129505)])
#@141 Display a Face, X-Face, or X-Image-URL header field.
If more than one of these are present, then the first one found in this order
is used.
(defalias 'mh-face-display-function #[nil "\214eb\210\306\307d\310#\210e`}\210\310\311\312\313\310\"\312\314\310\"\312\315\310\"\311\311\n\2034 \316\n!\317\202Z \203B \320!\321\202Z \f\203L \304\202Z \322 \211@A@)\205\214 eb\210\306\323d\310#\205\214 \304=\203x \324\f!\210\202\213 \325\326\310\327\330\331!\332\333\331!&\334\"\210\311.\207" [case-fold-search default-enable-multibyte-characters face x-face url raw re-search-forward "\n\n" t nil message-fetch-field "face" "x-face" "x-image-url" mh-face-to-png png mh-uncompface pbm mh-picon-get-image "^from:" mh-x-image-url-display insert-image create-image :foreground face-foreground mh-show-xface-face :background face-background " " type #1=#:G3235] 11 (#$ . 129819)])
#@17 Display X-Face.
(defalias 'mh-show-xface #[nil "\205 	\205 \n\204 \204 \f\205  \207" [window-system mh-show-use-xface-flag mh-decode-mime-flag mhl-formfile mh-clean-message-header-flag mh-show-xface-function] 1 (#$ . 130725)])
#@113 List of directories where picons reside.
The directories are searched for in the order they appear in the list.
(defvar mh-picon-directory-list '("~/.picons" "~/.picons/users" "~/.picons/usenix" "~/.picons/news" "~/.picons/domains" "~/.picons/misc" "/usr/share/picons/" "/usr/share/picons/users" "/usr/share/picons/usenix" "/usr/share/picons/news" "/usr/share/picons/domains" "/usr/share/picons/misc") (#$ . 130967))
#@35 List of directories to search in.
(defvar mh-picon-existing-directory-list 'unset (#$ . 131390))
(byte-code "\301B\306\301!\204 \307\310\311\"\305B\306\305!\204= \312\313\313\n:\2039 \n@\314\315\316\217\2032 \fB\nA\211\202  \f\237+\313\207" [current-load-list mh-picon-cache #:G3236 type #:G3237 mh-picon-image-types boundp make-hash-table :test equal (xpm xbm gif) nil #:G3238 (image-type-available-p type) ((error))] 4)
#@54 Update `mh-picon-existing-directory-list' if needed.
(defalias 'mh-picon-set-directory-list #[nil "\305=\205* 	\306\306\n:\203% \n@\307!\203 \fB\nA\211\202 \f\237+\211\207" [mh-picon-existing-directory-list mh-picon-directory-list #1=#:G3239 x #2=#:G3240 unset nil file-directory-p] 3 (#$ . 131832)])
#@51 Find the best possible match and return contents.
(defalias 'mh-picon-get-image #[nil "\300\301\215\207" [--cl-block-mh-picon-get-image-- (byte-code "\306 \210\214\307\310\311\217\312\313\314\217@\211\205 \315\316	\"\205 \317\320	\"\227\211\205) \317\321	\"\227\322\323\n#\324\f\" \n\205A \325\326\327\n\330\"\"!\331\" \203T \332\333 \"\210\202^ !\204^ \332\333\331\"\210\334\335\215\"\f#$\336\"!%\337#%$#.\f\207" [from-field from host user canonical-address mh-picon-cache mh-picon-set-directory-list #1=#:G3241 (byte-code "\300\301\302!!@\207" [message-tokenize-header mh-get-header-field "from:"] 3) ((error)) #2=#:G3242 (ietf-drums-parse-address from-field) ((error)) string-match "\\([^+]*\\)\\(+.*\\)?@\\(.*\\)" match-string 3 1 format "%s@%s" gethash delete "" split-string "\\." nil throw --cl-block-mh-picon-get-image-- --cl-block-\(quote\ loop\)-- (byte-code "\306	:\203r 	@\306\306\306\306\f:\203j \f@\307\310\n$\311!\2037 \312\313\"\210\307\310\n$\311!\203M \312\313\"\210\307\310\n$\311!\203c \312\313\"\210\fA\211\202 -	A\211\202 *\314D\306:\203@\306:\203@\306:\203\376 \315\n#\306\306\306:\203\364 @\307\316#\311!\203\326 \312\313\"\210\307\317#\311!\203\353 \312\313\"\210A\211\202\271 ,A\211\202\237 *A\211\202\216 *A\211\202~ *\306\207" [mh-picon-existing-directory-list #3=#:G3247 dir mh-picon-image-types #4=#:G3249 type nil format "%s/%s.%s" file-exists-p throw --cl-block-\(quote\ loop\)-- "unknown" mh-picon-generate-path "%s.%s" "%s/face.%s" file1 file2 file3 canonical-address user host #5=#:G3248 u #6=#:G3250 host-list x y #7=#:G3251 z1 z2] 8) mh-picon-file-contents cl-puthash cached-value host-list match #8=#:--x--3243 #9=#:--h--3244 #10=#:--store--3246] 6)] 2 (#$ . 132151)])
#@189 Return details about FILE.
A list of consisting of a symbol for the type of the file and the file
contents as a string is returned. If FILE is nil, then both elements of the
list are nil.
(defalias 'mh-picon-file-contents #[(file) ";\203* \303\304\305!!\306\216r	q\210\307\310\"\205 \311\312\313\"!\314!\210\315\n\316 \",\207\315\317\211\"\207" [file #1=#:temp-buffer type get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) string-match ".*\\.\\(...\\)$" intern match-string 1 insert-file-contents-literally values buffer-string nil] 4 (#$ . 134020)])
#@180 Generate the image file path.
HOST-LIST is the parsed host address of the email address, USER the username
and DIRECTORY is the directory relative to which the path is generated.
(defalias 'mh-picon-generate-path #[(host-list user directory) "\306	\307\n:\203 \n@\310\311#\nA\211\202 \310\312\f$+\207" [acc host-list #1=#:G3252 elem directory user "" nil format "%s/%s" "%s/%s%s"] 6 (#$ . 134668)])
#@48 Directory where X-Image-URL images are cached.
(defvar mh-x-image-cache-directory nil (#$ . 135085))
#@48 Function to use to scale image to proper size.
(defvar mh-x-image-scaling-function (byte-code "\300\301!\203 \302\207\300\303!\203 \300\304!\203 \300\305!\203 \306\207\307\207" [executable-find "convert" mh-x-image-scale-with-convert "anytopnm" "pnmscale" "pnmtopng" mh-x-image-scale-with-pnm ignore] 2) (#$ . 135192))
(byte-code "\301B\306\301!\204\f \307\302B\306\302!\2048 \310\311!\211\203\" \312\2027 \310\313!\211\203. \314\2027 \310\315!\211\2057 \316\303B\306\303!\204H \317\n\320\"A\304B\306\304!\204T \307\305B\306\305!\204` \307\321B\306\321!\204m \307\322B\306\322!\204z \307\307\207" [current-load-list mh-wget-executable mh-wget-choice mh-wget-option mh-x-image-temp-file mh-x-image-url boundp nil executable-find "wget" wget "fetch" fetch "curl" curl assoc ((curl . "-o") (fetch . "-o") (wget . "-O")) mh-x-image-marker mh-x-image-url-cache-file] 3)
#@69 Scale image in INPUT file and write to OUTPUT file using pnm tools.
(defalias 'mh-x-image-scale-with-pnm #[(input output) "\303\304\305	#!\211\306\232?\205 \307	!)\207" [input output res shell-command-to-string format "anytopnm < %s | pnmscale -xysize 96 48 | pnmtopng > %s" "" delete-file] 6 (#$ . 136093)])
#@71 Scale image in INPUT file and write to OUTPUT file using ImageMagick.
(defalias 'mh-x-image-scale-with-convert #[(input output) "\302\303\304\211\211\305\306	&\207" [input output call-process "convert" nil "-geometry" "96x48"] 9 (#$ . 136411)])
#@81 Canonicalize URL.
Replace the ?/ character with a ?! character and append .png.
(defalias 'mh-x-image-url-cache-canonicalize #[(url) "\303\304\305\306\307!!\310\216r	q\210\nc\210\311\312\313\"\210\314 +#\207" [mh-x-image-cache-directory #1=#:temp-buffer url format "%s/%s.png" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mh-replace-string "/" "!" buffer-string] 6 (#$ . 136664)])
#@42 Setup a symbolic link from FILE to DATA.
(defalias 'mh-x-image-set-download-state #[(file data) "\203\f \302\303!	\304#\207\305	!\207" [data file make-symbolic-link symbol-name t delete-file] 4 (#$ . 137141)])
#@58 Check the state of FILE by following any symbolic links.
(defalias 'mh-x-image-get-download-state #[(file) "\302!\204 \303\304\305\211\211%\210\306	!\203 \307\310\311	!!!\207\302	!\204$ \305\207\312\207" [mh-x-image-cache-directory file file-exists-p call-process "mkdir" nil file-symlink-p intern file-name-nondirectory file-chase-links ok] 6 (#$ . 137359)])
#@230 Fetch and display the image specified by URL.
After the image is fetched, it is stored in CACHE-FILE. It will be displayed
in a buffer and position specified by MARKER. The actual display is carried
out by the SENTINEL function.
(defalias 'mh-x-image-url-fetch-image #[(url cache-file marker sentinel) "\203> \306\307	!!\310\311!\206 \312\313\314!!\212q\210\315\316!\fL\210\315\317!L\210\315\320!\nL\210)\321\322\323\n&\"*\207\324\f\325\"\207" [mh-wget-executable mh-temp-fetch-buffer filename buffer cache-file marker get-buffer-create generate-new-buffer-name make-temp-file "mhe-fetch" expand-file-name make-temp-name "~/mhe-fetch" make-local-variable mh-x-image-url-cache-file mh-x-image-marker mh-x-image-temp-file set-process-sentinel start-process "*mh-x-image-url-fetch*" mh-x-image-set-download-state try-again mh-wget-option url sentinel] 8 (#$ . 137730)])
#@26 Display IMAGE at MARKER.
(defalias 'mh-x-image-display #[(image marker) "\212\306!q\210\307\211\310 \311\216\312\f!\205- \313\f!?\205- =\205- b\210\314\315\f\316\"!\210\307-\207" [marker buffer-modified-flag default-enable-multibyte-characters buffer-read-only image mh-x-image-marker marker-buffer nil buffer-modified-p ((set-buffer-modified-p buffer-modified-flag)) file-readable-p file-symlink-p insert-image create-image png] 4 (#$ . 138618)])
#@91 When the wget PROCESS terminates scale and display image.
The argument CHANGE is ignored.
(defalias 'mh-x-image-scale-and-display #[(process change) "\306!\307=\205R \310\211\211\211\212\311!\211q\210)\312=\2034 \313\314!\210\315\n\316\"\210\202M \n\"\210\317\n!\203H \320\n\f\"\210\202M \315\n\316\"\210\321\322\323\217,\207" [process wget-buffer cache-filename temp-file marker mh-x-image-marker process-status exit nil process-buffer ignore message "The `convert' program is needed to display X-Image-URL" mh-x-image-set-download-state try-again file-exists-p mh-x-image-display #1=#:G3253 (byte-code "\304\211\223\210\305	!\210\306\n!\210\307!\207" [marker process wget-buffer temp-file nil delete-process kill-buffer delete-file] 3) ((error)) mh-x-image-url-cache-file mh-x-image-temp-file mh-x-image-scaling-function] 4 (#$ . 139079)])
#@37 Check if URL is something sensible.
(defalias 'mh-x-image-url-sane-p #[(url) "G\211\302W\203 \303\202% \304\302O\305\232\204 \303\202% 	\306V\203$ \303\202% \307)\207" [url len 5 nil 0 "http:" 100 t] 4 (#$ . 139949)])
#@102 Display image from location URL.
If the URL isn't present in the cache then it is fetched with wget.
(defalias 'mh-x-image-url-display #[(url) "\306!\307	!\310 `\311\223\312\313!L\210\314!?\206| \n\315=\203( \316	\"\202| \f?\206| \317=\206| \n\320=\206| \204E \311\211\223\202| \n\321=\203Y \322	\311\"\210\323	\324$\202| \325=\203p \326\327\330\"!\204p \322	\320\"\202| \n\311=\205| \323	\324$+\207" [url cache-filename state marker mh-wget-executable mh-x-image-scaling-function mh-x-image-url-cache-canonicalize mh-x-image-get-download-state make-marker nil make-local-variable mh-x-image-marker mh-x-image-url-sane-p ok mh-x-image-display ignore never try-again mh-x-image-set-download-state mh-x-image-url-fetch-image mh-x-image-scale-and-display ask y-or-n-p format "Fetch %s? " mh-fetch-x-image-url] 5 (#$ . 140179)])
#@116 Display message at cursor, but only if in show mode.
If optional arg MSG is non-nil, display that message instead.
(defalias 'mh-maybe-show #[(&optional msg) "\205 \302	!\207" [mh-showing-mode msg mh-show] 2 (#$ . 141029)])
#@733 Show message at cursor.
If optional argument MESSAGE is non-nil, display that message instead.
Force a two-window display with the folder window on top (size given by the
variable `mh-summary-height') and the show buffer below it.
If the message is already visible, display the start of the message.

If REDISPLAY-FLAG is non-nil, the default when called interactively, the
message is redisplayed even if the show buffer was already displaying the
correct message.

Display of the message is controlled by setting the variables
`mh-clean-message-header-flag' and `mhl-formfile'.  The default behavior is
to scroll uninteresting headers off the top of the window.
Type "\[mh-header-display]" to see the message with all its headers.
(defalias 'mh-show #[(&optional message redisplay-flag) "\204 	\203 \n\204 \203 \305 \210\306\f!\207" [redisplay-flag mh-showing-with-headers mhl-formfile mh-clean-message-header-flag message mh-invalidate-show-buffer mh-show-msg] 2 (#$ . 141262) (list nil t)])
#@45 Move point to mouse EVENT and show message.
(defalias 'mh-show-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point mh-show] 2 (#$ . 142268) "e"])
#@112 Return ideal value for the variable `mh-summary-height'.
The current frame height is taken into consideration.
(defalias 'mh-summary-height #[nil "\300\301!\203 \301 \302V\203 \303\301 \304\245^\206 \305\207" [fboundp frame-height 24 10 6 4] 3 (#$ . 142430)])
#@133 Show MSG.
The value of `mh-show-hook' is a list of functions to be called, with no
arguments, after the message has been displayed.
(defalias 'mh-show-msg #[(msg) "\204 \306\307!\310\307!\210\311\n\211C\312\f!#$%&'\313\314 !\315 =\204- \316 \210\315 (\317\f!\210)\203> \320p!\210\321\216#$\203a \322'\"*\232\203a eb\210%\204g \323 \210\202g \324'\"\210*\325 T\326 U\204~ \327\325 \206{ \330 Z!\210\331\311!\210\332\311\211+#\210,>\204\226 ,B,-\203\273 \333 \210.\203\257 \334\335/C\"&\"&\336 \203\273 \337\340\307&#\210\341\342!-\207" [msg mh-page-to-next-msg-flag mh-current-folder mh-clean-message-header-flag mh-show-buffer mh-display-buttons-for-inline-parts-flag mh-get-msg-num t mh-showing-mode nil get-buffer-window next-window minibuffer-window selected-window delete-other-windows switch-to-buffer-other-window bury-buffer ((select-window mh-in-show-buffer-saved-window)) mh-msg-filename mh-start-of-uncleaned-message mh-display-msg window-height frame-height shrink-window mh-summary-height mh-recenter mh-notate mh-update-sequences append mh-index-delete-from-sequence mh-speed-flists-active-p apply mh-speed-flists run-hooks mh-show-hook display-mime-buttons-flag show-window clean-message-header folders folder mh-in-show-buffer-saved-window mh-bury-show-buffer-flag buffer-file-name mh-cmd-note mh-seen-list mh-update-sequences-after-mh-show-flag mh-index-data mh-unseen-seq] 5 (#$ . 142700)])
#@292 Edit message at cursor.
If optional argument MESSAGE is non-nil, edit that message instead.
Force a two-window display with the folder window on top (size given by the
value of the variable `mh-summary-height') and the message editing buffer below
it.

The message is displayed in raw form.
(defalias 'mh-modify #[(&optional message) "\206 \306\307!\310!\311\312	!\204 \313\314\"\210\315\316!!\203/ \212q\210\f)	\232\203/ \317 \210\320	!\210p\321 \210\322!\210\323 \210\324\n!+\207" [message msg-filename edit-buffer mh-show-buffer buffer-file-name text-mode-map mh-get-msg-num t mh-msg-filename nil file-exists-p error "Message %d does not exist" buffer-live-p get-buffer mh-invalidate-show-buffer find-file mh-letter-mode use-local-map delete-other-windows switch-to-buffer] 3 (#$ . 144152) nil])
#@56 Decode >From at beginning of lines for `mh-show-mode'.
(defalias 'mh-show-unquote-From #[nil "\212\302 \303\304 b\210\305\306\303\307#\203 \310\311!\210\202\n \312	!+\207" [case-fold-search modified buffer-modified-p nil mh-mail-header-end re-search-forward "^>From" t replace-match "From" set-buffer-modified-p] 4 (#$ . 144969)])
#@48 Return the name of the buffer for FOLDER-NAME.
(defalias 'mh-msg-folder #[(folder-name) "\207" [folder-name] 1 (#$ . 145309)])
#@77 Display MSG-NUM of FOLDER-NAME.
Sets the current buffer to the show buffer.
(defalias 'mh-display-msg #[(msg-num folder-name) "\306!\211q\210\307p\n\"\204 p\n\310 \311\f#\210+234\312\3135\"6789:;<=>\314:!\204G \315\3165\"\210?\317V\203r \320:!\321\234?V\203r \322\323\3245\320:!\321\234?$!\204r \315\3255\"\2109q\210:@\232?\205D\326 \210\312A\327 \210\330\331!\203\222 \332\331!\210>\203\254 \333\334\335\336>;\205\245 \337>D:%\210\202\261 \340:!\210\341 \210B\203\330 >\204\330 \342 \210pC\nD\310 E\311CED#\210+\343 \210\344 \210eb\210=\203\361 \345e<;#\210eb\210\202\364 \346 \210\347 \210F\350=\204\312F\351 \210:@\312G\352\353!\210\354\312!\210\355\216B\203(>\204(\312A\356 \210\357 \210)\360\312!\210	H\323I5#CJ\361 \210	q\210\312\211K.\207" [folder-name folder mh-globals-hash #1=#:--x--3254 #2=#:--h--3255 #3=#:--store--3257 mh-msg-folder gethash mh-make-buffer-data cl-puthash nil mh-msg-filename file-exists-p error "Message %d does not exist" 0 file-attributes 7 y-or-n-p format "Message %d (%d bytes) exceeds %d bytes. Display it? " "Message %d not displayed" mh-unvisit-file erase-buffer boundp write-contents-hooks kill-local-variable mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear" "-form" insert-file-contents-literally mh-mime-cleanup mh-add-missing-mime-version-header mh-mime-display mh-show-mode mh-clean-msg-header mh-start-of-uncleaned-message mh-decode-message-header t set-buffer-auto-saved auto-save-mode 1 set-mark ((byte-code "\301\301\207" [buffer-read-only t] 1)) mh-display-smileys mh-display-emphasis set-buffer-modified-p mh-logo-display mhl-formfile mh-clean-message-header-flag mh-invisible-header-fields-compiled msg-num mh-show-buffer mh-mm-inline-media-tests mm-inline-media-tests show-buffer msg-filename visible-headers invisible-headers clean-message-header formfile mh-show-maximum-size buffer-file-name buffer-read-only mh-decode-mime-flag #4=#:--x--3258 #5=#:--h--3259 #6=#:--store--3261 buffer-undo-list buffer-backed-up mh-show-folder-buffer mh-show-buffer-mode-line-buffer-id mode-line-buffer-identification mh-showing-with-headers] 8 (#$ . 145443)])
#@462 Flush extraneous lines in message header.
Header is cleaned from START to the end of the message header.
INVISIBLE-HEADERS contains a regular expression specifying lines to delete
from the header. VISIBLE-HEADERS contains a regular expression specifying the
lines to display. INVISIBLE-HEADERS is ignored if VISIBLE-HEADERS is non-nil.

Note that MH-E no longer supports the `mh-visible-headers' variable, so
this function could be trimmed of this feature too.
(defalias 'mh-clean-msg-header #[(start invisible-headers visible-headers) "\306\307\211\214b\210\310\311\307\312#\203 \313u\210`}\210eb\210\f\203L `dW\203h \314\f!\203; \315y\210\314\316!\203  \315y\210\202/ \317\315!\210\314\316!\203  \317\315!\210\202? \320\307\306#\203h \321 \210\317\315!\210\314\316!\203L \317\315!\210\202[ )\307\322 \210)\323 +\207" [after-change-functions buffer-read-only case-fold-search start visible-headers invisible-headers t nil search-forward "\n\n" move -1 looking-at 1 "[ 	]" mh-delete-line re-search-forward beginning-of-line mh-letter-hide-all-skipped-fields unlock-buffer mh-compose-skipped-header-fields] 4 (#$ . 147620)])
#@30 Delete the next LINES lines.
(defalias 'mh-delete-line #[(lines) "`y\210`|\207" [lines] 2 (#$ . 148759)])
#@152 Mark MSG with the character NOTATION at position OFFSET.
Null MSG means the message at cursor.
If NOTATION is nil then no change in the buffer occurs.
(defalias 'mh-notate #[(msg notation offset) "\212\203 \306\307\211#\205z \310 \311\211\312 \210\fu\210\fT\232\205' =?\211\2054 \2064 \313\311!\211\205> \314\"\206G \311f\203a \315\316\316!AB!#\210\202i \317\320!\210c\210\205t \321\f#,\322!\210+)\207" [msg buffer-file-name buffer-read-only mh-folder-updating-mod-flag offset mh-cmd-note mh-goto-msg t buffer-modified-p nil beginning-of-line mh-get-msg-num gethash cl-puthash reverse delete-char 1 mh-thread-update-scan-line-map mh-set-folder-modified-p notation mh-note-seq change-stack-flag mh-sequence-notation-history stack] 7 (#$ . 148873)])
#@313 Position the cursor at message NUMBER.
Optional non-nil second argument NO-ERROR-IF-NO-MESSAGE means return nil
instead of signaling an error if message does not exist; in this case, the
cursor is positioned near where the message would have been.
Non-nil third argument DONT-SHOW means not to show the message.
(defalias 'mh-goto-msg #[(number &optional no-error-if-no-message dont-show) "\305!`\306eb\210\307\310\311\"\312\306#\204$ \nb\210\204\" \313\314\"\210\312\315 \210\f\2043 	\2033 \316!\210	*\207" [number return-value point no-error-if-no-message dont-show prefix-numeric-value t re-search-forward format "^[ ]*%s[^0-9]+" nil error "No message %d" beginning-of-line mh-maybe-show] 4 (#$ . 149669) "NGo to message: "])
#@106 Find and return the value of FIELD in the current buffer.
Returns nil if the field is not in the buffer.
(defalias 'mh-get-profile-field #[(field) "\303eb\210\304\305\306	\"\307\303#\204 \307\202. \310\311!\203 \307\202. \304\312\307\303#\210\313\224\307\210\n`{))\207" [case-fold-search field start t re-search-forward format "^%s" nil looking-at "[	 ]*$" "[	 ]*\\([^	 \n].*\\)$" 1] 4 (#$ . 150414)])
#@49 Non-nil if `mh-find-path' has been run already.
(defvar mh-find-path-run nil (#$ . 150827))
#@274 Set variables from user's MH profile.
Set `mh-user-path', `mh-draft-folder', `mh-unseen-seq', `mh-previous-seq',
`mh-inbox' from user's MH profile.
The value of `mh-find-path-hook' is a list of functions to be called, with no
arguments, after these variable have been set.
(defalias 'mh-find-path #[nil "\306 \210?\205\260 \307\212\310\311\312!\206 \313!\314\n!q\210\315\316 \210\317\320\321\217\210\322\323!\211\204. \324\325\310\f\310\326!\"!\204@ \310\327\f\"\322\330!\211)\203h \331)!\204W \332\333)\")\334\335)!!\204h \336\337\335)!\"\210\322\340!\211*\204w \341*\202\205 \331*!\204\205 \332\333*\"*\322\342!\211+\203\227 \343+!+\202\232 \344+\322\345!\211,\203\251 \343,!,\346\347!\210\350 *\207" [mh-find-path-run profile mh-temp-buffer buffer-offer-save mh-user-path mh-x-image-cache-directory mh-variants t expand-file-name getenv "MH" "~/.mh_profile" get-buffer-create nil erase-buffer err (insert-file-contents profile) ((file-error (mh-install profile err))) mh-get-profile-field "Path:" "Mail" file-name-as-directory "~" ".mhe-x-image-cache" "Draft-Folder:" mh-folder-name-p format "+%s" file-exists-p mh-expand-file-name error "Draft folder \"%s\" not found.  Create it and try again" "Inbox:" "+inbox" "Unseen-Sequence:" intern unseen "Previous-Sequence:" run-hooks mh-find-path-hook mh-collect-folder-names mh-draft-folder mh-inbox mh-unseen-seq mh-previous-seq] 6 (#$ . 150926)])
#@65 Return t if file FILE is the name of a executable regular file.
(defalias 'mh-file-command-p #[(file) "\301!\205	 \302!\207" [file file-regular-p file-executable-p] 2 (#$ . 152357)])
(byte-code "\301B\302\301!\204\f \303\303\207" [current-load-list mh-no-install boundp nil] 2)
#@138 Initialize the MH environment.
This is called if we fail to read the PROFILE file. ERROR-VAL is the error
that made this call necessary.
(defalias 'mh-install #[(profile error-val) "\304\305!\204 \306!\204 	\203 \307\n@\310\311\"\nAA@D\"\210\312\313\314\"\315\"\210\316 \210\317\320\321\217\207" [profile mh-no-install error-val mh-lib-progs getenv "MH" file-exists-p signal format "Cannot read MH profile \"%s\"" mh-exec-cmd expand-file-name "install-mh" "-auto" erase-buffer err (insert-file-contents profile) ((file-error (byte-code "\302@\303\304	\"AA@D\"\207" [err profile signal format "Cannot read MH profile \"%s\""] 5)))] 5 (#$ . 152647)])
#@66 Mark current folder as modified or unmodified according to FLAG.
(defalias 'mh-set-folder-modified-p #[(flag) "\301!\207" [flag set-buffer-modified-p] 2 (#$ . 153310)])
#@23 Return sequence NAME.
(defalias 'mh-find-seq #[(name) "\302	\"\207" [name mh-seq-list assoc] 3 (#$ . 153486)])
#@39 Return a list of the messages in SEQ.
(defalias 'mh-seq-to-msgs #[(seq) "\301!A\207" [seq mh-find-seq] 2 (#$ . 153604)])
#@236 Return a scan format with the (msg) width in the FMT replaced with WIDTH.

The message number width portion of the format is discovered using
`mh-scan-msg-format-regexp'. Its replacement is controlled with
`mh-scan-msg-format-string'.
(defalias 'mh-update-scan-format #[(fmt width) "\306	\"\203 \307\224\307\225	\310O\311\f\"	\n\312OQ*\206 	\207" [mh-scan-msg-format-regexp fmt end begin mh-scan-msg-format-string width string-match 1 0 format nil] 5 (#$ . 153733)])
#@50 Return the widest message number in this FOLDER.
(defalias 'mh-message-number-width #[(folder) "\204 \306 \210\307	!\310\212q\210\311 \210\312\313\314\f\"\315\316\315\317\320\321F&\210eb\210\322\315\310\323$\2039 \323\224\323\225{G)\n*\207" [mh-progs mh-temp-buffer width tmp-buffer mh-scan-prog folder mh-find-path get-buffer-create 0 erase-buffer apply call-process expand-file-name nil (t nil) "last" "-format" "%(msg)" re-search-forward 1 mh-scan-msg-number-regexp] 10 (#$ . 154213)])
#@267 Add MSGS to SEQ.
Remove duplicates and keep sequence sorted. If optional INTERNAL-FLAG is
non-nil, do not mark the message in the scan listing or inform MH of the
addition.

If DONT-ANNOTATE-FLAG is non-nil then the annotations in the folder buffer are
not updated.
(defalias 'mh-add-msgs-to-seq #[(msgs seq &optional internal-flag dont-annotate-flag) "\306!\307!\203 :\204 C\n\204# \310!B\fB\2021 \2031 \n\310\311\nA\"!\241\210?\2050\312\"\210?\2050\247\203b \313\314\211#\2050\211\nA>?\205^ \315	\")\2020:\203\253 @\247\203\253 A\247\203\253 \212@b\210\316 \210`AX\205\247 m?\205\247 \317!\203\241 \320\314!\211\nA>\204\240 \315	\"\210)\321y\210\202{ )\2020\203\272 9\203\272 \322!\202\310 ;\203\307 \323\"\202\310 \324 \211\325\211\203\356 @\326\314#\210A\211\204\330 *\212eb\210\316 \210`dX\205/m?\205/\317!\203)\320\314!\327\"\203(\211\nA>\204'\315	\"\210))\321y\210\202\366 +*\207" [seq internal-seq-flag entry msgs mh-seq-list internal-flag mh-find-seq mh-internal-seq mh-canonicalize-sequence append mh-add-to-sequence mh-goto-msg t mh-add-sequence-notation beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table nil cl-puthash gethash dont-annotate-flag msg mh-scan-valid-regexp mh-current-folder #1=#:seq-hash-table #2=#:msgs #3=#:--dolist-temp--3266 v] 6 (#$ . 154720)])
#@54 Sort MSGS in decreasing order and remove duplicates.
(defalias 'mh-canonicalize-sequence #[(msgs) "\304\305!\306\"\211\nA\203- \n@\n\211A@)U\203& \n\211\211AA)\241\210\202	 \nA\211\202\n 	*\207" [msgs sorted-msgs head x sort copy-sequence >] 4 (#$ . 156139)])
(byte-code "\301B\305\301!\204 \306\307\310\"\302B\305\302!\204 \311\303B\305\303!\204' \312\304B\305\304!\2043 \311\311\207" [current-load-list mh-sub-folders-cache mh-current-folder-name mh-flists-partial-line mh-flists-process boundp make-hash-table :test equal nil ""] 3)
#@43 Collect folder names by running `flists'.
(defalias 'mh-collect-folder-names #[nil "?\205 \301\302\303\304\305$\211\207" [mh-flists-process mh-exec-cmd-daemon "folders" mh-collect-folder-names-filter "-recurse" "-fast"] 5 (#$ . 156701)])
#@140 Read folder names.
PROCESS is the flists process that was run to collect folder names and the
function is called when OUTPUT is available.
(defalias 'mh-collect-folder-names-filter #[(process output) "\306\307 \310\211\311\216\312\313\f#\211\2032 \314\315\f	O#\316\317H\320\232\204, \321!\210	T\202 )\f\310O\211,\207" [folder line-end prevailing-match-data position output mh-flists-partial-line 0 match-data nil ((set-match-data prevailing-match-data)) string-match "\n" format "+%s%s" "" 1 46 mh-populate-sub-folders-cache] 6 (#$ . 156949)])
#@43 Tell `mh-sub-folders-cache' about FOLDER.
(defalias 'mh-populate-sub-folders-cache #[(folder) "\306\307\"	\206 \310T\311O	\205 \310	O\211\205  \306\307\"\205. \f\206+ \310T\311O\f\2057 \310\fO\312\"\211\311\313\311:\203u @\211@\n\232\203h \313\311\211\202i \313\203u A\211\202N ?\205} ,?\205\250 \nCB\314\315\"\316#\210+\205\250 \317\320\215.\207" [folder last-slash child1 parent parent-slash child2 mh-search-from-end 47 0 nil gethash t sort #[(x y) "@	@\231\207" [x y] 2] cl-puthash --cl-block-nil-- (byte-code "\305	\"\306\n:\203& \n@\211@\f\232\203 \307\241\210\310\311\306\"\210\nA\211\202 *\306\207" [grand-parent mh-sub-folders-cache #1=#:G3278 x child2 gethash nil t throw --cl-block-nil--] 4) grand-parent mh-sub-folders-cache cache-entry #2=#:G3271 x #3=#:G3272 #4=#:G3273 #5=#:--x--3274 #6=#:--h--3275 #7=#:--store--3277] 5 (#$ . 157515)])
#@512 Normalizes FOLDER name.
Makes sure that two '/' characters never occur next to each other. Also all
occurrences of ".." and "." are suitably processed. So "+inbox/../news"
will be normalized to "+news".

If optional argument EMPTY-STRING-OKAY is nil then a '+' is added at the
front if FOLDER lacks one. If non-nil and FOLDER is the empty string then
nothing is added.

If optional argument DONT-REMOVE-TRAILING-SLASH is non-nil then a trailing '/'
if present is retained (if present), otherwise it is removed.
(defalias 'mh-normalize-folder-name #[(folder &optional empty-string-okay dont-remove-trailing-slash) ";\203\371 \306\307\"\203 \310\311\312\313$\202 G\211\314V\205% 	SH\315\232	\314V\2051 \314H\315\232	\314V\203N \314H\316\232\203N \f;\203N \317\320\f\321\312O#\322\323\324\311\"\"\312\211\312\211\203\227 @\211\325\232\203{ \203{ \211A@\210\202\216 \325\232\204\216 \326\232\204\216 BA\211\204c *\323\312\211\203\267 @\211\311QA\211\204\244 *\n\203\301 \204\316 \323\232\204\316 \314GSO\203\326 \311P-\203\342 \323\232\204\371 \323\232\203\355 \327\202\371 \314H\330\232\204\371 \327P\207" [folder length trailing-slash-present leading-slash-present mh-current-folder-name result string-match "//" replace-match "/" nil t 0 47 64 format "%s/%s/" 1 delete "" split-string ".." "." "+" 43 components component #1=#:--dolist-temp--3281 #2=#:--dolist-temp--3282 dont-remove-trailing-slash empty-string-okay] 7 (#$ . 158453)])
#@286 Find the subfolders of FOLDER.
The function avoids running folders unnecessarily by caching the results of
the actual folders call.

If optional argument ADD-TRAILING-SLASH-FLAG is non-nil then a slash is added
to each of the sub-folder names that may have nested folders within them.
(defalias 'mh-sub-folders #[(folder &optional add-trailing-slash-flag) "\306!\307	\310#\211\310=\203! 	\311!\312\f#+\202\" \n\2031 \313\314\"\2023 +\207" [folder mh-sub-folders-cache match #1=#:--x--3283 #2=#:--h--3284 #3=#:--store--3286 mh-normalize-folder-name gethash no-result mh-sub-folders-actual cl-puthash mapcar #[(x) "A\203 @\301PAB\207\207" [x "/"] 2] sub-folders add-trailing-slash-flag] 5 (#$ . 159971)])
#@180 Execute the command folders to return the sub-folders of FOLDER.
Filters out the folder names that start with "." so that directories that
aren't usually mail folders are hidden.
(defalias 'mh-sub-folders-actual #[(folder) "\306\307\"\310\311\310\312\313\314	;\205 	CBBBBBBB\310\315\316\317!!\320\216r\nq\210\321\306\322\"\310\323\310\324%\210edS{+\325P\315\316\317!!(\326\216r(q\210\327\321\"\210eb\210l\203X n\204\334 \330 b\210\331 \332\333\331 \334#)*)\250\203\325 )f\335\232\203 )S\211)\202p )T)*f\335\232\203\225 *T\211*\202\206 *){\211+\336H,+\211GSH-,\337\235\204\324 -\340\232\203\310 +\232\203\310 +\336+GSO++\341\342\330 \334#B\fB+\343y\210*\202P +\f\237	;\203\370 \fA\344\345	\343\310O\"G.\346\347\f\")\f+\207" [mh-progs folder #1=#:temp-buffer current-folder results arg-list expand-file-name "folders" nil (t nil) "-noheader" "-norecurse" "-nototal" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "folder" (t nil) "-fast" "+" ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) apply line-end-position line-beginning-position search-backward " has " t 32 0 (46 35 44) 43 search-forward "(others)" 1 format "%s/" mapcar #[(f) "@	\302OAB\207" [f folder-name-len nil] 3] #2# has-pos start-pos name first-char last-char folder-name-len] 9 (#$ . 160705)])
#@459 Remove FOLDER and its parent from `mh-sub-folders-cache'.
FOLDER should be unconditionally removed from the cache. Also the last ancestor
of FOLDER present in the cache must be removed as well.

To see why this is needed assume we have a folder +foo which has a single
sub-folder qux. Now we create the folder +foo/bar/baz. Here we will need to
invalidate the cached sub-folders of +foo, otherwise completion on +foo won't
tell us about the option +foo/bar!
(defalias 'mh-remove-from-sub-folders-cache #[(folder) "\302	\"\210\303\304\215\207" [folder mh-sub-folders-cache remhash --cl-block-ancestor-found-- (byte-code "\305\211\306\307\"\211\2034 \310	O\311\f\312#\312=\204 \313\f\"\210\n\203/ \314\315\305\"\210\202 \316\202 \313\305\f\"+\207" [folder last-slash one-ancestor-found parent mh-sub-folders-cache nil mh-search-from-end 47 0 gethash none remhash throw --cl-block-ancestor-found-- t] 4)] 3 (#$ . 162160)])
(byte-code "\301B\302\301!\204\f \303\304B\305B\303\207" [current-load-list mh-folder-hist boundp nil mh-speed-folder-map mh-speed-flists-cache] 2)
#@245 Non-nil means "+" is an acceptable folder name.
This variable is used to communicate with `mh-folder-completion-function'. That
function can have exactly three arguments so we bind this variable to t or nil.

This variable should never be set.
(defvar mh-allow-root-folder-flag nil (#$ . 163257))
(byte-code "\302B\304\302!\204 \305	!\306\n\307\310#\210\303B\304\303!\204  \311\311\207" [current-load-list minibuffer-local-completion-map mh-folder-completion-map mh-speed-flists-inhibit-flag boundp copy-keymap define-key " " minibuffer-complete nil] 4)
#@59 Check if speedbar is running with message counts enabled.
(defalias 'mh-speed-flists-active-p #[nil "\302\303!\205 ?\205 \304	!\305V\207" [mh-speed-flists-inhibit-flag mh-speed-flists-cache featurep mh-speed hash-table-count 0] 2 (#$ . 163824)])
#@227 Programmable completion for folder names.
NAME is the partial folder name that has been input. PREDICATE if non-nil is a
function that is used to filter the possible choices and FLAG determines
whether the completion is over.
(defalias 'mh-folder-completion-function #[(name predicate flag) "\306\307\310#\311\312\"\211\205 \313\nO\211\203\" \nT\307O\2029 G\313V\2038 \313H\314\232\2038 \315\307O\2029 \316\307=\203z \317\320\321\322\310\"\"#\211\307=\203X \307\202v \310=\203i 	\232\203i \310\202v \310=\203t \202v )\202\272 \310=\203\214 \323\f\322\310\"#\202\272 \324=\205\272 \306!\315\307OP\203\251 \325!\202\271 \232\203\265 \307\202\271 \325!)-\207" [name orig-name last-slash last-complete remainder flag mh-normalize-folder-name nil t mh-search-from-end 47 0 43 1 "" try-completion mapcar #[(x) "\204 \302	@P\202 \303	@Q	AB\207" [last-complete x "+" "/"] 3] mh-sub-folders all-completions lambda file-exists-p predicate try-res mh-user-path path mh-allow-root-folder-flag] 8 (#$ . 164080)])
#@168 Read folder name with PROMPT and default result DEFAULT.
If ALLOW-ROOT-FOLDER-FLAG is non-nil then "+" is allowed to be a folder name
corresponding to `mh-user-path'.
(defalias 'mh-folder-completing-read #[(prompt default allow-root-folder-flag) "\306\307\310	\311\312\313\211\211\314&,\307\"\207" [mh-folder-completion-map allow-root-folder-flag mh-allow-root-folder-flag minibuffer-local-completion-map completion-root-regexp minibuffer-completing-file-name mh-normalize-folder-name t "^[+/]" completing-read mh-folder-completion-function nil mh-folder-hist prompt default] 9 (#$ . 165140)])
#@443 Prompt for a folder name with PROMPT.
Returns the folder's name as a string. DEFAULT is used if the folder exists
and the user types return. If the CAN-CREATE flag is t, then a folder is
created if it doesn't already exist. If optional argument DEFAULT-STRING is
non-nil, use it in the prompt instead of DEFAULT. If ALLOW-ROOT-FOLDER-FLAG is
non-nil then the function will accept the folder +, which means all folders
when used in searching.
(defalias 'mh-prompt-for-folder #[(prompt default can-create &optional default-string allow-root-folder-flag) "\204 \306	\203 \307\310	\"\202 \306\232\203 \306\202 \307\310\"\307\311\n	#\312\312)\313\n*#\211\203D \306\232\203D \306\232\204- \306\232\204U \314\232\203Z *\204Z \202e \315!\204e \307\316\"\203o \306\232\203s \317\320!\210\211)G\321V\203\217 )\211GSH\322=\203\217 )\321\323O)\324\322)\"\211+\205\240 )\321+O,+\203\261 )+T\312O\202\266 )\325\312O\211-\326\327\330,.\"\"\235\204\313 \331)!\210+\332\333)!!?\211/\203	\334\307\335)\"!\203	\336\337)\"\210\340\312\341)#\210\331)!\210\342\343!\203 \344)!\210\336\345)\"\210\202(/\203\317\346)\"\210\202(\347\333)!!\204(\317\350\333)!\"\210))-\207" [default default-string prompt mh-current-folder mh-current-folder-name read-name "" format "[%s] " "%s folder: %s" nil mh-folder-completing-read "+" mh-folder-name-p "+%s" error "No folder specified" 0 47 -1 mh-search-from-end 1 mapcar car gethash mh-remove-from-sub-folders-cache file-exists-p mh-expand-file-name y-or-n-p "Folder %s does not exist.  Create it? " message "Creating %s" mh-exec-cmd-error "folder" boundp mh-speed-folder-map mh-speed-add-folder "Creating %s...done" "Folder %s is not created" file-directory-p "\"%s\" is not a directory" folder-name allow-root-folder-flag last-slash parent child mh-sub-folders-cache new-file-flag] 7 (#$ . 165751)])
#@300 If `mh-log-buffer' is too big then truncate it.
If the number of lines in `mh-log-buffer' exceeds `mh-log-buffer-lines' then
keep only the last `mh-log-buffer-lines'. As a side effect the point is set to
the end of the log buffer.

The function returns the size of the final size of the log buffer.
(defalias 'mh-truncate-log-buffer #[nil "r\302!q\210db\210\212	[y\303\232\203 e`|\210)o\204. \212\304y\303\232\205' \305f\306\232)\204. \307c\210\310 )\207" [mh-log-buffer mh-log-buffer-lines get-buffer-create 0 -1 nil 12 "\n\f\n" buffer-size] 2 (#$ . 167643)])
#@182 Execute mh-command COMMAND with ARGS.
The side effects are what is desired.
Any output is assumed to be an error and is shown to the user.
The output is not read or parsed by MH-E.
(defalias 'mh-exec-cmd #[(command &rest args) "\212\306!q\210\307 `\310!\311\312\313\f\"\314\315\314&\210\316 	V\205S \212\nb\210\317\f\261\210\314:\203L @\320\261\210A\211\2024 *\321c\210)\322\213,\207" [mh-log-buffer initial-size start args command mh-progs get-buffer-create mh-truncate-log-buffer mh-list-to-string apply call-process expand-file-name nil t buffer-size "Errors when executing: " " " "\n" ((byte-code "\301!\210\302\303!\207" [mh-log-buffer switch-to-buffer-other-window sit-for 5] 2)) #1=#:G3287 arg] 7 (#$ . 168213)])
#@183 In environment ENV, execute mh-command COMMAND with ARGS.
ENV is nil or a string of space-separated "var=value" elements.
Signals an error if process does not complete successfully.
(defalias 'mh-exec-cmd-error #[(env command &rest args) "\212\306!q\210\307 \210	\n;\205 \310\n\311\"\312\211\203) \f@\211	B\fA\211\204 *\313\314\315\316\"\312\317\312\320!&\"*\207" [mh-temp-buffer process-environment env elem #1=#:--dolist-temp--3288 command get-buffer-create erase-buffer split-string " " nil mh-handle-process-error apply call-process expand-file-name t mh-list-to-string mh-progs args] 10 (#$ . 168968)])
#@273 Execute MH command COMMAND in the background.

If FILTER is non-nil then it is used to process the output otherwise the
default filter `mh-process-daemon' is used. See `set-process-filter' for more
details of FILTER.

ARGS are passed to COMMAND as command line arguments.
(defalias 'mh-exec-cmd-daemon #[(command filter &rest args) "\212\306!q\210\307 \210)\310\311\312\n\310\313\n\"\314\f!%\315\206! \316\"\210*\207" [mh-log-buffer process-connection-type command mh-progs args process get-buffer-create mh-truncate-log-buffer nil apply start-process expand-file-name mh-list-to-string set-process-filter mh-process-daemon filter] 7 (#$ . 169599)])
#@419 In ennvironment ENV, execute mh-command COMMAND in the background.

ENV is nil or a string of space-separated "var=value" elements.
Signals an error if process does not complete successfully.

If FILTER is non-nil then it is used to process the output otherwise the
default filter `mh-process-daemon' is used. See `set-process-filter' for more
details of FILTER.

ARGS are passed to COMMAND as command line arguments.
(defalias 'mh-exec-cmd-env-daemon #[(env command filter &rest args) "	;\205 \306	\307\"\310\211\203  @\211BA\211\204 *\311\312\f$)\207" [process-environment env elem #1=#:--dolist-temp--3289 command filter split-string " " nil apply mh-exec-cmd-daemon args] 5 (#$ . 170264)])
#@133 PROCESS daemon that puts OUTPUT into a temporary buffer.
Any output from the process is displayed in an asynchronous pop-up window.
(defalias 'mh-process-daemon #[(process output) "\302!q\210\303	!\210\304!\207" [mh-log-buffer output get-buffer-create insert-before-markers display-buffer] 2 (#$ . 170980)])
#@342 Signal RAISE-ERROR if COMMAND with ARGS fails.
Execute MH command COMMAND with ARGS.  ARGS is a list of strings.
Return at start of mh-temp buffer, where output can be parsed and used.
Returns value of `call-process', which is 0 for success, unless RAISE-ERROR is
non-nil, in which case an error is signaled if `call-process' returns non-0.
(defalias 'mh-exec-cmd-quiet #[(raise-error command &rest args) "\306!q\210\307 \210\310\311\312	\n\"\313\314\313&eb\210\203# \315	\f\"\202$ \f)\207" [mh-temp-buffer command mh-progs args value raise-error get-buffer-create erase-buffer apply call-process expand-file-name nil t mh-handle-process-error] 7 (#$ . 171297)])
#@55 Return COMPONENT value from mhparam, or nil if unset.
(defalias 'mh-profile-component #[(component) "\212\301\302\303\304$\210\305\306P!)\207" [component mh-exec-cmd-quiet nil "mhparam" "-components" mh-get-profile-field ":"] 5 (#$ . 171971)])
#@169 Put the mark where point is now, and point where the mark is now.
This command works even when the mark is not active, and preserves whether the
mark is active or not.
(defalias 'mh-exchange-point-and-mark-preserving-active-mark #[nil "\303\300!\205 \304\305!\211\204 \306\307!\210\310`!\210\nb\210\303\300!\203# 	*\311\207" [mark-active is-active omark boundp mark t error "No mark set in this buffer" set-mark nil] 3 (#$ . 172224) nil])
#@187 Execute MH command COMMAND with DISPLAY flag and ARGS.
Put the output into buffer after point.  Set mark after inserted text.
Output is expected to be shown to user, not parsed by MH-E.
(defalias 'mh-exec-cmd-output #[(command display &rest args) "\304`\305\"\210\306\307\310	\"\311\305\n\312!&\210\313 \207" [command mh-progs display args push-mark t apply call-process expand-file-name nil mh-list-to-string mh-exchange-point-and-mark-preserving-active-mark] 8 (#$ . 172676)])
#@118 Execute MH library command COMMAND with ARGS.
Put the output into buffer after point.  Set mark after inserted text.
(defalias 'mh-exec-lib-cmd-output #[(command &rest args) "\303\304\305	\"\306\n$\207" [command mh-lib-progs args apply mh-exec-cmd-output expand-file-name nil] 5 (#$ . 173165)])
#@75 Raise error if COMMAND returned non-zero STATUS, otherwise return STATUS.
(defalias 'mh-handle-process-error #[(command status) "\304\232\203 \207eb\210\250\203 \305\306	#\202 \305\307	#c\210\212ed{\310!q\210\311 \210\nc\210*\312\313	#\207" [status command error-message mh-log-buffer 0 format "%s: exit code %d\n" "%s: %s\n" get-buffer-create mh-truncate-log-buffer error "%s failed, check %s buffer for error message"] 4 (#$ . 173467)])
#@74 Flatten the list L and make every element of the new list into a string.
(defalias 'mh-list-to-string #[(l) "\301!\237\207" [l mh-list-to-string-1] 2 (#$ . 173923)])
#@74 Flatten the list L and make every element of the new list into a string.
(defalias 'mh-list-to-string-1 #[(l) "\302	\203] 	@\203V 	@9\203 \303	@!B\202V 	@\247\203+ \304	@!B\202V 	@\305\232\204V 	@;\203@ 	@B\202V 	@<\203P \306	@!\244\202V \307\310	@\"\210	A\211\204 )\207" [new-list l nil symbol-name int-to-string "" mh-list-to-string-1 error "Bad element in mh-list-to-string: %s"] 4 (#$ . 174096)])
#@64 Replace all occurrences of OLD with NEW in the current buffer.
(defalias 'mh-replace-string #[(old new) "eb\210\303\304	\305\303#\205 \306\n\303\211#\210\202 )\207" [case-fold-search old new t search-forward nil replace-match] 4 (#$ . 174516)])
#@468 Replace REGEXP with NEWTEXT everywhere in STRING and return result.
NEWTEXT is taken literally---no \DIGIT escapes will be recognized.

The function body was copied from `dired-replace-in-string' in dired.el.
Emacs21 has `replace-regexp-in-string' while XEmacs has `replace-in-string'.
Neither is present in Emacs20. The file gnus-util.el in Gnus 5.10.1 and above
has `gnus-replace-in-string'. We should use that when we decide to not support
older versions of Gnus.
(defalias 'mh-replace-in-string #[(regexp newtext string) "\306\307\310\211\311\f\n#\203$ \307\224\307\225\n	O\nQ\202 \n\310OP,\207" [me mb start result regexp string "" 0 nil string-match newtext] 4 (#$ . 174771)])
(provide 'mh-utils)