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



(byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\303\306\305\"\210\300\307!\210\303\310\311\"\207" [require mh-e mh-scan autoload mh-tool-bar-folder-buttons-init "mh-tool-bar" mh-tool-bar-init gnus-util message-fetch-field "message"] 3)
#@173 Incorporate new mail with MH.
Scan an MH folder if ARG is non-nil.

This function is an entry point to MH-E, the Emacs interface to
the MH mail system.

(fn &optional ARG)
(defalias 'mh-rmail #[256 "\302 \210\211\203\303\304!\207\305!\204\304\306	!\"\210\307 \207" [mh-inbox mh-unseen-seq mh-find-path call-interactively mh-visit-folder get-buffer symbol-name mh-inc-folder] 5 (#$ . 330) "P"])
#@179 Check for new mail in inbox folder.
Scan an MH folder if ARG is non-nil.

This function is an entry point to MH-E, the Emacs interface to
the MH mail system.

(fn &optional ARG)
(defalias 'mh-nmail #[256 "\301 \210\211\203\302\303!\207\303!\207" [mh-inbox mh-find-path call-interactively mh-visit-folder] 3 (#$ . 737) "P"])
(byte-code "\300\301!\203\302\301\303\"\210\300\207" [boundp desktop-buffer-mode-handlers add-to-list (mh-folder-mode . mh-restore-desktop-buffer)] 3)
#@289 Restore an MH folder buffer specified in a desktop file.
When desktop creates a buffer, FILE-NAME holds the
file name to visit, NAME holds the desired buffer
name, and MISC holds a list of miscellaneous info
used by the `desktop-buffer-mode-handlers' functions.

(fn FILE-NAME NAME MISC)
(defalias 'mh-restore-desktop-buffer #[771 "\300 \210\301!\210p\207" [mh-find-path mh-visit-folder] 5 (#$ . 1224)])
#@41 Full path of directory for this folder.
(defvar mh-folder-filename nil (#$ . 1635))
#@118 Annotation when displaying part of a folder.
The string is displayed after the folder's name. nil for no
annotation.
(defvar mh-partial-folder-mode-line-annotation "select" (#$ . 1726))
#@46 Destination of last refile or write command.
(defvar mh-last-destination nil (#$ . 1918))
#@37 Destination of last refile command.
(defvar mh-last-destination-folder nil (#$ . 2014))
#@36 Destination of last write command.
(defvar mh-last-destination-write nil (#$ . 2108))
#@36 Number of first message in buffer.
(defvar mh-first-msg-num nil (#$ . 2200))
#@31 Number of last msg in buffer.
(defvar mh-last-msg-num nil (#$ . 2283))
#@27 Number of msgs in buffer.
(defvar mh-msg-count nil (#$ . 2360))
#@32 Menu for MH-E folder-sequence.
(defvar mh-folder-sequence-menu nil (#$ . 2430))
(easy-menu-do-define 'mh-folder-sequence-menu mh-folder-mode-map "Menu for MH-E folder-sequence." '("Sequence" ["Add Message to Sequence..." mh-put-msg-in-seq (mh-get-msg-num nil)] ["List Sequences for Message" mh-msg-is-in-seq (mh-get-msg-num nil)] ["Delete Message from Sequence..." mh-delete-msg-from-seq (mh-get-msg-num nil)] ["List Sequences in Folder..." mh-list-sequences t] ["Delete Sequence..." mh-delete-seq t] ["Narrow to Sequence..." mh-narrow-to-seq t] ["Widen from Sequence" mh-widen mh-folder-view-stack] "--" ["Narrow to Subject Sequence" mh-narrow-to-subject t] ["Narrow to Tick Sequence" mh-narrow-to-tick (and mh-tick-seq (mh-seq-msgs (mh-find-seq mh-tick-seq)))] ["Delete Rest of Same Subject" mh-delete-subject t] ["Toggle Tick Mark" mh-toggle-tick t] "--" ["Push State Out to MH" mh-update-sequences t]))
#@31 Menu for MH-E folder-message.
(defvar mh-folder-message-menu nil (#$ . 3343))
(easy-menu-do-define 'mh-folder-message-menu mh-folder-mode-map "Menu for MH-E folder-message." '("Message" ["Show Message" mh-show (mh-get-msg-num nil)] ["Show Message with Header" mh-header-display (mh-get-msg-num nil)] ["Show Message with Preferred Alternative" mh-show-preferred-alternative (mh-get-msg-num nil)] ["Next Message" mh-next-undeleted-msg t] ["Previous Message" mh-previous-undeleted-msg t] ["Go to First Message" mh-first-msg t] ["Go to Last Message" mh-last-msg t] ["Go to Message by Number..." mh-goto-msg t] ["Modify Message" mh-modify t] ["Refile Message" mh-refile-msg (mh-get-msg-num nil)] ["Delete Message" mh-delete-msg (mh-get-msg-num nil)] ["Undo Delete/Refile/Junk" mh-undo (mh-outstanding-commands-p)] ["Execute Delete/Refile" mh-execute-commands (mh-outstanding-commands-p)] "--" ["Compose a New Message" mh-send t] ["Reply to Message..." mh-reply (mh-get-msg-num nil)] ["Forward Message..." mh-forward (mh-get-msg-num nil)] ["Redistribute Message..." mh-redistribute (mh-get-msg-num nil)] ["Edit Message Again" mh-edit-again (mh-get-msg-num nil)] ["Re-edit a Bounced Message" mh-extract-rejected-mail t] "--" ["Copy Message to Folder..." mh-copy-msg (mh-get-msg-num nil)] ["Print Message" mh-print-msg (mh-get-msg-num nil)] ["Write Message to File..." mh-write-msg-to-file (mh-get-msg-num nil)] ["Pipe Message to Command..." mh-pipe-msg (mh-get-msg-num nil)] ["Unpack Uuencoded Message..." mh-store-msg (mh-get-msg-num nil)] ["Burst Digest Message" mh-burst-digest (mh-get-msg-num nil)]))
#@23 Menu for MH-E folder.
(defvar mh-folder-folder-menu nil (#$ . 4947))
(byte-code "\302\303\304\305$\210\306!\210\307\310\311\"\210\307\312\313\"\210\307\314\315\"\210\307\316\317\"\210\320\321\"\210\320\322\323\"\210\324\325	#\210\320\326\327\"\210\320\330\331\"\210\320\332\333\"\210\320\334\335\"\210\320\336\337\"\210\320\340\341\"\210\320\342\343\"\210\320\344\345\"\210\324\346\347#\207" [mh-folder-mode-map mh-inc-spool-map easy-menu-do-define mh-folder-folder-menu "Menu for MH-E folder." ("Folder" ["Incorporate New Mail" mh-inc-folder t] ["Toggle Show/Folder" mh-toggle-showing t] ["Execute Delete/Refile" mh-execute-commands (mh-outstanding-commands-p)] ["Rescan Folder" mh-rescan-folder t] ["Thread Folder" mh-toggle-threads (not (memq 'unthread mh-view-ops))] ["Pack Folder" mh-pack-folder t] ["Sort Folder" mh-sort-folder t] "--" ["List Folders" mh-list-folders t] ["Visit a Folder..." mh-visit-folder t] ["View New Messages" mh-index-new-messages t] ["Search..." mh-search t] "--" ["Quit MH-E" mh-quit t]) suppress-keymap defalias mh-alt-show mh-show mh-alt-refile-msg mh-refile-msg mh-alt-send mh-send mh-alt-visit-folder mh-visit-folder gnus-define-keys-1 (" " mh-page-msg "!" mh-refile-or-write-again "'" mh-toggle-tick "," mh-header-display "." mh-alt-show ":" mh-show-preferred-alternative ";" mh-toggle-mh-decode-mime-flag ">" mh-write-msg-to-file "?" mh-help "E" mh-extract-rejected-mail "M" mh-modify "" mh-previous-page "" mh-delete-msg-no-motion "	" mh-index-next-folder [backtab] mh-index-previous-folder "\211" mh-index-previous-folder "<" mh-first-msg ">" mh-last-msg "d" mh-redistribute "
" mh-show "^" mh-alt-refile-msg "c" mh-copy-msg "d" mh-delete-msg "e" mh-edit-again "f" mh-forward "g" mh-goto-msg "i" mh-inc-folder "k" mh-delete-subject-or-thread "m" mh-alt-send "n" mh-next-undeleted-msg "\356" mh-next-unread-msg "o" mh-refile-msg "p" mh-previous-undeleted-msg "\360" mh-previous-unread-msg "q" mh-quit "r" mh-reply "s" mh-send "t" mh-toggle-showing "u" mh-undo "v" mh-index-visit-folder "x" mh-execute-commands "|" mh-pipe-msg) (mh-folder-map "F" mh-folder-mode-map) ("?" mh-prefix-help "'" mh-index-ticked-messages "S" mh-sort-folder "c" mh-catchup "f" mh-alt-visit-folder "k" mh-kill-folder "l" mh-list-folders "n" mh-index-new-messages "o" mh-alt-visit-folder "p" mh-pack-folder "q" mh-index-sequenced-messages "r" mh-rescan-folder "s" mh-search "u" mh-undo-folder "v" mh-visit-folder) define-key "I" (mh-junk-map "J" mh-folder-mode-map) ("?" mh-prefix-help "a" mh-junk-allowlist "b" mh-junk-blocklist "w" mh-junk-whitelist) (mh-ps-print-map "P" mh-folder-mode-map) ("?" mh-prefix-help "C" mh-ps-print-toggle-color "F" mh-ps-print-toggle-faces "f" mh-ps-print-msg-file "l" mh-print-msg "p" mh-ps-print-msg) (mh-sequence-map "S" mh-folder-mode-map) ("'" mh-narrow-to-tick "?" mh-prefix-help "d" mh-delete-msg-from-seq "k" mh-delete-seq "l" mh-list-sequences "n" mh-narrow-to-seq "p" mh-put-msg-in-seq "s" mh-msg-is-in-seq "w" mh-widen) (mh-thread-map "T" mh-folder-mode-map) ("?" mh-prefix-help "u" mh-thread-ancestor "p" mh-thread-previous-sibling "n" mh-thread-next-sibling "t" mh-toggle-threads "d" mh-thread-delete "o" mh-thread-refile) (mh-limit-map "/" mh-folder-mode-map) ("'" mh-narrow-to-tick "?" mh-prefix-help "c" mh-narrow-to-cc "g" mh-narrow-to-range "m" mh-narrow-to-from "s" mh-narrow-to-subject "t" mh-narrow-to-to "w" mh-widen) (mh-extract-map "X" mh-folder-mode-map) ("?" mh-prefix-help "s" mh-store-msg "u" mh-store-msg) (mh-digest-map "D" mh-folder-mode-map) (" " mh-page-digest "?" mh-prefix-help "" mh-page-digest-backwards "b" mh-burst-digest) (mh-mime-map "K" mh-folder-mode-map) ("?" mh-prefix-help "a" mh-mime-save-parts "e" mh-display-with-external-viewer "i" mh-folder-inline-mime-part "o" mh-folder-save-mime-part "t" mh-toggle-mime-buttons "v" mh-folder-toggle-mime-part "	" mh-next-button [backtab] mh-prev-button "\211" mh-prev-button) [mouse-2] mh-show-mouse] 5)
#@45 Key binding cheat sheet.
See `mh-set-help'.
(defvar mh-folder-mode-help-messages '((nil "[i]nc, [.]show, [,]show all, [n]ext, [p]revious,\n" "[d]elete, [o]refile, e[x]ecute,\n" "[s]end, [r]eply,\n" "[;]toggle MIME decoding.\n" "Prefix characters:\n [F]older, [S]equence, [J]unk, MIME [K]eys," "\n [T]hread, [/]limit, e[X]tract, [D]igest, [I]nc spools.") (70 "[l]ist; [v]isit folder;\n" "[n]ew messages; [']ticked messages; [s]earch;\n" "[p]ack; [S]ort; [r]escan; [k]ill") (80 "[p]rint message to [f]ile; old-style [l]pr printing;\n" "Toggle printing of [C]olors, [F]aces") (83 "[p]ut message in sequence, [n]arrow, [']narrow to ticked, [w]iden,\n" "[s]equences, [l]ist,\n" "[d]elete message from sequence, [k]ill sequence") (84 "[t]oggle, [d]elete, [o]refile thread") (47 "Limit to [c]c, ran[g]e, fro[m], [s]ubject, [t]o; [w]iden") (88 "un[s]har, [u]udecode message") (68 "[b]urst digest") (75 "[v]iew, [i]nline, with [e]xternal viewer; \n" "[o]utput/save MIME part; save [a]ll parts; \n" "[t]oggle buttons; [TAB] next; [SHIFT-TAB] previous") (74 "[b]locklist, [a]llowlist message")) (#$ . 8899))
#@70 Keywords (regular expressions) used to fontify the MH-Folder buffer.
(defvar mh-folder-font-lock-keywords (byte-code "\306\307D\310P\311D	\310P\312D\n\310P\313D\310P\314D\f\315D\316
\317D\320D\321D\322\323E\324\325E\257\f\207" [mh-scan-refiled-msg-regexp mh-scan-deleted-msg-regexp mh-scan-blocklisted-msg-regexp mh-scan-allowlisted-msg-regexp mh-scan-body-regexp mh-scan-cur-msg-number-regexp "^\\+.*" (0 'mh-search-folder) ".*" (0 'mh-folder-refiled) (0 'mh-folder-deleted) (0 'mh-folder-blocklisted) (0 'mh-folder-allowlisted) (1 'mh-folder-body nil t) (mh-folder-font-lock-subject (1 'mh-folder-followup append t) (2 'mh-folder-subject append t)) (1 'mh-folder-cur-msg-number) (1 'mh-folder-msg-number) (1 'mh-folder-date) (1 'mh-folder-to) (2 'mh-folder-address) (1 'mh-folder-sent-to-me-hint) (2 'mh-folder-sent-to-me-sender) mh-scan-good-msg-regexp mh-scan-date-regexp mh-scan-rcpt-regexp mh-scan-sent-to-me-sender-regexp] 14) (#$ . 10002))
#@84 Return MH-E scan subject strings to font-lock between point and LIMIT.

(fn LIMIT)
(defalias 'mh-folder-font-lock-subject #[257 "\301\302#\205/\303\224\203\304\303\224\305\225\303\224\305\225\306\211\257!\210\202.\304\305\224\305\225\306\211\305\224\305\225\257!\210\302\207" [mh-scan-subject-regexp re-search-forward t 1 set-match-data 3 nil] 8 (#$ . 10966)])
#@306 Generate the appropriate code to fontify messages in SEQ.
PREFIX is used to generate unique names for the variables and
functions defined by the macro. So a different prefix should be
provided for every invocation.
FACE is the font-lock face used to display the matching scan lines.

(fn SEQ PREFIX FACE)
(defalias 'mh-generate-sequence-font-lock '(macro . #[771 "\300\301\302\"!\300\301\303\"!\304\305\306BB\307\310DD\311\312\313\314\315\nD\316\317\320DDEE\321\322\323\315
D\324B\325\316\326BB\327BB\330\331E\321\332\314\333\316\334BBE\335BBBD\336\337\340\341\342\315\330\343EDFD\321\344\323\345\346\315\330\331EDE\316\347BB\350BB\330\331E\321\351\314\352\316\353BBE\354BBBDEEE\257E\257\316\355\356\355\357\211\310D\357\360\310\211DD\361BBBEDEE\257\207" [intern format "mh-folder-%s-seq-cache" "mh-folder-font-lock-%s" progn defvar (nil "Internal cache variable used for font-lock in MH-E.\nShould only be non-nil through font-lock stepping, and nil once\nfont-lock is done highlighting.") make-variable-buffer-local quote defun (limit) "Return unseen message lines to font-lock between point and LIMIT." if not setq mh-seq-msgs mh-find-seq let ((cur-msg (mh-get-msg-num nil))) cond (nil) (>= (point) limit) (nil) (nil) member cur-msg ((bpoint (progn (beginning-of-line) (point))) (epoint (progn (forward-line 1) (point)))) (<= limit (point)) (nil) ((set-match-data (list bpoint epoint bpoint epoint)) t) t while and (= 0 (forward-line 1)) (> limit (point)) (mh-get-msg-num nil) ((cur-msg (mh-get-msg-num nil))) or (<= limit (point)) (nil) (nil) ((bpoint (progn (beginning-of-line) (point))) (epoint (progn (forward-line 1) (point)))) (<= limit (point)) (nil) ((set-match-data (list bpoint epoint bpoint epoint)) t) mh-folder-font-lock-keywords append list 1 ('prepend t)] 33 (#$ . 11342)]))
#@149 Internal cache variable used for font-lock in MH-E.
Should only be non-nil through font-lock stepping, and nil once
font-lock is done highlighting.
(defvar mh-folder-unseen-seq-cache nil (#$ . 13176))
(make-variable-buffer-local 'mh-folder-unseen-seq-cache)
#@79 Return unseen message lines to font-lock between point and LIMIT.

(fn LIMIT)
(defalias 'mh-folder-font-lock-unseen #[257 "\204\f\302	!\211A\262
\303\304!\204\304\207`Y\203\304\211\207\211\235\203@\305 \210`\306y\210``X\2035\304\307F!\266\310\207\306y\311U\203U
`V\203U\303\304!\235\203@\303\304!`X\204d\211\235\204h\304\211\207\211\235\205\210\305 \210`\306y\210``X\203~\304\307F!\266\310\207" [mh-folder-unseen-seq-cache mh-unseen-seq mh-find-seq mh-get-msg-num nil beginning-of-line 1 set-match-data t 0] 11 (#$ . 13440)])
(byte-code "\301\302\303\304\305\306FDC\"\301\207" [mh-folder-font-lock-keywords append mh-folder-font-lock-unseen 1 'bold prepend t] 7)
#@149 Internal cache variable used for font-lock in MH-E.
Should only be non-nil through font-lock stepping, and nil once
font-lock is done highlighting.
(defvar mh-folder-tick-seq-cache nil (#$ . 14151))
(make-variable-buffer-local 'mh-folder-tick-seq-cache)
#@79 Return unseen message lines to font-lock between point and LIMIT.

(fn LIMIT)
(defalias 'mh-folder-font-lock-tick #[257 "\204\f\302	!\211A\262
\303\304!\204\304\207`Y\203\304\211\207\211\235\203@\305 \210`\306y\210``X\2035\304\307F!\266\310\207\306y\311U\203U
`V\203U\303\304!\235\203@\303\304!`X\204d\211\235\204h\304\211\207\211\235\205\210\305 \210`\306y\210``X\203~\304\307F!\266\310\207" [mh-folder-tick-seq-cache mh-tick-seq mh-find-seq mh-get-msg-num nil beginning-of-line 1 set-match-data t 0] 11 (#$ . 14411)])
(byte-code "\301\302\303\304\305\306FDC\"\301\207" [mh-folder-font-lock-keywords append mh-folder-font-lock-tick 1 'mh-folder-tick prepend t] 7)
#@72 Get rid of the horizontal scrollbar that XEmacs insists on putting in.
(defalias 'mh-remove-xemacs-horizontal-scrollbar '(macro . #[0 "\300\207" [nil] 1 (#$ . 15123)]))
(byte-code "\301\302\303\304#\210\305\300!\203<\203\306\300\307\"\210\310\307\311\312#\207" [which-func-modes mh-require which-func nil t boundp add-to-list mh-folder-mode put mode-class special] 4)
(defvar mh-folder-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [mh-folder-mode-hook variable-documentation put "Hook run after entering MH-Folder mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp mh-folder-mode-map definition-name mh-folder-mode] 4)
(defvar mh-folder-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [mh-folder-mode-abbrev-table mh-folder-mode-map variable-documentation put purecopy "Keymap for `mh-folder-mode'." boundp mh-folder-mode-syntax-table definition-name mh-folder-mode (lambda (#1=#:def-tmp-var) (defvar mh-folder-mode-syntax-table #1#)) make-syntax-table "Syntax table for `mh-folder-mode'." (lambda (#1#) (defvar mh-folder-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `mh-folder-mode'." derived-mode-parent] 5)
#@1679 Major MH-E mode for "editing" an MH folder scan listing.\<mh-folder-mode-map>

You can show the message the cursor is pointing to, and step through
the messages. Messages can be marked for deletion or refiling into
another folder; these commands are executed all at once with a
separate command.

Options that control this mode can be changed with
\[customize-group]; specify the "mh" group. In particular, please
see the `mh-scan-format-file' option if you wish to modify scan's
format.

When a folder is visited, the hook `mh-folder-mode-hook' is run.

Ranges
======
Many commands that operate on individual messages, such as
`mh-forward' or `mh-refile-msg' take a RANGE argument. This argument
can be used in several ways.

If you provide the prefix argument (\[universal-argument]) to
these commands, then you will be prompted for the message range.
This can be any valid MH range which can include messages,
sequences, and the abbreviations (described in the mh(1) man
page):

<num1>-<num2>
    Indicates all messages in the range <num1> to <num2>, inclusive.
    The range must be nonempty.

<num>:N
<num>:+N
<num>:-N
    Up to N messages beginning with (or ending with) message num. Num
    may be any of the predefined symbols: first, prev, cur, next or
    last.

first:N
prev:N
next:N
last:N
    The first, previous, next or last messages, if they exist.

all
    All of the messages.

For example, a range that shows all of these things is `1 2 3
5-10 last:5 unseen'.

If the option `transient-mark-mode' is set to t and you set a
region in the MH-Folder buffer, then the MH-E command will
perform the operation on all messages in that region.

\{mh-folder-mode-map}
(defalias 'mh-folder-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
@A\204 \315 \210\316\317!\203.\306\317!\210A\306\320!\210\321\306\322!\210\307\323\324\325 \326\327 \330\331\332\327 \"\333\334\335\327 !!\336\337\340 \341\342\343\344\345\342\346\342\347\342\350\342\351\342\352\342\353\342\354\355\356\342\357\342\360\342\361\342\362\342\363\342\364\342\365\342\366\342\367\342\370\342\371\372 \373\374\375\342&<\210\307B\376\377!\210\307C\201F\201G\201H\342\307$\210\306\201D!\210\306\201I!\210\201J\201I!\203\277\201I\201K!\210\201LD\201M\201N\201O\"\210\201P \210\201QE!\210)\201R\201S!\207" [delay-mode-hooks major-mode mode-name mh-folder-mode-map mh-folder-mode-syntax-table mh-folder-mode-abbrev-table make-local-variable t kill-all-local-variables mh-folder-mode "MH-Folder" use-local-map set-syntax-table mh-tool-bar-folder-buttons-init boundp tool-bar-map font-lock-defaults (mh-folder-font-lock-keywords t) desktop-save-buffer mh-make-local-vars mh-colors-available-flag mh-colors-available-p mh-current-folder buffer-name mh-show-buffer format "show-%s" mh-folder-filename file-name-as-directory mh-expand-file-name mh-display-buttons-for-inline-parts-flag mh-arrow-marker make-marker overlay-arrow-position nil overlay-arrow-string ">" mh-showing-mode mh-refile-list mh-delete-list mh-blocklist mh-allowlist mh-seq-list mh-seen-list mh-next-direction forward mh-view-ops mh-folder-view-stack mh-index-data mh-index-previous-search mh-index-msg-checksum-map mh-index-checksum-origin-map mh-index-sequence-search-flag mh-first-msg-num mh-last-msg-num mh-msg-count mh-mode-line-annotation mh-sequence-notation-history make-hash-table imenu-create-index-function mh-index-create-imenu-index mh-previous-window-config auto-save-mode -1 local-abbrev-table mh-folder-tool-bar-map truncate-lines buffer-offer-save revert-buffer-function mh-folder-mode-help-messages add-hook write-file-functions mh-execute-commands hl-line-mode fboundp 1 mh-undo-folder add-to-list minor-mode-alist (mh-showing-mode " Show") mh-inc-spool-make mh-set-help run-mode-hooks mh-folder-mode-hook] 61 (#$ . 16677) nil])
#@798 Delete RANGE\<mh-folder-mode-map>.

To mark a message for deletion, use this command. A "D" is
placed by the message in the scan window, and the next undeleted
message is displayed. If the previous command had been
\[mh-previous-undeleted-msg], then the next message displayed is
the first undeleted message previous to the message just deleted.
Use \[mh-next-undeleted-msg] to force subsequent
\[mh-delete-msg] commands to move forward to the next undeleted
message after deleting the message under the cursor.

The hook `mh-delete-msg-hook' is called after you mark a message
for deletion. For example, a past maintainer of MH-E used this
once when he kept statistics on his mail usage.

Check the documentation of `mh-interactive-range' to see how
RANGE is read in interactive use.

(fn RANGE)
(defalias 'mh-delete-msg #[257 "\301
!\210\302!\205\f\303 \207" [mh-scan-deleted-msg-regexp mh-delete-msg-no-motion looking-at mh-next-msg] 3 (#$ . 20523) (byte-code "\300\301!C\207" [mh-interactive-range "Delete"] 2)])
#@300 Delete RANGE, don't move to next message.

This command marks the RANGE for deletion but leaves the cursor
at the current message in case you wish to perform other
operations on the message.

Check the documentation of `mh-interactive-range' to see how
RANGE is read in interactive use.

(fn RANGE)
(defalias 'mh-delete-msg-no-motion #[257 "\211\247\203\302
\303\211#\205\253\304\305!\207\211:\203H\211@\247\203H\211A\247\203H\212\211@b\210\306 \210`
AX\205Fm?\205F\307!\203@\304\305!\210\310y\210\202*)\207\211\203W\2119\203W\311
!\202d\211;\203c\312	\"\202d\211\313 
\211\203z\211@\314
\303#\210
A\266\202\202g\210\212eb\210\306 \210`dX\205\250m?\205\250\307!\203\242\315\303!\316
\"\203\241\304\305!\210\210\310y\210\202\202)\266\202\207" [mh-scan-valid-regexp mh-current-folder mh-goto-msg t mh-delete-a-msg nil beginning-of-line looking-at 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash mh-get-msg-num gethash] 9 (#$ . 21549) (byte-code "\300\301!C\207" [mh-interactive-range "Delete"] 2)])
#@631 Perform outstanding operations\<mh-folder-mode-map>.

If you've marked messages to be refiled, deleted, blocklisted, or
allowlisted and you want to go ahead and perform these operations
on these messages, use this command. Many MH-E commands that may
affect the numbering of the messages (such as
\[mh-rescan-folder] or \[mh-pack-folder]) will ask if you want
to perform these operations first and then either run this
command for you or undo the pending operations.

This function runs `mh-before-commands-processed-hook' before the
commands are processed and `mh-after-commands-processed-hook'
after the commands are processed.
(defalias 'mh-execute-commands #[0 "\203\302\303!\210\304	!\210\305 \210\306 \210\307 \210\303\207" [mh-folder-view-stack mh-current-folder mh-widen t mh-process-commands mh-set-scan-mode mh-goto-cur-msg mh-make-folder-mode-line] 2 (#$ . 22592) nil])
#@24 Display first message.
(defalias 'mh-first-msg #[0 "eb\210m?\205\301!?\205\302y\210\202\207" [mh-scan-valid-regexp looking-at 1] 2 (#$ . 23482) nil])
#@502 Go to a message\<mh-folder-mode-map>.

You can enter the message NUMBER either before or after typing
\[mh-goto-msg]. In the latter case, Emacs prompts you.

In a program, 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.

(fn NUMBER &optional NO-ERROR-IF-NO-MESSAGE DONT-SHOW)
(defalias 'mh-goto-msg #[769 "\300!\262`\301eb\210\302\303\304 \"\305\301#\204'
b\210\204$\306\307\"\210\305\262
\310 \210\2046\211\2036\311!\210\207" [prefix-numeric-value t re-search-forward format mh-scan-msg-search-regexp nil error "No message %d" beginning-of-line mh-maybe-show] 9 (#$ . 23646) "NGo to message: "])
#@386 Incorporate new mail into a folder.

You can incorporate mail from any file into the current folder by
specifying a prefix argument; you'll be prompted for the name of
the FILE to use as well as the destination FOLDER

The hook `mh-inc-folder-hook' is run after incorporating new
mail.

Do not call this function from outside MH-E; use \[mh-rmail]
instead.

(fn &optional FILE FOLDER)
(defalias 'mh-inc-folder #[512 "\211\204\262
\306\307 	\203\310	!\203\311	!\210\310!\204)\312!\210\n\262\2028p\310!=\2047\313!\210\211\210\314!\210\211\203^\212eb\210\f?\206W\fTy\315=?\206W\316\317!\210\306)\203^\320 \210\321 \210\322 \203i\323 \210
\203w\324!\203w\325 \210\326\327!\207" [mh-inbox mh-show-buffer mh-show-threads-flag mh-previous-window-config mh-large-folder mh-showing-mode nil current-window-configuration get-buffer delete-windows-on mh-make-folder switch-to-buffer mh-get-new-mail 0 message "Not threading since the number of messages exceeds `mh-large-folder'" mh-toggle-threads beginning-of-line mh-outstanding-commands-p mh-notate-deleted-and-refiled looking-at mh-show run-hooks mh-inc-folder-hook mh-scan-valid-regexp] 7 (#$ . 24488) (byte-code "\205\n\303\304\305	\"!\205\306\307\n\310#D\207" [current-prefix-arg mh-user-path mh-inbox expand-file-name read-file-name "inc mail from file: " mh-prompt-for-folder "inc mail into" t] 5)])
#@23 Display last message.
(defalias 'mh-last-msg #[0 "db\210o\204\301!\204\302y\210\202\303\304!\207" [mh-scan-valid-regexp looking-at -1 mh-recenter nil] 2 (#$ . 25874) nil])
#@383 Edit message.

There are times when you need to edit a message. For example, you
may need to fix a broken Content-Type header field. You can do
this with this command. It displays the raw message in an
editable buffer. When you are done editing, save and kill the
buffer as you would any other.

From a program, edit MESSAGE; nil means edit current message.

(fn &optional MESSAGE)
(defalias 'mh-modify #[256 "\211\206\303\304!\305
!\306\307!\204\310\311\"\210\312\313!!\203,rq\210	)\232\203,\314 \210\315!\210p\262
\316 \210\317\n!\210\320 \210\321
!\207" [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] 7 (#$ . 26060) nil])
#@247 Go to the next button.

If the end of the buffer is reached then the search wraps over to
the start of the buffer.

If an optional prefix argument BACKWARD-FLAG is given, the cursor
will move to the previous button.

(fn &optional BACKWARD-FLAG)
(defalias 'mh-next-button #[256 "\204\303 \210\304 \305	!\210\n\203\306p!\210\307\310\"\216\311!)\207" [mh-showing-mode mh-show-buffer mh-bury-show-buffer-flag mh-show selected-window switch-to-buffer-other-window bury-buffer make-closure #[0 "\301\300!\207" [V0 select-window] 2] mh-goto-next-button] 5 (#$ . 26918) (list current-prefix-arg)])
#@328 Display next message.

This command can be given a prefix argument COUNT to specify how
many unread messages to skip.

In a program, pause for a second after printing message if we are
at the last undeleted message and optional argument
WAIT-AFTER-COMPLAINING-FLAG is non-nil.

(fn &optional COUNT WAIT-AFTER-COMPLAINING-FLAG)
(defalias 'mh-next-undeleted-msg #[512 "\302\303y\210\304	\305\306$\203\307 \210\310 \207\311y\210\312\313!\210\211\205\"\314\303!\207" [mh-next-direction mh-scan-good-msg-regexp forward 1 re-search-forward nil t beginning-of-line mh-maybe-show -1 message "No more undeleted messages" sit-for] 7 (#$ . 27523) "p"])
#@148 Display next unread message.

This command can be given a prefix argument COUNT to specify how
many unread messages to skip.

(fn &optional COUNT)
(defalias 'mh-next-unread-msg #[256 "\211\302V\204\n\303\304!\210\211S\262
\305\306	\"A!\307\310!\211\204(o\204(\311y\210\307\310!\262

\2030\211\2044\312\313!\207
\203F\211@Y\203F
A\262\2024\302V\203W
A\262S\262\202F
@\204`\312\313!\207
\310\314\310:\203\211@\262\315\314\"\203~\310\262
\310\211\262\202\314\203\211A\262\202d
\203\224\312\313!\266\310\207\207" [mh-unseen-seq mh-seq-list 0 error "The function `mh-next-unread-msg' expects positive argument" reverse assoc mh-get-msg-num nil -1 message "No more unread messages" t mh-goto-msg] 10 (#$ . 28177) "p"])
#@241 Display next page in message.

You can give this command a prefix argument that specifies the
number of LINES to scroll. This command will also show the next
undeleted message if it is used at the bottom of a message.

(fn &optional LINES)
(defalias 'mh-page-msg #[256 "\203J	\203\n\306=\203\307 \207\310 \207\311 \312!\210\f\203\"\313p!\210\314\315\"\216\316d!)\262
\203F\317\320\321
!\n\306=\203?\322\202@\323#\210\324\211\207\325
!\207\326 \207" [mh-showing-mode mh-page-to-next-msg-flag mh-next-direction mh-show-buffer mh-bury-show-buffer-flag last-input-event backward mh-previous-undeleted-msg mh-next-undeleted-msg selected-window switch-to-buffer-other-window bury-buffer make-closure #[0 "\301\300!\207" [V0 select-window] 2] pos-visible-in-window-p message "End of message (Type %s to read %s undeleted message)" single-key-description "previous" "next" t scroll-other-window mh-show] 6 (#$ . 28930) "P"])
#@124 Go to the previous button.

If the beginning of the buffer is reached then the search wraps
over to the end of the buffer.
(defalias 'mh-prev-button #[0 "\300\301!\207" [mh-next-button t] 2 (#$ . 29867) nil])
#@144 Display next page in message.

You can give this command a prefix argument that specifies the
number of LINES to scroll.

(fn &optional LINES)
(defalias 'mh-previous-page #[256 "\302 \303!\210	\203\304p!\210\305\306\"\216\307!)\207" [mh-show-buffer mh-bury-show-buffer-flag selected-window switch-to-buffer-other-window bury-buffer make-closure #[0 "\301\300!\207" [V0 select-window] 2] scroll-down] 5 (#$ . 30083) "P"])
#@332 Display previous message.

This command can be given a prefix argument COUNT to specify how
many unread messages to skip.

In a program, pause for a second after printing message if we are
at the last undeleted message and optional argument
WAIT-AFTER-COMPLAINING-FLAG is non-nil.

(fn &optional COUNT WAIT-AFTER-COMPLAINING-FLAG)
(defalias 'mh-previous-undeleted-msg #[512 "\302\303 \210\304	\305\306$\203\307 \207\310\311!\210\211\205\312\313!\207" [mh-next-direction mh-scan-good-msg-regexp backward beginning-of-line re-search-backward nil t mh-maybe-show message "No previous undeleted message" sit-for 1] 7 (#$ . 30516) "p"])
#@152 Display previous unread message.

This command can be given a prefix argument COUNT to specify how
many unread messages to skip.

(fn &optional COUNT)
(defalias 'mh-previous-unread-msg #[256 "\211\302V\204\n\303\304!\210\211S\262
\305	\"A\306\307!\211\204&o\204&\310y\210\306\307!\262

\203.\211\2042\311\312!\207
\203D
@
Y\203D
A\262\2022\302V\203U
A\262S\262\202D
@\204^\311\312!\207
\307\313\307:\203\207@\262\314\313\"\203|\307\262
\307\211\262\202}\313\203\207A\262\202b
\203\222\311\312!\266\307\207\207" [mh-unseen-seq mh-seq-list 0 error "The function `mh-previous-unread-msg' expects positive argument" assoc mh-get-msg-num nil -1 message "No more unread messages" t mh-goto-msg] 10 (#$ . 31161) "p"])
#@800 Quit the current MH-E folder.

When you want to quit using MH-E and go back to editing, you can use
this command. This buries the buffers of the current MH-E folder and
restores the buffers that were present when you first ran
\[mh-rmail]. It also removes any MH-E working buffers whose name
begins with " *mh-" or "*MH-E ". You can later restore your MH-E
session by selecting the "+inbox" buffer or by running \[mh-rmail]
again.

The two hooks `mh-before-quit-hook' and `mh-quit-hook' are called by
this function. The former one is called before the quit occurs, so you
might use it to perform any MH-E operations; you could perform some
query and abort the quit or call `mh-execute-commands', for example.
The latter is not run in an MH-E context, so you might use it to
modify the window setup.
(defalias 'mh-quit #[0 "\302\303!\210\304!\211\203\305
!\210\210\306 \210\307 \210\310p!\210\311 \211\203?\211@\312\313\314!\"\2044\312\315\314!\"\2038\305
!\210
A\266\202\202\210	\203H\316	!\210\302\317!\207" [mh-show-buffer mh-previous-window-config run-hooks mh-before-quit-hook get-buffer kill-buffer mh-update-sequences mh-destroy-postponed-handles bury-buffer buffer-list string-match "^ \\*mh-" buffer-name "^\\*MH-E " set-window-configuration mh-quit-hook] 6 (#$ . 31910) nil])
#@604 Refile (output) RANGE into FOLDER.

You are prompted for the folder name. Note that this command can also
be used to create folders. If you specify a folder that does not
exist, you will be prompted to create it.

The hook `mh-refile-msg-hook' is called after a message is marked to
be refiled.

Check the documentation of `mh-interactive-range' to see how RANGE is
read in interactive use.

In a program, the variables `mh-last-destination' and
`mh-last-destination-folder' are not updated if
DONT-UPDATE-LAST-DESTINATION-FLAG is non-nil.

(fn RANGE FOLDER &optional DONT-UPDATE-LAST-DESTINATION-FLAG)
(defalias 'mh-refile-msg #[770 "\211\204\n\305B\211\247\203\306\307\211#\203\274\310\311\"\210\202\274:\203X@\247\203XA\247\203X\212@b\210\312 \210`AX\203Tm\204T\313\n!\203N\310\311\"\210\314y\210\2028)\202\274\203g9\203g\315!\202t;\203s\316\"\202t\317 
\211\203\212\211@\320
\307#\210
A\266\202\202w\210\212eb\210\312 \210`dX\203\271m\204\271\313\n!\203\263\321\307!\322
\"\203\262\310\311\"\210\210\314y\210\202\222)\266\313\f!\205\304\323 \207" [mh-last-destination mh-last-destination-folder mh-scan-valid-regexp mh-current-folder mh-scan-refiled-msg-regexp refile mh-goto-msg t mh-refile-a-msg nil beginning-of-line looking-at 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash mh-get-msg-num gethash mh-next-msg] 12 (#$ . 33213) (byte-code "\300\301!\302\303 !D\207" [mh-interactive-range "Refile" intern mh-prompt-for-refile-folder] 3)])
#@443 Repeat last output command.

If you are refiling several messages into the same folder, you
can use this command to repeat the last
refile (\[mh-refile-msg]) or write (\[mh-write-msg-to-file]).
You can use a range.

Check the documentation of `mh-interactive-range' to see how RANGE is
read in interactive use.

In a program, a non-nil INTERACTIVE-FLAG means that the function was
called interactively.

(fn RANGE &optional INTERACTIVE-FLAG)
(defalias 'mh-refile-or-write-again #[513 "\204\303\304!\210@\305=\203\306A\"\210\307\310A\"\207
\247\2032\311\312\211#\203\326\313\314A#\210\202\326
:\203q
@\247\203q
A\247\203q\212
@b\210\315 \210`AX\203mm\204m\316	!\203g\317\312!\313\314A#\266\320y\210\202K)\202\326
\203\200
9\203\200\321!\202\215
;\203\214\322\n\"\202\215
\323 
\211\203\243\211@\324
\312#\210
A\266\202\202\220\210\212eb\210\315 \210`dX\203\323m\204\323\316	!\203\315\317\312!\325
\"\203\314\313\314A#\210\210\320y\210\202\253)\266\326
!\207" [mh-last-destination mh-scan-valid-regexp mh-current-folder error "No previous refile or write" refile mh-refile-msg message "Destination folder: %s" mh-goto-msg t apply mh-write-msg-to-file beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash mh-next-msg] 10 (#$ . 34727) (byte-code "\300\301!\302D\207" [mh-interactive-range "Redo" t] 2)])
#@633 Rescan folder\<mh-folder-mode-map>.

This command is useful to grab all messages in your "+inbox" after
processing your new mail for the first time. If you don't want to
rescan the entire folder, this command will accept a RANGE. Check the
documentation of `mh-interactive-range' to see how RANGE is read in
interactive use.

This command will ask if you want to process refiles or deletes first
and then either run \[mh-execute-commands] for you or undo the
pending refiles and deletes.

In a program, the processing of outstanding commands is not performed
if DONT-EXEC-PENDING is non-nil.

(fn &optional RANGE DONT-EXEC-PENDING)
(defalias 'mh-rescan-folder #[512 "\304\305	>\306\307!\310\n\206\311#\210\312\313!@\204\314
\315\211#\210
\203&\316 \207\205,\317 \207" [mh-next-direction mh-view-ops mh-current-folder mh-index-data forward unthread mh-get-msg-num nil mh-scan-folder "all" mh-seq-to-msgs cur mh-goto-msg t mh-toggle-threads mh-index-insert-folder-headers] 8 (#$ . 36139) (byte-code "\205
\303\304	\305\306\305\n&C\207" [current-prefix-arg mh-current-folder mh-interpret-number-as-range-flag mh-read-range "Rescan" t nil] 7)])
#@57 Move point to mouse EVENT and show message.

(fn EVENT)
(defalias 'mh-show-mouse #[257 "\300
!\210\301 \207" [mouse-set-point mh-show] 3 (#$ . 37299) "e"])
#@383 Toggle between MH-Folder and MH-Folder Show modes.

This command switches between MH-Folder mode and MH-Folder Show
mode. MH-Folder mode turns off the associated show buffer so that
you can perform operations on the messages quickly without
reading them. This is an excellent way to prune out your junk
mail or to refile a group of messages to another folder for later
examination.
(defalias 'mh-toggle-showing #[0 "\203\301 \207\302 \207" [mh-showing-mode mh-set-scan-mode mh-show] 1 (#$ . 37462) nil])
#@425 Undo pending deletes or refiles in RANGE.

If you've deleted a message or refiled it, but changed your mind,
you can cancel the action before you've executed it. Use this
command to undo a refile on or deletion of a single message. You
can also undo refiles and deletes for messages that are found in
a given RANGE.

Check the documentation of `mh-interactive-range' to see how
RANGE is read in interactive use.

(fn RANGE)
(defalias 'mh-undo #[257 "\211\247\203z`\306 \210\307!\204J\307	!\204J\307\n!\204J\307!\204J\f\310=\203+o\204J\f\311=\203:\212\312y\210m)\204J\f\310=\203D\313\202E\314y\210\202	\307!\204b\307	!\204b\307\n!\204b\307!\203o\315\316\317!!\210\320 \266\202)
\211b\210\321\322!\266\202)
\211\247\203\216\323
\317\211#\203)
\315\312!\210\202)
\211:\203\306\211@\247\203\306\211A\247\203\306\212\211@b\210\306 \210`
AX\203\302m\204\302\307
!\203\274\315\312!\210\314y\210\202\247)\202)
\211\203\325\2119\203\325\324
!\202\343\211;\203\342\325\"\202\343\211\326 
\211\203\371\211@\327
\317#\210
A\266\202\202\346\210\212eb\210\306 \210`dX\203&
m\204&
\307
!\203 
\316\317!\330
\"\203
\315\312!\210\210\314y\210\202

)\266\331 ?\2052
\332\312!\207" [mh-scan-refiled-msg-regexp mh-scan-deleted-msg-regexp mh-scan-blocklisted-msg-regexp mh-scan-allowlisted-msg-regexp mh-next-direction mh-scan-valid-regexp beginning-of-line looking-at forward backward nil -1 1 mh-undo-msg mh-get-msg-num t mh-maybe-show error "Nothing to undo" mh-goto-msg mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash mh-outstanding-commands-p mh-set-folder-modified-p mh-current-folder] 9 (#$ . 37976) (byte-code "\300\301!C\207" [mh-interactive-range "Undo"] 2)])
#@1170 Visit FOLDER.

When you want to read the messages that you have refiled into folders,
use this command to visit the folder. You are prompted for the folder
name.

The folder buffer will show just unseen messages if there are any;
otherwise, it will show all the messages in the buffer as long there
are fewer than `mh-large-folder' messages. If there are more, then you
are prompted for a range of messages to scan.

You can provide a prefix argument in order to specify a RANGE of
messages to show when you visit the folder. In this case, regions are
not used to specify the range and `mh-large-folder' is ignored. Check
the documentation of `mh-interactive-range' to see how RANGE is read
in interactive use.

Note that this command can also be used to create folders. If you
specify a folder that does not exist, you will be prompted to create
it.

Do not call this function from outside MH-E; use \[mh-rmail] instead.

If, in a program, RANGE is nil (the default), then all messages in
FOLDER are displayed. If an index buffer is being created then
INDEX-DATA is used to initialize the index buffer specific data
structures.

(fn FOLDER &optional RANGE INDEX-DATA)
(defalias 'mh-visit-folder #[769 "\306 p\307 \210\310!\203rq\210\311	>\262
)\2039\312!\210@\313\314\315\"\313\314\315\"\316A@\"\210\317 \210\320\206B\321\"\210\211\203i\212eb\210
?\206_
Ty\322=?\206_\323\324!\210\325)\203i\326 \210\202p\n\203p\327 \210
p=\204y\266\325\207" [mh-show-threads-flag mh-view-ops mh-index-data mh-index-msg-checksum-map mh-index-checksum-origin-map mh-large-folder current-window-configuration delete-other-windows get-buffer unthread mh-make-folder make-hash-table :test equal mh-index-update-maps mh-index-create-sequences mh-scan-folder "all" 0 message "Not threading since the number of messages exceeds `mh-large-folder'" nil mh-toggle-threads mh-index-insert-folder-headers mh-previous-window-config] 9 (#$ . 39695) (byte-code "\303\304\305#\211\306\307\305\310	\n&D\207" [mh-inbox current-prefix-arg mh-interpret-number-as-range-flag mh-prompt-for-folder "Visit" t mh-read-range "Scan" nil] 9)])
#@375 Append MESSAGE to end of FILE\<mh-folder-mode-map>.

You are prompted for the filename. If the file already exists,
the message is appended to it. You can also write the message to
the file without the header by specifying a prefix argument
NO-HEADER. Subsequent writes to the same file can be made with
the command \[mh-refile-or-write-again].

(fn MESSAGE FILE NO-HEADER)
(defalias 'mh-write-msg-to-file #[771 "\303!\304!\305\205
\306E\211r\307\n!q\210\310 \210\311!\210eb\210\203)\312\313!\210\314`d#)\207" [mh-last-destination mh-last-destination-write mh-temp-buffer mh-msg-filename mh-expand-file-name write no-header get-buffer-create erase-buffer insert-file-contents search-forward "\n\n" append-to-file] 10 (#$ . 41838) (byte-code "\303\304!@\305=\203\306A@!\202	\307\310\311\n\203\312\202\313\"@\305=\203.A@\2022\314\315\"#\262
\nE\207" [mh-last-destination-write default-directory current-prefix-arg mh-get-msg-num t write file-name-directory read-file-name format "Save message%s in file: " " body" "" expand-file-name "mail.out"] 8)])
#@255 Flush MH-E's state out to MH.

This function updates the sequence specified by your
"Unseen-Sequence:" profile component, "cur", and the sequence
listed by the `mh-tick-seq' option which is "tick" by default.
The message at the cursor is used for "cur".
(defalias 'mh-update-sequences #[0 "\302 \303\304!\211\203&\305\306!\307 \210\211C\241\210\310\306C\"\210\311 \210\312!\205%\313 \207
\206?\212	;\2039\314\315\316	\317$\202>\314\315\316\317#)\207" [mh-scan-good-msg-regexp mh-current-folder mh-update-unseen mh-get-msg-num nil mh-find-seq cur mh-remove-cur-notation mh-define-sequence beginning-of-line looking-at mh-notate-cur mh-exec-cmd-quiet t "folder" "-fast"] 7 (#$ . 42921) nil])
#@109 Read new mail from MAILDROP-NAME into the current buffer.
Return in the current buffer.

(fn MAILDROP-NAME)
(defalias 'mh-get-new-mail #[257 "`\306\307 \306\211\203\310\311#\210\202\310\312\"\210\313db\210\314 \210`C\203@\315\f\306\316 \317\320\f!\321\322 \323&	\210\202J\315\f\306\316 \321\322 %\210\203X\310\324#\210\202]\310\325\"\210\211\242b\210\212\326\327\306\330#)\203\207\310\331\203v\332\202w\333\203\201\202\202\333#\210\202\321
\203\241\334
\242d\"
\242d|\210\335\336#\216\337\330!\210)\210\326\340\306\330#\203\260\341\342!\210\202\3213\330=\203\3164\203\316\212\3265\306\343\344$)\203\316\211\345!\240\210\330\262\3466!\210\347\330\"\350
\236\3517\"\3508\236\204\360\350C8B8\35178\"\204

7C8B8\3508\236A\241\210\35178\"
A\241\266d
\242\232\203
\352 \210\203B
\353 \210\354 \203/
\355\330\"\210\3569>\203<
\357\242\"\210\360 \210\202E
b\210\361
\242dB!\262
\362!\210*\207" [mh-current-folder buffer-file-name buffer-read-only mh-next-direction mh-inc-prog mh-folder-view-stack nil buffer-modified-p message "inc %s -file %s..." "inc %s..." forward mh-remove-cur-notation mh-exec-cmd-output mh-scan-format "-file" expand-file-name "-width" window-width "-truncate" "inc %s -file %s...done" "inc %s...done" re-search-forward "^inc: no mail" t "No new mail%s%s" " in " "" buffer-substring-no-properties make-closure #[0 "\302 \210db\210\300`\240\210\301c\210\300\242b\207" [V0 V1 mh-remove-cur-notation] 2] mh-widen "^inc:" error "Error incorporating mail" 0 1 mh-generate-new-cmd-note keep-lines mh-read-folder-sequences cur assoc mh-notate-cur mh-make-folder-mode-line mh-speed-flists-active-p mh-speed-flists unthread mh-thread-inc mh-goto-cur-msg mh-notate-user-sequences mh-set-folder-modified-p mh-scan-format-file mh-adaptive-cmd-note-flag mh-scan-msg-overflow-regexp mh-scan-valid-regexp mh-unseen-seq mh-seq-list mh-view-ops] 16 (#$ . 43626)])
#@669 Fix the `mh-cmd-note' value for this FOLDER.

After doing an `mh-get-new-mail' operation in this FOLDER, at least
one line that looks like a truncated message number was found.

Remove the text added by the last `mh-inc' command. It should be the
messages cur-last. Call `mh-set-cmd-note', adjusting the notation
column with the width of the largest message number in FOLDER.

Reformat the message number width on each line in the buffer and trim
the line length to fit in the window.

Rescan the FOLDER in the range cur-last in order to display the
messages that were removed earlier. They should all fit in the scan
line now with no message truncation.

(fn FOLDER)
(defalias 'mh-generate-new-cmd-note #[257 "\212\302 S\303\211\304d`Z!\210\305\306\307!!!\210\310\311\312\"\313Q\262eb\210\314	>\2031\315Z!\210\202c\316\317 \303\320\321$\203c\322\321\224\321\225{!\262
\323\311\"!\210\303\210`\324!\210`
X\203_\304
`Z!\210\210\2021db\210`\325\326\327\"\210\266\204)\207" [mh-cmd-note mh-view-ops window-width nil delete-char mh-set-cmd-note mh-msg-num-width-to-column mh-msg-num-width "%" format "%d" "d" unthread mh-thread-add-spaces re-search-forward mh-scan-msg-number-regexp 0 1 string-to-number replace-match move-to-column mh-regenerate-headers "cur-last" t] 10 (#$ . 45573)])
#@187 Position the cursor at the current message.
When optional argument MINIMAL-CHANGES-FLAG is non-nil, the
function doesn't recenter the folder buffer.

(fn &optional MINIMAL-CHANGES-FLAG)
(defalias 'mh-goto-cur-msg #[256 "\301\302!@\211\203 \303
\304\211#\203 
?\205%\305 \210\306\307!\210\310
!\207\311\312\313!\207" [overlay-arrow-position mh-seq-to-msgs cur mh-goto-msg t mh-notate-cur mh-recenter 0 mh-maybe-show nil message "No current message"] 6 (#$ . 46879)])
#@307 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.

(fn ARG)
(defalias 'mh-recenter #[257 "\300p!\301 =\204\302\207d\212\303 \304\245\304Zy\210`)U\2033\304\212d\302y\210`V\203-\211T\262
\202)\305
[!\207\305
\2069\306!\207" [get-buffer-window selected-window nil window-height 2 recenter (4)] 4 (#$ . 47356)])
#@165 Synchronize the unseen sequence with MH.
Return non-nil if the MH folder was set.
The hook `mh-unseen-updated-hook' is called after the unseen sequence
is updated.
(defalias 'mh-update-unseen #[0 "\2057\302	!\211\211A\262
\211\2032\303	\"\210\304\305!\210\203+\306@\"\262
A\211\204

\241\266\307\207\310\211\266\202\207" [mh-seen-list mh-unseen-seq mh-find-seq mh-undefine-sequence run-hooks mh-unseen-updated-hook delq t nil] 6 (#$ . 47924)])
#@61 Return non-nil if there are outstanding deletes or refiles.
(defalias 'mh-outstanding-commands-p #[0 "\212\306=\203\n	q\210\n\206\206\f\206
)\207" [major-mode mh-show-folder-buffer mh-delete-list mh-refile-list mh-blocklist mh-allowlist mh-show-mode] 2 (#$ . 48388)])
#@77 Mark current folder as modified or unmodified according to FLAG.

(fn FLAG)
(defalias 'mh-set-folder-modified-p #[257 "\300
!\207" [set-buffer-modified-p] 3 (#$ . 48671)])
#@218 Process outstanding commands for FOLDER.

This function runs `mh-before-commands-processed-hook' before the
commands are processed and `mh-after-commands-processed-hook'
after the commands are processed.

(fn FOLDER)
(defalias 'mh-process-commands #[257 "\306\307\"\210\211q\210\310 \311\211\312\313!\210\314 \210\nCCC\f\203\"
\204,=\2050>\2050\315?!\f\205:
\205:\316 =\205F>\205F\316 \n\203V\317 \210\320\242\321 \"\240\210\322\323\324	&\f\"\210\311@\203\206\325\240\210\326\327\330	\331@!$\210\332@!\210\311@A\203\310\331A!\333 \334A!\210\211\204\245\326\327\330$\210\202\271\326\327\335\336\f&\210
\242B\240\210\325\240\210\332A!\210\311A\266=\203Y
\331=!\337B\340\"@\341=!\210\326\327\335\336\fB&\210B\242B\240\210\325\240\210\332=!\210>\203T
\342!\210\211\206\n
\343T\344\345=!\346\"\311
:\203M

@\262
\347
	\"\311
:\203@

@\262
\350
\347\f\"B\n#\210
A\262\202\"
\266T\262
A\262\202
\266\351\352\"\210\311=\266\353 \343V\203l
\354\355\356\311!\206i
\340C\"\210\242\203\225
\357 \203~
\326\360\325\242#\210\361C>\203\216
\362d\"\210\202\225
\n\203\225
\363 \210\300\364D!!\203\254
\365\300\364D!!!\204\254
\366 \210\367\311\"?\370 \210\371 \210\242E\312\372!\210)\266\306\373\"\374!\210*\262
\374\311!\210\207" [buffer-file-name buffer-read-only mh-index-data mh-current-folder mh-refile-list mh-refile-preserves-sequences-flag message "Processing deletes and refiles for %s..." buffer-modified-p nil run-hooks mh-before-commands-processed-hook mh-update-unseen mh-create-sequence-map make-hash-table mh-index-delete-folder-headers append mh-index-execute-commands mh-mapc make-closure #[257 "\306
@!\307
\310\"@A\302\302\242B\240\210\301\311\240\210\312\313\314\315\300\316!&\210\317
!\210
\205\320\304!\210
\2065\321T\322\323!\324\"\325
:\203v
@\262
\326
\303\"\325
:\203i
@\262
\304\327\326\"B#\266
A\262\202K\266T\262
A\262\202=\266\330\331\332\"\304\"\207" [V0 V1 V2 V3 V4 mh-refile-preserves-sequences-flag symbol-name mh-translate-range "last" t apply mh-exec-cmd "refile" "-src" mh-coalesce-msg-list mh-delete-scan-msgs clrhash 0 sort copy-sequence < nil gethash puthash maphash make-closure #[514 "\301\302\303\304\305!\300\306\307\310\311\n!\"&\207" [V0 apply mh-exec-cmd "mark" "-sequence" symbol-name "-add" mapcar #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn X)"] mh-coalesce-msg-list] 13 "\n\n(fn SEQ MSGS)"]] 16 "\n\n(fn FOLDER-MSG-LIST)"] t apply mh-exec-cmd "rmm" mh-coalesce-msg-list mh-delete-scan-msgs mh-junk-blocklist-disposition mh-junk-process-blocklist "refile" "-src" mh-translate-range "last" mh-junk-process-allowlist clrhash 0 sort copy-sequence < gethash puthash maphash #[514 "\301\302\303\304\305!\306\307\310\311\n!\"&\207" [mh-inbox apply mh-exec-cmd "mark" "-sequence" symbol-name "-add" mapcar #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn X)"] mh-coalesce-msg-list] 13 "\n\n(fn SEQ MSGS)"] buffer-size mh-define-sequence cur mh-get-msg-num mh-speed-flists-active-p mh-speed-flists unthread mh-thread-inc mh-index-insert-folder-headers get-buffer file-exists-p mh-invalidate-show-buffer mh-read-folder-sequences mh-remove-all-notation mh-notate-user-sequences mh-after-commands-processed-hook "Processing deletes and refiles for %s...done" mh-set-folder-modified-p mh-allowlist mh-allowlist-preserves-sequences-flag mh-seq-list mh-delete-list mh-blocklist mh-inbox mh-view-ops mh-show-buffer mh-folders-changed] 20 (#$ . 48850)])
#@52 Delete the scan listing lines for MSGS.

(fn MSGS)
(defalias 'mh-delete-scan-msgs #[257 "\212\211\205$\301
@\302\211#\203\303>\203\304
@!\210\305\306!\210\211A\262
\202
)\207" [mh-view-ops mh-goto-msg t unthread mh-thread-forget-message mh-delete-line 1] 5 (#$ . 52381)])
#@61 Display the scan listing buffer, but do not show a message.
(defalias 'mh-set-scan-mode #[0 "\302!\203\n\303!\210\304\305!\210\306 \210	\205\307\310!\207" [mh-show-buffer mh-recenter-summary-flag get-buffer delete-windows-on mh-showing-mode 0 force-mode-line-update mh-recenter nil] 2 (#$ . 52666)])
#@234 Set the fields of the mode line for a folder buffer.
The optional argument is now obsolete and IGNORED. It used to be
used to pass in what is now stored in the buffer-local variable
`mh-mode-line-annotation'.

(fn &optional IGNORED)
(defalias 'mh-make-folder-mode-line #[256 "\212\306 \307\310\"\216\311 \210\312\313!\314>\203\"	\203\"\211\203\"\211	W\203$\211\210\315 \210\312\313!\314>\203?\n\203?\211\203?\211\nV\203A\211\210	\203M\316ed\"\202N\317\320\321\f\203\\\320\322\f\"\202]\323\317U\203g\324\202k\320\325\"\317U\203u\326\202\217\327V\203\203\320\330	\n#\202\217	\203\216\320\331	\"\202\217\323$C\332 )\262
)\207" [mh-view-ops mh-first-msg-num mh-last-msg-num mh-msg-count mh-mode-line-annotation mode-line-buffer-identification current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] mh-first-msg mh-get-msg-num nil unthread mh-last-msg count-lines 0 format "    {%%b%s} %s msg%s" "/%s" "" "no" "%d" "s" 1 "s (%d-%d)" " (%d)" mh-logo-display] 10 (#$ . 52978)])
#@333 Scan FOLDER over RANGE.

After the scan is performed, switch to the buffer associated with
FOLDER.

Check the documentation of `mh-interactive-range' to see how RANGE is
read in interactive use.

The processing of outstanding commands is not performed if
DONT-EXEC-PENDING is non-nil.

(fn FOLDER RANGE &optional DONT-EXEC-PENDING)
(defalias 'mh-scan-folder #[770 "
;\203\300\301\302\303\"\"\262\304!\204\305!\210\202*\211\204&\306!\210\307 \210\310!\210\311!\210\312 \313U\203L
\314\232\203C\315\316\"\210\202O\315\317#\210\202O\320 \210\321 \205V\322 \207" [delete "" split-string "[ 	\n]" get-buffer mh-make-folder mh-process-or-undo-commands mh-reset-threads-and-narrowing switch-to-buffer mh-regenerate-headers buffer-size 0 "all" message "Folder %s is empty" "No messages in %s, range %s" mh-goto-cur-msg mh-outstanding-commands-p mh-notate-deleted-and-refiled] 8 (#$ . 54027)])
#@162 If FOLDER has outstanding commands, then either process or discard them.
Called by functions like `mh-sort-folder', so also invalidate
show buffer.

(fn FOLDER)
(defalias 'mh-process-or-undo-commands #[257 "\211q\210\301 \203\204\302\303!\203\304
!\210\202\211q\210\305 \210\306 \210\307 \207" [mh-do-not-confirm-flag mh-outstanding-commands-p y-or-n-p "Process outstanding deletes and refiles? " mh-process-commands mh-undo-folder mh-update-unseen mh-invalidate-show-buffer] 3 (#$ . 54940)])
#@107 Scan folder over RANGE.
If UPDATE, append the scan lines, otherwise replace.

(fn RANGE &optional UPDATE)
(defalias 'mh-regenerate-headers #[513 "\203:\204C\202\306\307\310\"\210\311 \210\312 \306\211\203)db\210\202:ed|\210\203:\313\314\315!!!\210`\262\316\317\f\306\320 \321\322\323\324 \f\f&\n\210
b\210\325\326!\204d\325\327!\204d\325\330!\203k\331
!\210\202u\325\332!\204u\331
!\210\333\306\"!\334 \210\204\215\335\232?\205\213\"#\336 \210\337
!\210*\210\337\306!\210\307\340\"\207" [mh-current-folder buffer-file-name buffer-read-only mh-adaptive-cmd-note-flag mh-scan-prog mh-scan-valid-regexp nil message "Scanning %s..." mh-remove-all-notation buffer-modified-p mh-set-cmd-note mh-msg-num-width-to-column mh-msg-num-width apply mh-exec-cmd-output mh-scan-format "-noclear" "-noheader" "-width" window-width looking-at "scan: no messages in" "scan: message set .* does not exist" "scan: bad message list " keep-lines "scan: " mh-read-folder-sequences mh-notate-user-sequences ("all") mh-make-folder-mode-line mh-set-folder-modified-p "Scanning %s...done" mh-seq-list mh-partial-folder-mode-line-annotation mh-mode-line-annotation] 17 (#$ . 55449)])
#@107 Reset all variables pertaining to threads and narrowing.
Also removes all content from the folder buffer.
(defalias 'mh-reset-threads-and-narrowing #[0 "\304\211\304\211\305 )\207" [mh-view-ops mh-folder-view-stack mh-thread-scan-line-map-stack buffer-read-only nil erase-buffer] 2 (#$ . 56650)])
#@78 Create a new mail folder called NAME.
Make it the current folder.

(fn NAME)
(defalias 'mh-make-folder #[257 "\306
!\210\307\310 \210	\203\311\312\313!!!\210\314\315 \210\316\307!\210\n\f\204/\317
P!\203/\320 \210\321 \207" [buffer-read-only mh-adaptive-cmd-note-flag mh-folder-filename buffer-file-name mh-index-data mh-index-data-file switch-to-buffer nil erase-buffer mh-set-cmd-note mh-msg-num-width-to-column mh-msg-num-width t mh-folder-mode mh-set-folder-modified-p file-exists-p mh-index-read-data mh-make-folder-mode-line] 5 (#$ . 56957)])
#@297 Move backward or forward to the next undeleted message in the buffer.
If optional argument WAIT-AFTER-COMPLAINING-FLAG is non-nil and
we are at the last message, then wait for a second after telling
the user that there aren't any more unread messages.

(fn &optional WAIT-AFTER-COMPLAINING-FLAG)
(defalias 'mh-next-msg #[256 "\301=\203\302\303\"\207\304\303\"\207" [mh-next-direction forward mh-next-undeleted-msg 1 mh-previous-undeleted-msg] 4 (#$ . 57522)])
#@243 Prompt the user for a folder in which the message should be filed.
The folder is returned as a string.

The default folder name is generated by the option
`mh-default-folder-for-message-function' if it is non-nil or
`mh-folder-from-address'.
(defalias 'mh-prompt-for-refile-folder #[0 "\304\305\3061\307\310\311!!0\202\210\312\211\204\313\202Gr\314!q\210\315 \210\316
!\210	\2032\211	 )\206F\317 \206F@\320=\203E\321A!\206F\313)\262
\311#\207" [mh-temp-buffer mh-default-folder-for-message-function buffer-file-name mh-last-destination-folder mh-prompt-for-folder "Destination" (error) mh-msg-filename mh-get-msg-num t nil "" get-buffer-create erase-buffer insert-file-contents mh-folder-from-address refile symbol-name] 5 (#$ . 57994)])
#@704 Derive folder name from sender.

The name of the folder is derived as follows:

  a) The folder name associated with the first address found in
     the list `mh-default-folder-list' is used. Each element in
     this list contains a "Check Recipient" item. If this item is
     turned on, then the address is checked against the recipient
     instead of the sender. This is useful for mailing lists.

  b) An alias prefixed by `mh-default-folder-prefix'
     corresponding to the address is used. The prefix is used to
     prevent clutter in your mail directory.

Return nil if a folder name was not derived, or if the variable
`mh-default-folder-must-exist-flag' is t and the folder does not
exist.
(defalias 'mh-folder-from-address #[0 "\214eb\210\303\304\305\306#\210e`}\210\307\310!\206\311\312\307\313!\206\311Q\307\314!\206%\311\305\305\315\305:\203^@\262\316@\3178\203A\202C\"\203SA@\262
\305\211\262\202T\315\203^A\262\202*
?\205d\211\266\204\262
\211\203y\211\320H\321=\204y\322
P\262
\211\204\237\323 \211\205\210\324
!A@\211\205\217\325
!\211\203\235\211\205\233\322	Q\262\266\211\205\260\n\203\257\326\327!!\205\260\211\266\203)\207" [mh-default-folder-list mh-default-folder-prefix mh-default-folder-must-exist-flag re-search-forward "\n\n" nil limit message-fetch-field "to" "" ", " "cc" "from" t string-match 2 0 43 "+" mh-extract-from-header-value mail-extract-address-components mh-alias-address-to-alias file-exists-p mh-expand-file-name] 11 (#$ . 58755)])
#@263 Delete MESSAGE.
If MESSAGE is nil then the message at point is deleted.
The hook `mh-delete-msg-hook' is called after you mark a message
for deletion. For example, a past maintainer of MH-E used this
once when he kept statistics on his mail usage.

(fn MESSAGE)
(defalias 'mh-delete-a-msg #[257 "\212\211\247\203\306
\307\310#\210\202\311 \210\312\310!\262
\313!\203\"\314\315\"\210\313	!\203-\314\316\"\210\313\n!\2038\314\317\"\210\313!?\205Q\320\310!\210\211\fB\321\307
#\210\322\323!)\207" [mh-scan-refiled-msg-regexp mh-scan-blocklisted-msg-regexp mh-scan-allowlisted-msg-regexp mh-scan-deleted-msg-regexp mh-delete-list mh-note-deleted mh-goto-msg nil t beginning-of-line mh-get-msg-num looking-at error "Message %d is refiled; undo refile before deleting" "Message %d is blocklisted; undo before deleting" "Message %d is allowlisted; undo before deleting" mh-set-folder-modified-p mh-notate run-hooks mh-delete-msg-hook mh-cmd-note] 5 (#$ . 60281)])
#@219 Refile MESSAGE in FOLDER.
If MESSAGE is nil then the message at point is refiled.
Folder is a symbol, not a string.
The hook `mh-refile-msg-hook' is called after a message is marked to
be refiled.

(fn MESSAGE FOLDER)
(defalias 'mh-refile-a-msg #[514 "\212
\247\203\306\307\310#\210\202\311 \210\312\310!\262\313!\203$\314\315\"\202\232\313	!\2031\314\316\"\202\232\313\n!\203>\314\317\"\202\232\313!\203e\320\321\322#!\203_\323\324\312\310!\325\326\f\327!&\202\232\330\331!\202\232\332\310!\210\333

\"\204y\211D
B\202\217
\333
\"A\235\204\217\333

\"\211AB\241\266\334\307 #\210\335\336!)\207" [mh-scan-deleted-msg-regexp mh-scan-blocklisted-msg-regexp mh-scan-allowlisted-msg-regexp mh-scan-refiled-msg-regexp mh-current-folder mh-refile-list mh-goto-msg nil t beginning-of-line mh-get-msg-num looking-at error "Message %d is deleted; undo delete before moving" "Message %d is blocklisted; undo before moving" "Message %d is allowlisted; undo before moving" y-or-n-p format "Message %d already refiled; copy to %s as well? " mh-exec-cmd "refile" "-link" "-src" symbol-name message "Message not copied" mh-set-folder-modified-p assoc mh-notate run-hooks mh-refile-msg-hook mh-note-refiled mh-cmd-note] 10 (#$ . 61261)])
#@120 Undo the deletion, refile, block- or allowlisting of one MSG.
If MSG is nil then act on the message at point

(fn MSG)
(defalias 'mh-undo-msg #[257 "\212\211\247\203\305
\306\211#\210\202\307 \210\310\306!\262
\211>\203%\311
\"\202z\211	>\2033\311
	\"\202z\211\n>\203A\311
\n\"\202z\211\203W\211@\211\312A\"\241\210
A\266\202\202B\210\313\211:\203u@\262
A\203n

B\262
A\262\202[\211\237\266\203\314\313\315\f#)\207" [mh-delete-list mh-blocklist mh-allowlist mh-refile-list mh-cmd-note mh-goto-msg t beginning-of-line mh-get-msg-num delq remove nil mh-notate 32] 7 (#$ . 62528)])
#@92 Return the file name of MSG in FOLDER (default current folder).

(fn MSG &optional FOLDER)
(defalias 'mh-msg-filename #[513 "\301\302!\203\303!\202\"\207" [mh-folder-filename expand-file-name int-to-string mh-expand-file-name] 6 (#$ . 63143)])
(provide 'mh-folder)