;ELC   
;;; compiled by jwz@thalidomide on Thu Oct 28 21:59:36 1993
;;; from file /th/jwz/emacs19/lisp/packages/mh-e.el
;;; emacs version 19.9 Lucid.
;;; bytecomp version 2.20; 20-oct-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(byte-code "АВГ!€ДВ‡" ["Time-stamp: <93/05/30 18:37:43 gildea>" mh-e-time-stamp domain "emacs-mh" "$Header: /cadillac-inferno-5/cvs-master/lemacs/lisp/packages/mh-e.el,v 1.5 1993/10/29 03:54:43 jwz Exp $" mh-e-RCS-id] 2)
(defvar mh-redist-full-contents nil "\
Non-nil if the `dist' command needs whole letter for redistribution.
This is the case when `send' is compiled with the BERK option.")
(defvar mh-folder-mode-hook nil "\
Invoked in `mh-folder mode' on a new folder.")
(defvar mh-letter-mode-hook nil "\
Invoked in `mh-letter-mode' on a new letter.")
(defvar mh-compose-letter-function nil "\
Invoked in `mh-compose-and-send-mail' on a draft letter.
It is passed three arguments: TO recipients, SUBJECT, and CC recipients.")
(defvar mh-before-send-letter-hook nil "\
Invoked at the beginning of the \\[mh-send-letter] command.")
(defvar mh-inc-folder-hook nil "\
Invoked after incorporating mail into a folder with \\[mh-inc-folder].")
(defvar mh-before-quit-hook nil "\
Invoked by \\[mh-quit] before quitting mh-e.  See also  mh-quit-hook")
(defvar mh-quit-hook nil "\
Invoked after quitting mh-e by \\[mh-quit].  See also  mh-before-quit-hook")
(defvar mh-ins-string nil "\
Temporarily set by `mh-insert-prefix' prior to running `mh-yank-hooks'.")
(defvar mh-yank-hooks '(lambda nil (save-excursion (goto-char (point)) (or (bolp) (forward-line 1)) (while (< (point) (mark t)) (insert mh-ins-string) (forward-line 1)))) "\
Hook to run citation function.
Expects POINT and MARK to be set to the region to cite.")
(defvar mh-clean-message-header nil "\
*Non-nil means clean headers of messages that are displayed or inserted.
The variables `mh-visible-headers' and `mh-invisible-headers' control what
is removed.")
(defvar mh-visible-headers nil "\
*If non-nil, contains a regexp specifying the headers to keep when cleaning.
Only used if `mh-clean-message-header' is non-nil.  Setting this variable
overrides `mh-invisible-headers'.")
(defvar mhl-formfile nil "\
*Name of format file to be used by mhl to show messages.
A value of T means use the default format file.
Nil means don't use mhl to format messages.")
(defvar mh-lpr-command-format "lpr -p -J '%s'" "\
*Format for Unix command that prints a message.
The string should be a Unix command line, with the string '%s' where
the job's name (folder and message number) should appear.  The message text
is piped to this command.")
(defvar mh-print-background nil "\
*Print messages in the background if non-nil.
WARNING: do not delete the messages until printing is finished;
otherwise, your output may be truncated.")
(defvar mh-summary-height 4 "\
*Number of lines in summary window (including the mode line).")
(defvar mh-recenter-summary-p nil "\
*Recenter summary window when the show window is toggled off if non-nil.")
(defvar mh-ins-buf-prefix "> " "\
*String to put before each non-blank line of a yanked or inserted message.
Used when the message is inserted in an outgoing letter.")
(defvar mh-do-not-confirm nil "\
*Non-nil means do not prompt for confirmation before some commands.
Only affects certain innocuous commands.")
(defvar mh-bury-show-buffer t "\
*Non-nil means that the displayed show buffer for a folder is buried.")
(defvar mh-delete-yanked-msg-window nil "\
*Controls window display when a message is yanked by \\[mh-yank-cur-msg].
If non-nil, yanking the current message into a draft letter deletes any
windows displaying the message.")
(defvar mh-yank-from-start-of-msg t "\
*Controls which part of a message is yanked by \\[mh-yank-cur-msg].
If non-nil, include the entire message.  If the symbol `body', then yank the
message minus the header.  If nil, yank only the portion of the message
following the point.  If the show buffer has a region, this variable is
ignored.")
(defvar mh-reply-default-reply-to nil "\
*Sets the person or persons to whom a reply will be sent.
If nil, prompt for recipient. If non-nil, then \\[mh-reply] will use this
value and it should be one of \"from\", \"to\", or \"cc\".")
(defvar mh-recursive-folders nil "\
*If non-nil, then commands which operate on folders do so recursively.")
(defvar mh-unshar-default-directory "" "\
*Default for directory name prompted for by mh-unshar-msg.")
(defvar mh-signature-file-name "~/.signature" "\
*Name of file containing the user's signature.
Inserted into message by \\<mh-letter-mode-map>\\[mh-insert-signature].")
(defvar mh-cmd-note 4 "\
Offset to insert notation.")
(defvar mh-note-repl "-" "\
String whose first character is used to notate replied to messages.")
(defvar mh-note-forw "F" "\
String whose first character is used to notate forwarded messages.")
(defvar mh-note-dist "R" "\
String whose first character is used to notate redistributed messages.")
(defvar mh-good-msg-regexp "^....[^D^]" "\
Regexp specifiying the scan lines that are 'good' messages.")
(defvar mh-deleted-msg-regexp "^....D" "\
Regexp matching scan lines of deleted messages.")
(defvar mh-refiled-msg-regexp "^....\\^" "\
Regexp matching scan lines of refiled messages.")
(defvar mh-valid-scan-line "^ *[0-9]" "\
Regexp matching scan lines for messages (not error messages).")
(defvar mh-msg-number-regexp "^ *\\([0-9]+\\)" "\
Regexp to find the number of a message in a scan line.
The message's number must be surrounded with \\( \\)")
(defvar mh-msg-search-regexp "^[^0-9]*%d[^0-9]" "\
Format string containing a regexp matching the scan listing for a message.
The desired message's number will be an argument to format.")
(defvar mh-flagged-scan-msg-regexp "^....\\D\\|^....\\^\\|^....\\+\\|^.....%" "\
Regexp matching flagged scan lines.
Matches lines marked as deleted, refiled, in a sequence, or the cur message.")
(defvar mh-cur-scan-msg-regexp "^....\\+" "\
Regexp matching scan line for the cur message.")
(defvar mh-show-buffer-mode-line-buffer-id "{%%b}  %s/%d" "\
Format string to produce `mode-line-buffer-id' for show buffers.
First argument is folder name.  Second is message number.")
(defvar mh-partial-folder-mode-line-annotation "select" "\
Annotation when displaying part of a folder.
The string is displayed after the folder's name.  NIL for no annotation.")
(defvar mh-invisible-headers "^Received: \\|^Message-Id: \\|^Remailed-\\|^Via: \\|^Mail-from: \\|^Return-Path: \\|^In-Reply-To: \\|^Resent-" "\
Regexp matching lines in a message header that are not to be shown.
If `mh-visible-headers' is non-nil, it is used instead to specify what
to keep.")
(defvar mh-rejected-letter-start (concat "^   ----- Unsent message follows -----$" "\\|^------- Unsent Draft$" "\\|^  --- The unsent message follows ---$") "\
Regexp specifying the beginning of the wrapper around a returned letter.
This wrapper is generated by the mail system when rejecting a letter.")
(defvar mh-to-field-choices '((116 . "To:") (115 . "Subject:") (99 . "Cc:") (98 . "Bcc:") (102 . "Fcc:")) "\
A-list of (character . field name) strings for mh-to-field.")
(defvar mh-user-path "" "\
User's mail folder.")
(defvar mh-last-destination nil "\
Destination of last refile or write command.")
(defvar mh-folder-mode-map (make-keymap) "\
Keymap for MH folders.")
(defvar mh-letter-mode-map (copy-keymap text-mode-map) "\
Keymap for composing mail.")
(defvar mh-pick-mode-map (make-sparse-keymap) "\
Keymap for searching folder.")
(defvar mh-searching-folder nil "\
Folder this pick is searching.")
(defvar mh-letter-mode-syntax-table nil "\
Syntax table used while in mh-e letter mode.")
(byte-code "¬ЋБ\n!Г!€ДЕЖ#€Б‡" [mh-letter-mode-syntax-table make-syntax-table text-mode-syntax-table set-syntax-table modify-syntax-entry 37 "."] 4)
(defvar mh-folder-list nil "\
List of folder names for completion.")
(defvar mh-draft-folder nil "\
Name of folder containing draft messages.
NIL means do not use draft folder.")
(defvar mh-unseen-seq nil "\
Name of the unseen sequence.")
(defvar mh-previous-window-config nil "\
Window configuration before mh-e command.")
(defvar mh-previous-seq nil "\
Name of the sequence to which a message was last added.")
(byte-code "АБM€ВГM€ДЕM€ЖЗM‡" [mh-push (macro . #[(v l) "А	В	EE‡" [setq l cons v] 5]) mh-when (macro . #[(pred &rest body) "А	\nBD‡" [cond pred body] 3]) with-mh-folder-updating (macro . #[(save-modification-flag-p &rest body) "@БВГДЕ\"«ѓЗЄЃИEE‡" [save-modification-flag-p let ((folder-updating-mod-flag (buffer-modified-p))) prog1 append (let ((buffer-read-only nil) (buffer-file-name nil))) body (mh-set-folder-modified-p folder-updating-mod-flag) (mh-set-folder-modified-p nil)] 6]) mh-mapc #[(func list) "­Њ	@!€A‰¬uВ‡" [list func nil] 3]] 2)
(fset 'mh-rmail #[(&optional arg) "А €	«„ВГ!‡Д ‡" [mh-find-path arg call-interactively mh-visit-folder mh-inc-folder] 2 "\
Inc(orporate) new mail (no arg) or scan a MH mail box (arg given).
This front end uses the MH mail system, which uses different conventions
from the usual mail system." "P"])
(fset 'mh-smail #[nil "А €БВ!‡" [mh-find-path call-interactively mh-send] 2 "\
Compose and send mail with the MH mail system." nil])
(fset 'mh-smail-other-window #[nil "А €БВ!‡" [mh-find-path call-interactively mh-send-other-window] 2 "\
Compose and send mail in other window with the MH mail system." nil])
(fset 'mh-burst-digest #[nil "АБ!Г!€ЕБ!€ЖЗИЙ\"!€КЛ\nМ$€НОП\"\"€ЖЗИС\"!)‡" [mh-get-msg-num t digest mh-process-or-undo-commands mh-current-folder mh-set-folder-modified-p message dgettext "emacs-mh" "Bursting digest..." mh-exec-cmd "burst" "-inplace" mh-scan-folder format "%d-last" mh-first-msg-num "Bursting digest...done"] 5 "\
Burst apart the current message, which should be a digest.
The message is replaced by its table of contents and the letters from the
digest are inserted into the folder after that message." nil])
(fset 'mh-copy-msg #[(prefix-provided msg-or-seq dest) "АБ\nГД&€«‡И\nЙ\n#‡Л\nЙ\n#‡" [mh-exec-cmd "refile" msg-or-seq "-link" "-src" mh-current-folder dest prefix-provided mh-notate-seq 67 mh-cmd-note mh-notate] 7 "\
Copy specified MESSAGE(s) to another FOLDER without deleting them.
Default is the displayed message.  If optional prefix argument is
provided, then prompt for the message sequence." (byte-code "‰«‰БВГД\"Е\"ЄѓЖЕ!ЗВГИ\"ЙЕ#E‡" [current-prefix-arg mh-read-seq-default dgettext "emacs-mh" "Copy" t mh-get-msg-num mh-prompt-for-folder "Copy to" ""] 6)])
(fset 'mh-delete-msg #[(msg-or-seq) "§«†Б!€Є…ВБ\"€Г ‡" [msg-or-seq mh-delete-a-msg mh-map-to-seq-msgs mh-next-msg] 3 "\
Mark the specified MESSAGE(s) for subsequent deletion and move to the next.
Default is the displayed message.  If optional prefix argument is
given then prompt for the message sequence." (byte-code "«‰БВГД\"Е\"ЄѓЖЕ!C‡" [current-prefix-arg mh-read-seq-default dgettext "emacs-mh" "Delete" t mh-get-msg-num] 4)])
(fset 'mh-delete-msg-no-motion #[(msg-or-seq) "§«„Б!‡ВБ\"‡" [msg-or-seq mh-delete-a-msg mh-map-to-seq-msgs] 3 "\
Mark the specified MESSAGE(s) for subsequent deletion.
Default is the displayed message.  If optional prefix argument is
provided, then prompt for the message sequence." (byte-code "«‰БВГД\"Е\"ЄѓЖЕ!C‡" [current-prefix-arg mh-read-seq-default dgettext "emacs-mh" "Delete" t mh-get-msg-num] 4)])
(fset 'mh-delete-msg-from-seq #[(prefix-provided msg-or-seq &optional from-seq) "«„Б\n!‡Г\n\"‡" [prefix-provided mh-remove-seq msg-or-seq mh-remove-msg-from-seq from-seq] 3 "\
Delete MESSAGE (default: displayed message) from SEQUENCE.
If optional prefix argument provided, then delete all messages
from a sequence." (byte-code "‰‰«‰ВГДЕ\"Ж\"ЄѓЗЖ!	?­‡ВГДИ\"Ж\"E)‡" [current-prefix-arg argp mh-read-seq-default dgettext "emacs-mh" "Delete" t mh-get-msg-num "Delete from"] 7)])
(fset 'mh-edit-again #[(msg) "В «›	љ«–ЕЖЗ!!Й\"€КЛМ\"!€Н Є‹ОПРС\"З!Т#ФeХТ#€eb€ЦТ!€ЧШ	Т‰‰‰‰‰&\n+‡" [mh-current-folder from-folder current-window-configuration config mh-draft-folder pop-to-buffer find-file-noselect mh-msg-filename msg t rename-buffer format "draft-%d" buffer-name mh-read-draft dgettext "emacs-mh" "clean-up" nil draft mh-clean-msg-header "^Date:\\|^Received:\\|^Message-Id:\\|^From:\\|^Delivery-Date:" set-buffer-modified-p mh-compose-and-send-mail ""] 11 "\
Clean-up a draft or a message previously sent and make it resendable." (byte-code "АБ!C‡" [mh-get-msg-num t] 2)])
(fset 'mh-execute-commands #[nil "«ѓБ €В!€Д €Е €Ж €З‡" [mh-narrowed-to-seq mh-widen mh-process-commands mh-current-folder mh-set-scan-mode mh-goto-cur-msg mh-make-folder-mode-line t] 2 "\
Process outstanding delete and refile requests." nil])
(fset 'mh-extract-rejected-mail #[(msg) "Б ВГДЕ\"Ж!И#	\neb€МИО#«ЏПu€e`|€РeСИ#€Є‡ТГДУ\"!€eb€ФИ!€Х	ЦЧШ!ЧЩ!ЧЪ!И‰\n&\n+‡" [mh-current-folder current-window-configuration mh-read-draft dgettext "emacs-mh" "extraction" mh-msg-filename msg nil draft config from-folder re-search-forward mh-rejected-letter-start t 1 mh-clean-msg-header "^Date:\\|^Received:\\|^Message-Id:\\|^From:\\|^Sender:\\|^Return-Path:" message "Does not appear to be a rejected letter." set-buffer-modified-p mh-compose-and-send-mail "" mh-get-field "To" "From" "cc"] 11 "\
Extract a letter returned by the mail system and make it resendable.
Default is the displayed message." (byte-code "АБ!C‡" [mh-get-msg-num t] 2)])
(fset 'mh-first-msg #[nil "eb‡" [] 1 "\
Move to the first message." nil])
(fset 'mh-forward #[(prefix-provided msg-or-seq to cc) "В ДЕ\"И!«€ЙКЛМ\"!«ќНОП$€СТУ#ФХЧ$€ЩЪ!€Є†СТЪ#eb€ЬЭ!€Юy€`d}€ЉЯа!)!вг!\"$ЉЯе!)&$«‰!з$SO!~€ЉФеий!&#\"€)к €+«‹мн!оУ#€Є‡моУ#€пТ	!0с&\n.‡" [mh-current-folder folder current-window-configuration config expand-file-name "draft" mh-user-path draft-name file-exists-p y-or-n-p dgettext "emacs-mh" "The file 'draft' exists.  Discard it? " mh-exec-cmd "forw" "-build" msg-or-seq mh-read-draft "" t mh-insert-fields "To:" to "Cc:" cc set-buffer-modified-p nil draft re-search-forward "^------- Forwarded Message" -1 mh-get-field "From:" subject string-match "<" trim "Subject:" forw-subject 0 format "[%s: %s]" delete-other-windows prefix-provided mh-add-msgs-to-seq mh-seq-to-msgs forwarded mh-compose-and-send-mail mh-note-forw "Forwarded:"] 11 "\
Forward MESSAGE(s) (default: displayed message).
If optional prefix argument provided, then prompt for the message sequence." (byte-code "‰«‰БВГД\"Е\"ЄѓЖЕ!ЗВГИ\"!ЗВГЙ\"!F‡" [current-prefix-arg mh-read-seq-default dgettext "emacs-mh" "Forward" t mh-get-msg-num read-string "To: " "Cc: "] 7)])
(fset 'mh-goto-msg #[(number &optional no-error-if-no-message dont-show) "АБ!`В!‰«†U¬¬«ЌW«‡ЗБИ#¬›«ЌV«‡ЙБИ#¬Љdb€ЙБИ#«ЋКy€¬„М!€ИЄђb€¬€ОПРС\"\"€Б+‡" [mh-get-msg-num nil mh-msg-search-pat number msg-pattern starting-place cur-msg re-search-forward t re-search-backward 0 dont-show mh-maybe-show no-error-if-no-message error dgettext "emacs-mh" "No message %d"] 5 "\
Position the cursor at message NUMBER.
Non-nil second argument means do not signal an error if message does not exist.
Non-nil third argument means not to show the message.
Return non-nil if cursor is at message." "NGoto message: "])
(fset 'mh-inc-folder #[(&optional maildrop-name) "А \n¬њГД!¬‰ЕД!€	ЄЋpГД!=¬‡ЗД!€	)И\n!€ЙК!‡" [current-window-configuration config maildrop-name get-buffer "+inbox" mh-make-folder mh-previous-window-config switch-to-buffer mh-get-new-mail run-hooks mh-inc-folder-hook] 3 "\
Inc(orporate) new mail into +inbox.
Optional prefix argument specifies an alternate maildrop from the default.
If this is given, incorporate mail into the current folder, rather
than +inbox.  Run `mh-inc-folder-hook' after incorporating new mail." (byte-code "­ЉБВГДЕ\"\"!C‡" [current-prefix-arg expand-file-name read-file-name dgettext "emacs-mh" "inc mail from file: " mh-user-path] 5)])
(fset 'mh-kill-folder #[nil "¬ЊБВГДЕ\"\"!«±ИЙ!€КЛ\"€М!€НГДО\"\"€ИП!€Р!«…Т!€Т!)‡НГДУ\"!‡" [mh-do-not-confirm yes-or-no-p format dgettext "emacs-mh" "Remove folder %s? " mh-current-folder folder mh-set-folder-modified-p t mh-exec-cmd-daemon "rmf" mh-remove-folder-from-folder-list message "Folder %s removed" nil get-buffer mh-show-buffer kill-buffer "Folder not removed"] 5 "\
Remove the current folder." nil])
(fset 'mh-last-msg #[nil "db€o?­ЉАБ!­…Вy€Єr‡" [looking-at "^$" -1] 2 "\
Move to the last message." nil])
(fset 'mh-list-folders #[nil "АБВ\"ђЉГАБВ\"!€Д €ЕАБЖ\"!€ЗИЙ\n«ѓЛЄЃМ#€eb€ЕАБН\"!)‘‡" [dgettext "emacs-mh" " *mh-temp*" switch-to-buffer erase-buffer message "Listing folders..." mh-exec-cmd-output "folders" t mh-recursive-folders "-recurse" "-norecurse" "Listing folders...done"] 5 "\
List mail folders." nil])
(fset 'mh-msg-is-in-seq #[(msg) "АБВГ\"ЕЖЗИ!!Й##‡" [message dgettext "emacs-mh" "Message %d is in sequences: %s" msg mapconcat concat mh-list-to-string mh-seq-containing-msg " "] 8 "\
Display the sequences that contain MESSAGE (default: displayed message)." (byte-code "АБ!C‡" [mh-get-msg-num t] 2)])
(fset 'mh-narrow-to-seq #[(seq) "dБ Г‰Ж!«њИ\"€d}€ЙК!!€ЛГ!€‰ЄЉНОПР\"К!\"*С\n!€*‡" [eob buffer-modified-p folder-updating-mod-flag nil buffer-file-name buffer-read-only mh-seq-to-msgs seq mh-copy-seq-to-point mh-make-folder-mode-line symbol-name mh-recenter mh-narrowed-to-seq error dgettext "emacs-mh" "No messages in sequence `%s'" mh-set-folder-modified-p] 4 "\
Restrict display of this folder to just messages in a sequence.
Reads which sequence.  Use \\[mh-widen] to undo this command." (byte-code "АБВГ\"Д\"C‡" [mh-read-seq dgettext "emacs-mh" "Narrow to" t] 4)])
(fset 'mh-next-undeleted-msg #[(&optional arg) "А	!y€ВДЖЗ	$«†Зy€И ‡Йy€К!­„М!‡" [prefix-numeric-value arg forward mh-next-direction re-search-forward mh-good-msg-regexp nil 0 mh-maybe-show -1 get-buffer mh-show-buffer delete-windows-on] 5 "\
Move to next undeleted message in window." "P"])
(fset 'mh-pack-folder #[(range) "А	!€В €ГДЕЖ\"!‡" [mh-pack-folder-1 range mh-goto-cur-msg message dgettext "emacs-mh" "Packing folder...done"] 4 "\
Renumber the messages of a folder to be 1..n.
First, offer to execute any outstanding commands for the current folder.
If optional prefix argument provided, prompt for the range of messages
to display after packing.  Otherwise, show the entire folder." (byte-code "«€БВГД\"!ЄЃЕC‡" [current-prefix-arg mh-read-msg-range dgettext "emacs-mh" "Range to scan after packing [all]? " "all"] 4)])
(fset 'mh-pipe-msg #[(prefix-provided command) "ЉАБВ!\"€eb€¬„ЕЖ!€З`dЙ$)‡" [mh-display-msg mh-get-msg-num t mh-current-folder prefix-provided search-forward "\n\n" shell-command-on-region command nil] 5 "\
Pipe the current message through the given shell COMMAND.
If optional prefix argument is provided, send the entire message.
Otherwise just send the message's body." (byte-code "БВГД\"!D‡" [current-prefix-arg read-string dgettext "emacs-mh" "Shell command on message: "] 5)])
(fset 'mh-refile-msg #[(prefix-provided msg-or-seq dest) "А	B«‰ДЕ	#€Є†Е	\"€З ‡" [refile dest mh-last-destination prefix-provided mh-map-to-seq-msgs mh-refile-a-msg msg-or-seq mh-next-msg] 4 "\
Refile MESSAGE(s) (default: displayed message) in FOLDER.
If optional prefix argument provided, then prompt for message sequence." (byte-code "‰«‰БВГД\"Е\"ЄѓЖЕ!ЗИВГЙ\"\n@Л=«‡М\nA!ЄЃНЕ#!E‡" [current-prefix-arg mh-read-seq-default dgettext "emacs-mh" "Refile" t mh-get-msg-num intern mh-prompt-for-folder "Destination" mh-last-destination refile symbol-name ""] 7)])
(fset 'mh-refile-or-write-again #[(msg) "¬‡БВГД\"!€@Е=«’ЖA\"€ИВГЙ\"A\"€ЄђКA\"€ИВГЛ\"A\"€М ‡" [mh-last-destination error dgettext "emacs-mh" "No previous refile or write" refile mh-refile-a-msg msg message "Destination folder: %s" mh-write-msg-to-file "Destination: %s" mh-next-msg] 4 "\
Re-execute the last refile or write command on the given MESSAGE.
Default is the displayed message.  Use the same folder or file as the
previous refile or write command." (byte-code "АБ!C‡" [mh-get-msg-num t] 2)])
(fset 'mh-reply #[(prefix-provided msg) "АБВ\"®‰ЕАБЖ\"ЗИЙ$\nМ САБТ\"!€Уљ¬†Фљ«ХЦЧШЩЪ\nЬЭ­ѓЯаD&\n€ЄВбљ«ХЦЧШЩЪ\nвб­ѓЯаD&\n€Є¤гљ¬†Эљ«ХЦЧШЩЪ\nвЭЬд­ѓЯаD&€ежзж(\"Й#)к €лИ!€мн!мо!мп!012eb€уф!€¬‡х\"€цчЙ#€САБш\"!€щ)Ф210:АБы\"&\n.	‡" [dgettext "emacs-mh" "from => Sender only\nto => Sender and primary recipients\ncc or all => Sender and all recipients" minibuffer-help-form mh-reply-default-reply-to completing-read "Reply to whom: " (("from") ("to") ("cc") ("all")) nil t mh-current-folder mh-show-buffer current-window-configuration config show-buffer folder reply-to message "Composing a reply..." "from" "" apply mh-exec-cmd "repl" "-build" "-noquery" "-nodraftfolder" msg "-nocc" "all" prefix-provided "-filter" "mhl.reply" "to" "-cc" "cc" "me" mh-read-draft "reply" expand-file-name mh-user-path draft delete-other-windows set-buffer-modified-p mh-get-field "To:" "Subject:" "Cc:" cc subject to mh-goto-header-end 1 mh-display-msg mh-add-msgs-to-seq answered "Composing a reply...done" mh-compose-and-send-mail mh-note-repl "Replied:"] 14 "\
Reply to a MESSAGE (default: displayed message).
If optional prefix argument provided, then include the message in the reply
using filter mhl.reply in your MH directory." (byte-code "БВ!D‡" [current-prefix-arg mh-get-msg-num t] 3)])
(fset 'mh-quit #[nil "АБ!€\n«„Г\n!€АД!‡" [run-hooks mh-before-quit-hook mh-previous-window-config set-window-configuration mh-quit-hook] 2 "\
Quit mh-e.
Start by running mh-before-quit-hook.  Restore the previous window
configuration, if one exists.  Finish by running mh-quit-hook." nil])
(fset 'mh-page-digest #[nil "ЉА €БВ!€ГЕЖГЗ#«‡ЕИГЗ#¬‹ЙК!€ЛМНО\"!€)ПЖГЗ#€Рy€СВ!€ЙК!)‡" [mh-show-message-in-other-window move-to-window-line 0 nil case-fold-search search-forward "\n\n" t "From:" other-window -1 error dgettext "emacs-mh" "No more messages" search-backward 2 mh-recenter] 4 "\
Advance displayed message to next digested message." nil])
(fset 'mh-page-digest-backwards #[nil "ЉА €БВ!€ГВy€ЕЖГЗ#«‡ЕИГЗ#¬‹ЙК!€ЛМНО\"!€)ЕЖГЗ#€Пy€РВ!€ЙК!)‡" [mh-show-message-in-other-window move-to-window-line 0 nil case-fold-search search-backward "\n\n" t "From:" other-window -1 error dgettext "emacs-mh" "No more messages" 2 mh-recenter] 4 "\
Back up displayed message to previous digested message." nil])
(fset 'mh-page-msg #[(&optional arg) "А	!‡" [scroll-other-window arg] 2 "\
Page the displayed message forwards.
Scrolls ARG lines or a full screen if no argument is supplied." "P"])
(fset 'mh-previous-page #[(&optional arg) "ЉА €БЋВ!*‡" [mh-show-message-in-other-window ((other-window -1)) scroll-down arg] 2 "\
Page the displayed message backwards.
Scrolls ARG lines or a full screen if no argument is supplied." "P"])
(fset 'mh-previous-undeleted-msg #[(&optional arg) "АВy€ГЕВ$«ѓЗ ‡И	!­„К	!‡" [backward mh-next-direction 0 re-search-backward mh-good-msg-regexp nil arg mh-maybe-show get-buffer mh-show-buffer delete-windows-on] 5 "\
Move to previous undeleted message in window." "p"])
(fset 'mh-print-msg #[(prefix-provided msg-or-seq) "«‰БВГД\"!€Є‡БВГЕ\"!€«єЖЗИЙ\nЛ#МН\";«‡ЖР\"ЄЃСТ\n!Ж«ЉЖВГФ\"\"Є‡ЖЦ\n#\"&Є±ЖЧМН\"Ш\n!;«‡ЖР\"ЄЃСЖ«ЉЖВГФ\"\"Є‡ЖЦ\n#\"%«ЉЫЭ#€ЄЊЮЯ‰‰Э&€«Ља\nб\"#€Є€г\nб\"#€д\nеж#€«€БВГз\"!Є†БВГи\"!)‡" [prefix-provided message dgettext "emacs-mh" "Printing sequence..." "Printing message..." format "(scan -clear %s ; %s -nobell -clear %s %s) | %s" mapconcat (lambda (msg) msg) msg-or-seq " " expand-file-name "mhl" mh-lib mhl-formfile "-form %s" "" mh-msg-filenames mh-lpr-command-format "Sequence from %s" mh-current-folder "%s/%d" "%s -nobell -clear %s %s | %s" mh-msg-filename print-command mh-print-background mh-exec-cmd-daemon shell-file-name "-c" call-process nil mh-notate-seq 80 mh-cmd-note mh-notate mh-add-msgs-to-seq printed t "Printing sequence...done" "Printing message...done"] 12 "\
Print MESSAGE(s) (default: displayed message) on a line printer.
If optional prefix argument provided, then prompt for the message sequence." (byte-code "‰«ЉБВГДЕ\"!!ЄѓЖЕ!D‡" [current-prefix-arg reverse mh-seq-to-msgs mh-read-seq-default "Print" t mh-get-msg-num] 6)])
(fset 'mh-put-msg-in-seq #[(prefix-provided from to) "В\"‡" [to mh-previous-seq mh-add-msgs-to-seq from] 3 "\
Add MESSAGE(s) (default: displayed message) to SEQUENCE.
If optional prefix argument provided, then prompt for the message sequence." (byte-code "‰«‹БВГДЕ\"Ж\"!ЄѓЗЖ!ВГДИ\"Й\"E‡" [current-prefix-arg mh-seq-to-msgs mh-read-seq-default dgettext "emacs-mh" "Add messages from" t mh-get-msg-num "Add to" nil] 6)])
(fset 'mh-rescan-folder #[(&optional range) "АВ®ЃЕ\"‡" [forward mh-next-direction mh-scan-folder mh-current-folder range "all"] 3 "\
Rescan a folder after optionally processing the outstanding commands.
If optional prefix argument is provided, prompt for the range of
messages to display.  Otherwise show the entire folder." (byte-code "­†БВГД\"!C‡" [current-prefix-arg mh-read-msg-range dgettext "emacs-mh" "Range to scan [all]? "] 4)])
(fset 'mh-redistribute #[(to cc msg) "А‹‡" [((byte-code "БВГД\"­„Ж!И#	\nЛМ!€ВГН\"П±€ВГС\"љ¬‡ТП±€УeФИ#€Х €ЦВГЧ\"!€«—ШЩИМИЪЫЬЭ ЮЯ \"Э $&€Є™ШЩИМИЪЫбЖ\n\"ЮЯ \"Э $&€в\n#дежЫз#&€и	!€ЦВГй\"!*‡" [mh-current-folder mh-read-draft dgettext "emacs-mh" "redistribution" mh-redist-full-contents mh-msg-filename msg nil draft folder mh-goto-header-end 0 "Resent-To: " to "\n" cc "" "Resent-cc: " mh-clean-msg-header "^Message-Id:\\|^Received:\\|^Return-Path:\\|^Sender:\\|^Date:\\|^From:" save-buffer message "Redistributing..." call-process "/bin/sh" "-c" format "mhdist=1 mhaltmsg=%s %s -push %s" buffer-file-name expand-file-name "send" mh-progs "mhdist=1 mhaltmsg=%s mhannotate=1 %s -push %s" mh-annotate-msg mh-note-dist "-component" "Resent:" "-text" "\"%s %s\"" kill-buffer "Redistributing...done"] 12))] 1 "\
Redistribute a letter.
Depending on how your copy of MH was compiled, you may need to change the
setting of the variable mh-redist-full-contents.  See its documentation." (byte-code "АБВГ\"!АБВД\"!ЕЖ!E‡" [read-string dgettext "emacs-mh" "Redist-To: " "Redist-Cc: " mh-get-msg-num t] 5)])
(fset 'mh-write-msg-to-file #[(msg file) "А	!В!ЖBЉИЙКЛ\"!q€М €Н!€Оed#+‡" [mh-msg-filename msg mh-expand-file-name file output-file file-name write mh-last-destination get-buffer-create dgettext "emacs-mh" " *mh-temp*" erase-buffer insert-file-contents append-to-file] 4 "\
Append MESSAGE to the end of a FILE." (byte-code "АБ!\n@Г=«†Д\nA!ЄЃЗИЙК\"ЛМ\"#)D‡" [mh-get-msg-num t mh-last-destination write file-name-directory default-directory default-dir read-file-name dgettext "emacs-mh" "Save message in file: " expand-file-name "mail.out"] 7)])
(fset 'mh-search-folder #[(folder) "АБВГ\"!€Д ЕU¬€ЖБВЗ\"!¬…И €Є„ЙК!€‰‡" [switch-to-buffer-other-window dgettext "emacs-mh" "pick-pattern" buffer-size 0 y-or-n-p "Reuse pattern? " mh-make-pick-template message "" folder mh-searching-folder] 4 "\
Search FOLDER for messages matching a pattern." (byte-code "АБВГ\"Е#C‡" [mh-prompt-for-folder dgettext "emacs-mh" "Search" mh-current-folder t] 4)])
(fset 'mh-send #[(to cc subject) "А В €Г	$)‡" [current-window-configuration config delete-other-windows mh-send-sub to cc subject] 5 "\
Compose and send a letter.
The letter is composed in mh-letter-mode; see its documentation for more
details.  If `mh-compose-letter-function' is defined, it is called on the
draft and passed three arguments: to, subject, and cc." "sTo: \nsCc: \nsSubject: "])
(fset 'mh-send-other-window #[(to cc subject) "АВЖ $)‡" [t pop-up-windows mh-send-sub to cc subject current-window-configuration] 5 "\
Compose and send a letter in another window.." "sTo: \nsCc: \nsSubject: "])
(fset 'mh-send-sub #[(to cc subject config) "БВ!ЕЖЗИ\"!€ЙЖЗК\"ЛМН\"!«‡МН\"Є–ЛМН\"!«‡МН\"Є†РЖЗС\"!В#УФЦШ&€ЪВ!€db€ЕЖЗЫ\"!€ЬЭВ‰&\n+‡" [mh-current-folder mh-get-msg-num nil msg-num folder message dgettext "emacs-mh" "Composing a message..." mh-read-draft "message" file-exists-p expand-file-name "components" mh-user-path mh-lib error "Can't find components file" draft mh-insert-fields "To:" to "Subject:" subject "Cc:" cc set-buffer-modified-p "Composing a message...done" mh-compose-and-send-mail "" config] 11 "\
Do the real work of composing and sending a letter.
Expects the TO, CC, and SUBJECT fields as arguments.
CONFIG is the window configuration before sending mail."])
(fset 'mh-show #[(&optional msg) "¬„БВ!ВДЕ!€ЖЗ !И =¬ѓЙ €\nМ €Н\"€)ОП!€Р TС U¬€ТР Z!€ФХ!€>?­‡B‰‡" [msg mh-get-msg-num t mh-showing mh-set-mode-name "mh-e show" next-window minibuffer-window selected-window delete-other-windows mh-current-folder folder mh-show-message-in-other-window mh-display-msg other-window -1 window-height screen-height shrink-window mh-summary-height mh-recenter nil mh-seen-list] 3 "\
Show MESSAGE (default: displayed message).
Forces a two-window display with the folder window on top (size
mh-summary-height) and the show buffer below it." nil])
(fset 'mh-sort-folder #[nil "А	!€ВДЕ!€ЖЗИЙ\"!€КЛ	\"€ЖЗИМ\"!€Н	О\"‡" [mh-process-or-undo-commands mh-current-folder forward mh-next-direction mh-set-folder-modified-p t message dgettext "emacs-mh" "Sorting folder..." mh-exec-cmd "sortm" "Sorting folder...done" mh-scan-folder "all"] 4 "\
Sort the messages in the current folder by date." nil])
(fset 'mh-toggle-showing #[nil "«ѓБ ‡В ‡" [mh-showing mh-set-scan-mode mh-show] 1 "\
Toggle the scanning mode/showing mode of displaying messages." nil])
(fset 'mh-undo #[(prefix-provided msg-or-seq) "«‰БВГ!\"€ЄШ`Жy€З!¬«З	!¬Ґ\nЛ=«ѓo¬њ\nМ=«€ЉНy€m)¬Ћ\nЛ=«ѓОЄЃПy€ЄOЗ!¬†З	!«‹ВРС!!€Т €ЄЉb€УФХЦ\"!€)БЧ\"€Щ ?­ѓЪН!‡" [prefix-provided mh-mapc mh-undo-msg mh-seq-to-msgs msg-or-seq original-position 0 looking-at mh-deleted-msg-regexp mh-refiled-msg-regexp mh-next-direction forward backward nil -1 1 mh-get-msg-num t mh-maybe-show error dgettext "emacs-mh" "Nothing to undo" #[(elt) "А	!?­†В	\"‰‡" [mh-seq-to-msgs elt delq mh-refile-list] 3] mh-refile-list mh-outstanding-commands-p mh-set-folder-modified-p] 4 "\
Undo the deletion or refile of the specified MESSAGE(s).
Default is the displayed message.  If optional prefix argument is
provided, then prompt for the message sequence." (byte-code "‰«‰БВГД\"Е\"ЄѓЖЕ!D‡" [current-prefix-arg mh-read-seq-default dgettext "emacs-mh" "Undo" t mh-get-msg-num] 5)])
(fset 'mh-undo-msg #[(msg) "	>«ЌВ	\"ГДЕ#€Є†ЖЗ\"€ЙК#‡" [msg mh-delete-list delq mh-remove-msg-from-seq deleted t mh-mapc #[(dest) "А	\nГ#‡" [mh-remove-msg-from-seq msg dest t] 4] mh-refile-list mh-notate 32 mh-cmd-note] 4])
(fset 'mh-undo-folder #[(&rest ignore) "¬€БВГД\"!« ЕЕЕЙ\nЛ Е‰ПР!*СЕ!€)‡ТВГУ\"!€ФХ!‡" [mh-do-not-confirm yes-or-no-p dgettext "emacs-mh" "Undo all commands in folder? " nil mh-delete-list mh-refile-list mh-seq-list forward mh-next-direction buffer-modified-p folder-updating-mod-flag buffer-file-name buffer-read-only mh-unmark-all-headers t mh-set-folder-modified-p message "Commands not undone." sit-for 2] 4 "\
Undo all commands in current folder." nil])
(fset 'mh-unshar-msg #[(dir) "АБВ!\"€Д!‡" [mh-display-msg mh-get-msg-num t mh-current-folder mh-unshar-buffer dir] 3 "\
Unpack the shar file contained in the current message into directory DIR." (byte-code "АБВГ\"‰Ж%C‡" [read-file-name dgettext "emacs-mh" "Unshar message in directory: " e mh-unshar-default-directory nil] 6)])
(fset 'mh-unshar-buffer #[(dir) "eb€АБВГ#¬™АДВГ#«„Еy¬ЋАЖВГ#¬‡АЗВГ#«ШИ	!Кy€`ЛМНО\"!Љq€И	!Т €У!«‰Ф	Х±€Є‘Ц	Х±€ЧШВГ%€)ЩЪ!К\"€ЫdЬВГ&+‡ЭМНЮ\"!‡" [re-search-forward "^#![ 	]*/bin/sh" nil t "^[^a-z0-9\"]*cut here" 1 "^#" "^: " expand-file-name dir 0 get-buffer-create dgettext "emacs-mh" "*Unshar Output*" log-buffer start default-directory erase-buffer file-directory-p "cd " "\n" "mkdir " call-process "mkdir" set-window-start display-buffer call-process-region "sh" error "Cannot find start of shar."] 7])
(fset 'mh-visit-folder #[(folder &optional range) "А В®ЃЕ\"€	)З‡" [current-window-configuration config mh-scan-folder folder range "all" mh-previous-window-config nil] 3 "\
Visit FOLDER and display RANGE of messages.
Assumes mh-e has already been initialized." (byte-code "АБВГ\"ДЕ#ЖБВЗ\"!D‡" [mh-prompt-for-folder dgettext "emacs-mh" "Visit" "+inbox" t mh-read-msg-range "Range [all]? "] 5)])
(fset 'mh-widen #[nil "«–Б Г‰ed|€~€Ж €*З\n!€)Г‰‡" [mh-narrowed-to-seq buffer-modified-p folder-updating-mod-flag nil buffer-file-name buffer-read-only mh-make-folder-mode-line mh-set-folder-modified-p] 2 "\
Remove restrictions from the current folder, thereby showing all messages." nil])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧM€ШЩM‡" [mh-delete-a-msg #[(msg) "ЉА	ВГ#€Д!«€ЖЗИЙ\"	\"€Д\n!?­–ЛГ!€	BН	ОГ#€П	Р#)‡" [mh-goto-msg msg nil t looking-at mh-refiled-msg-regexp error dgettext "emacs-mh" "Message %d is refiled.  Undo refile before deleting." mh-deleted-msg-regexp mh-set-folder-modified-p mh-delete-list mh-add-msgs-to-seq deleted mh-notate 68 mh-cmd-note] 4] mh-refile-a-msg #[(msg destination) "ЉА	ВГ#€Д!«‰ЖЗИЙ\"	\"ЄУД\n!«¦ЛМЗИН\"	#!«‘ПРСГ!ТУХ!&ЄЇЦЗИЧ\"!Є§ШГ!€>¬‡B	Ъ!>¬‡Ы	Г#€Ь	Э#)‡" [mh-goto-msg msg nil t looking-at mh-deleted-msg-regexp error dgettext "emacs-mh" "Message %d is deleted.  Undo delete before moving." mh-refiled-msg-regexp y-or-n-p format "Message %d already refiled.  Copy to %s as well? " destination mh-exec-cmd "refile" mh-get-msg-num "-link" "-src" mh-current-folder symbol-name message "Message not copied." mh-set-folder-modified-p mh-refile-list mh-seq-to-msgs mh-add-msgs-to-seq mh-notate 94 mh-cmd-note] 8] mh-display-msg #[(msg-num folder) "q€	\nЕ!	\nП\n!¬‰РСТУ\"\"€Ф	!€«„Цp!€\nљ?­оШ €Щ €ЪЫ €«ќ;«ЋЬЭЮЯа\n&€ЄЏЬЭЮЯ\n$€Є…б\n!€eb€«Ќвe#€eb€Є‘г$ежЪг#€зy€из!€)йЪ!€\nкЪ!€л,#C‰-.‡" [folder mhl-formfile mh-clean-message-header mh-invisible-headers mh-visible-headers mh-msg-filename msg-num mh-show-buffer mh-current-folder show-buffer msg-filename visible-headers invisible-headers clean-message-header formfile file-exists-p error dgettext "emacs-mh" "Message %d does not exist" switch-to-buffer mh-bury-show-buffer bury-buffer buffer-file-name clear-visited-file-modtime unlock-buffer nil erase-buffer mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear" "-form" insert-file-contents mh-clean-msg-header t case-fold-search re-search-forward "^To:\\|^From:\\|^Subject:\\|^Date:" 0 mh-recenter set-buffer-modified-p set-mark format mh-show-buffer-mode-line-buffer-id mode-line-buffer-identification] 7] mh-invalidate-show-buffer #[nil "А	!­€Љ	q€В‰)‡" [get-buffer mh-show-buffer nil buffer-file-name] 2] mh-show-message-in-other-window #[nil "А	!€\n­ѓГp!‡" [switch-to-buffer-other-window mh-show-buffer mh-bury-show-buffer bury-buffer] 2] mh-clean-msg-header #[(start invisible-headers visible-headers) "АЊ\nb€ГДЕА#«„ЖЗ!€\n`}€eb€«­`dW«ЕЙy€К!«ЌЗy€КЛ!«jЗy€ЄvМЗ!€КЛ!«\\Йy€МЗ!€ЄrНЕА#«•Йy€МЗ!€КЛ!«lЙy€МЗ!€ЄrП *‡" [t case-fold-search start search-forward "\n\n" nil backward-char 1 visible-headers 0 looking-at "^[ 	]+" mh-delete-line re-search-forward invisible-headers unlock-buffer] 4] mh-delete-line #[(lines) "`Љy€`)|‡" [lines] 2] mh-read-draft #[(use initial-contents delete-contents-file) "«—	ГДЕ !Ж\"€ЗИЙК \"!€\n)ЄЖЛМ\"ГМ!€П «•РСТУ\"!«†ФХ!€Є‡ЦСТЧ\"!€Щ €Ъ €Ы!«‘љ¬ЉЭ!€Ю!€)«ЈЯ аU¬ЊРИСТб\"\"\"!¬‘г €Э!€$«…Ю!€еж!€«ѓз €К ‡" [mh-draft-folder default-directory orig-default-dir pop-to-buffer find-file-noselect mh-new-draft-name t rename-buffer format "draft-%s" buffer-name expand-file-name "draft" mh-user-path draft-name buffer-modified-p y-or-n-p dgettext "emacs-mh" "Draft has been modified; kill anyway? " set-buffer-modified-p nil error "Draft preserved" buffer-file-name clear-visited-file-modtime unlock-buffer file-exists-p initial-contents insert-file-contents delete-file buffer-size 0 "A draft exists.  Use for %s? " use erase-buffer delete-contents-file auto-save-mode 1 save-buffer] 5] mh-new-draft-name #[nil "ЉАБВГ\"!q€Д €ЕЖЗЙ$€`К S{)‡" [get-buffer-create dgettext "emacs-mh" " *mh-temp*" erase-buffer mh-exec-cmd-output "mhpath" nil mh-draft-folder "new" mark] 5] mh-next-msg #[nil "Б=«„ВГ!‡ДГ!‡" [mh-next-direction forward mh-next-undeleted-msg 1 mh-previous-undeleted-msg] 2] mh-set-scan-mode #[nil "А	!«„В	!€ГД!€Е­ѓИЕ!‡" [get-buffer mh-show-buffer delete-windows-on mh-set-mode-name "mh-e scan" nil mh-showing mh-recenter-summary-p mh-recenter] 2] mh-maybe-show #[(&optional msg) "­ѓБ\n!‡" [mh-showing mh-show msg] 2] mh-set-mode-name #[(mode-name-string) "ЉВ q€)ГД !‡" [mode-name-string mode-name other-buffer set-buffer-modified-p buffer-modified-p] 2]] 2)
(defvar mh-current-folder nil "\
Name of current folder, a string.")
(defvar mh-show-buffer nil "\
Buffer that displays mesage for this folder.")
(defvar mh-folder-filename nil "\
Full path of directory for this folder.")
(defvar mh-showing nil "\
If non-nil, show the message in a separate window.")
(defvar mh-next-seq-num nil "\
Index of free sequence id.")
(defvar mh-delete-list nil "\
List of msg numbers to delete.")
(defvar mh-refile-list nil "\
List of folder names in mh-seq-list.")
(defvar mh-seq-list nil "\
Alist of (seq . msgs) numbers.")
(defvar mh-seen-list nil "\
List of displayed messages.")
(defvar mh-next-direction 'forward "\
Direction to move to next message.")
(defvar mh-narrowed-to-seq nil "\
Sequence display is narrowed to.")
(defvar mh-first-msg-num nil "\
Number of first msg in buffer.")
(defvar mh-last-msg-num nil "\
Number of last msg in buffer.")
(byte-code "АБM€ВГДЕ#‡" [mh-make-folder #[(name) "А	!€ВД €ЕЖ €ЗВ!€	КЛ!‡" [switch-to-buffer name nil buffer-read-only erase-buffer t mh-folder-mode mh-set-folder-modified-p mh-folder-filename buffer-file-name mh-set-mode-name "mh-e scan"] 2] put mh-folder-mode mode-class special] 4)
(fset 'mh-folder-mode #[nil "А €Б\n!€ГЕЖ!€ЗИЙ КЛМЙ \"НОПЙ !!РСТУФСХСЦСЧСШЩЪСЫСЬСЭС&€Юаб!€Ю\"гд!€е$гж!€з&ий!‡" [kill-all-local-variables use-local-map mh-folder-mode-map mh-folder-mode major-mode mh-set-mode-name "mh-e folder" make-local-vars mh-current-folder buffer-name mh-show-buffer format "show-%s" mh-folder-filename file-name-as-directory mh-expand-file-name mh-showing nil mh-next-seq-num 0 mh-delete-list mh-refile-list mh-seq-list mh-seen-list mh-next-direction forward mh-narrowed-to-seq mh-first-msg-num mh-last-msg-num mh-previous-window-config t truncate-lines auto-save-mode -1 buffer-offer-save make-local-variable write-file-hooks (mh-execute-commands) revert-buffer-function mh-undo-folder run-hooks mh-folder-mode-hook] 29 "\
Major mode for \"editing\" an MH folder scan listing.
Messages can be marked for refiling and deletion.  However, both actions
are deferred until you request execution with \\[mh-execute-commands].
\\{mh-folder-mode-map}
  A prefix argument (\\[universal-argument]) to delete, refile, list, or undo
applies the action to a message sequence.

Variables controlling mh-e operation are (defaults in parentheses):

 mh-bury-show-buffer (t)
    Non-nil means that the buffer used to display message is buried.
    It will never be offered as the default other buffer.

 mh-clean-message-header (nil)
    Non-nil means remove header lines matching the regular expression
    specified in mh-invisible-headers from messages.

 mh-visible-headers (nil)
    If non-nil, it contains a regexp specifying the headers that are shown in
    a message if mh-clean-message-header is non-nil.  Setting this variable
    overrides mh-invisible-headers.

 mh-do-not-confirm (nil)
    Non-nil means do not prompt for confirmation before executing some
    non-recoverable commands such as mh-kill-folder and mh-undo-folder.

 mhl-formfile (nil)
    Name of format file to be used by mhl to show messages.
    A value of T means use the default format file.
    Nil means don't use mhl to format messages.

 mh-lpr-command-format (\"lpr -p -J '%s'\")
    Format for command used to print a message on a system printer.

 mh-recenter-summary-p (nil)
    If non-nil, then the scan listing is recentered when the window displaying
    a messages is toggled off.

 mh-summary-height (4)
    Number of lines in the summary window including the mode line.

 mh-ins-buf-prefix (\"> \")
    String to insert before each non-blank line of a message as it is
    inserted in a draft letter.

The value of mh-folder-mode-hook is called when a new folder is set up."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM‡" [make-local-vars #[(&rest pairs) "­”Б@!€@A@L€AA‰¬mВ‡" [pairs make-variable-buffer-local nil] 3] mh-scan-folder #[(folder range) "А	!¬†В	!€Є€Г	!€Д	!€Е!€З ИU«ћЙљ«ЉКЛМН\"	\"€ЄЉКЛМО\"	#€ПР!€С ‡" [get-buffer folder mh-make-folder mh-process-or-undo-commands switch-to-buffer mh-regenerate-headers range buffer-size 0 "all" message dgettext "emacs-mh" "Folder %s is empty" "No messages in %s, range %s" sit-for 5 mh-goto-cur-msg] 4] mh-regenerate-headers #[(range) "ВГДЕ\"	\"€Ж И‰	\nЛ €МНИОПРС 	&€eb€УФ!«‡Х!€ЄЉУЧ!¬…Х!€ШЩ!€Ъ	И\"Ь €ЭЮљ?­‚!€*аИ!€)ВГДб\"	\")‡" [mh-current-folder folder message dgettext "emacs-mh" "Scanning %s..." buffer-modified-p folder-updating-mod-flag nil buffer-file-name buffer-read-only erase-buffer mh-exec-cmd-output "scan" "-noclear" "-noheader" "-width" window-width range looking-at "scan: no messages in" keep-lines mh-valid-scan-line "scan: " mh-delete-seq-locally cur mh-read-folder-sequences mh-seq-list mh-notate-user-sequences mh-make-folder-mode-line "all" mh-partial-folder-mode-line-annotation mh-set-folder-modified-p "Scanning %s...done"] 9] mh-get-new-mail #[(maildrop-name) "`БЕ З‰	К«‹МНОП\"#Є‡МНОР\"\"!€СЗ!€Тdb€`«’ХЦЗЧШ!ЩЪ Ы&€Є€ХЦЗЩЪ $€К«‹МНОЬ\"#Є‡МНОЭ\"\"!€b€ЮЯ!«ўа!!€b€КНОв\"«ѓгЄЃд«„ЄЃд#€ЄЄежЗБ#«‰зНОи\"!€Єљйк!€лБ\",н €а!!€о €п €Б)\n*р!€,‡" [mh-current-folder t return-value folder point-before-inc buffer-modified-p folder-updating-mod-flag nil buffer-file-name buffer-read-only message maildrop-name format dgettext "emacs-mh" "inc %s -file %s..." "inc %s..." mh-unmark-all-headers forward mh-next-direction start-of-inc mh-exec-cmd-output "inc" "-file" expand-file-name "-width" window-width "-truncate" "inc %s -file %s...done" "inc %s...done" looking-at "inc: no mail" keep-lines mh-valid-scan-line "No new mail%s%s" " in " "" re-search-forward "^inc:" error "inc error" mh-delete-seq-locally cur mh-read-folder-sequences mh-seq-list mh-notate-user-sequences mh-make-folder-mode-line mh-goto-cur-msg mh-set-folder-modified-p] 9] mh-make-folder-mode-line #[(&optional annotation) "ЉА €БВ!Д €БВ!Жed\"ИЙ\n«‡ИЛ\n\"ЄЃМ‰НU«ѓОЄ‘ПV«‡ИР#Є„ИС\"$C‰*‡" [mh-first-msg mh-get-msg-num nil mh-first-msg-num mh-last-msg mh-last-msg-num count-lines lines format "{%%b%s}  %d msg%s" annotation "/%s" "" 0 "s" 1 "s (%d-%d)" " (%d)" mode-line-buffer-identification] 8] mh-unmark-all-headers #[(remove-all-flags) "ЉАd	ZАЕ €`X­©	u€g«Џ\nЗ=¬Џ\nИ=¬Љ\nЙ=¬…\nК=«‡ЛМ!€Нc€Аy€ЄR,‡" [nil mh-cmd-note char last-line case-fold-search mh-first-msg remove-all-flags 68 94 37 43 delete-char 1 " "] 3] mh-goto-cur-msg #[nil "АБ!@‰«—Г\nДЕ#«ђЖЕЗ#€ЙК!€Л\n!Є‰М €НОПР\"!)‡" [mh-seq-to-msgs cur cur-msg mh-goto-msg t nil mh-notate 43 mh-cmd-note mh-recenter 0 mh-maybe-show mh-last-msg message dgettext "emacs-mh" "No current message"] 5] mh-pack-folder-1 #[(range) "А	!€ВГДЕ\"!€ЖЗ!€ЉИГДЙ\"К	Л$€)М!‡" [mh-process-or-undo-commands mh-current-folder message dgettext "emacs-mh" "Packing folder..." mh-set-folder-modified-p t mh-exec-cmd-quiet " *mh-temp*" "folder" "-pack" mh-regenerate-headers range] 5] mh-process-or-undo-commands #[(folder) "q€Б «’\n¬€ГДЕЖ\"!«„З!‡И ‡Й ‡" [folder mh-outstanding-commands-p mh-do-not-confirm y-or-n-p dgettext "emacs-mh" "Process outstanding deletes and refiles (or lose them)? " mh-process-commands mh-undo-folder mh-invalidate-show-buffer] 4] mh-process-commands #[(folder) "АБВГ\"\"€q€Е З‰	\n«ЌЛ!«‡Н\n\"€ОП\"€«ЌТУФ$€Х!€Ц ЧV«‹ШЩЪЗ!®ЃЫC\"€Ь €ЗЗЭЗ\"З\nаб!€в €АБВг\"\"*дЗ!€)‡" [message dgettext "emacs-mh" "Processing deletes and refiles for %s..." folder buffer-modified-p folder-updating-mod-flag nil buffer-file-name buffer-read-only mh-seen-list mh-seq-to-msgs mh-unseen-seq mh-undefine-sequence mh-mapc #[(dest) "А	!‰­ђГДЕЖИ	!\n&€Й\n!)‡" [mh-seq-to-msgs dest msgs apply mh-exec-cmd "refile" "-src" folder symbol-name mh-delete-scan-msgs] 8] mh-refile-list mh-delete-list apply mh-exec-cmd "rmm" mh-delete-scan-msgs buffer-size 0 mh-define-sequence cur mh-get-msg-num "last" mh-invalidate-show-buffer mh-read-folder-sequences mh-current-folder mh-seq-list mh-unmark-all-headers t mh-notate-user-sequences "Processing deletes and refiles for %s...done" mh-set-folder-modified-p] 5] mh-delete-scan-msgs #[(msgs) "А	В\"ЉГ €	­Ў`dW­њДЕ!	@љ«Џ`ЉЕy€`)|€	A‰ЄbЕy€Є\\)‡" [sort msgs < mh-first-msg mh-get-msg-num nil] 4]] 2)
(fset 'mh-set-folder-modified-p #[(flag) "А	!‡" [set-buffer-modified-p flag] 2 "\
Mark current folder as modified or unmodified according to FLAG."])
(fset 'mh-outstanding-commands-p #[nil "®Ѓ	‡" [mh-delete-list mh-refile-list] 1])
(defvar mh-sent-from-folder nil "\
Folder of msg associated with this letter.")
(defvar mh-sent-from-msg nil "\
Number of msg associated with this letter.")
(defvar mh-send-args nil "\
Extra arguments to pass to \"send\" command.")
(defvar mh-annotate-char nil "\
Character to use to annotate mh-sent-from-msg.")
(defvar mh-annotate-field nil "\
Field name for message annotation.")
(fset 'mh-letter-mode #[nil "А €БВ!€Г\nPБД!€ГPБЕ!€БЖ!€БЗ!€БИ!€БЙ!€БК!€Л!€НПР!€С!€УФХ\"€ЦЧ!«‹«‡БЧ!€ШЦЩ!­Њ­€БЩ!€Ш‰‡" [kill-all-local-variables make-local-variable paragraph-start "^[ 	]*[-_][-_][-_]+$\\|" paragraph-separate mh-send-args mh-annotate-char mh-annotate-field mh-previous-window-config mh-sent-from-folder mh-sent-from-msg use-local-map mh-letter-mode-map mh-letter-mode major-mode mh-set-mode-name "mh-e letter" set-syntax-table mh-letter-mode-syntax-table run-hooks text-mode-hook mh-letter-mode-hook boundp auto-fill-hook mh-auto-fill-for-letter auto-fill-function] 3 "\
Mode for composing letters in mh-e.
When you have finished composing, type \\[mh-send-letter] to send the letter.

Variables controlling this mode (defaults in parentheses):

 mh-delete-yanked-msg-window (nil)
    If non-nil, \\[mh-yank-cur-msg] will delete any windows displaying
    the yanked message.

 mh-yank-from-start-of-msg (t)
    If non-nil, \\[mh-yank-cur-msg] will include the entire message.
    If `body', just yank the body (no header).
    If nil, only the portion of the message following the point will be yanked.
    If there is a region, this variable is ignored.

 mh-signature-file-name (\"~/.signature\")
    File to be inserted into message by \\[mh-insert-signature].

Upon invoking mh-letter-mode, text-mode-hook and mh-letter-mode-hook are
invoked with no args, if those values are non-nil.

\\{mh-letter-mode-map}" nil])
(byte-code "АБM€ВГM‡" [mh-auto-fill-for-letter #[nil "А €Б ­‰ЉВy€ГДЕ\")‡" [do-auto-fill mh-in-header-p 0 insert-char 9 1] 3] mh-in-header-p #[nil "Љ`eb€БВГД#€`W*‡" [cur-point re-search-forward "^--------" nil t] 4]] 2)
(fset 'mh-to-field #[nil "А €БВД\"\"AЖЙЖ\"«Ё`\nЛМx€`\n|€)ВД\"Н=¬ЏЉОП!€РС!)¬„ТcЄўУcЄћeb€ФХ!€Пy€РЦ!«…Пy€ЄvЧШ\"c€ОП!*‡" [expand-abbrev assoc logior last-input-char 96 mh-to-field-choices t case-fold-search target mh-position-on-field eol " 	" nil 115 backward-char 1 looking-at "[:,]" ", " " " re-search-forward "^To:" "^[ 	]" format "%s \n"] 4 "\
Move point to the end of a specified header field.
The field is indicated by the previous keystroke.  Create the field if
it does not exist.  Set the mark to point before moving." nil])
(fset 'mh-to-fcc #[nil "АБВГД\"ЕЖ#Й €ЉК €ЛМOc+‡" [6 mh-prompt-for-folder dgettext "emacs-mh" "Fcc" "" t folder last-input-char expand-abbrev mh-to-field 1 nil] 5 "\
Insert an Fcc: field in the current message.
Prompt for the field name with a completion list of the current folders." nil])
(fset 'mh-insert-signature #[nil "А	!€ВГ !‡" [insert-file-contents mh-signature-file-name set-buffer-modified-p buffer-modified-p] 2 "\
Insert the file named by mh-signature-file-name at the current point." nil])
(fset 'mh-check-whom #[nil "А ВГ!€Д €ЕЖЗИ\"!€ЙЖЗК\"!€Лp!€М €НОГ	#€ПР!€ЕЖЗС\"!)‡" [buffer-file-name file-name set-buffer-modified-p t save-buffer message dgettext "emacs-mh" "Checking recipients..." switch-to-buffer-other-window "*Mail Recipients*" bury-buffer erase-buffer mh-exec-cmd-output "whom" other-window -1 "Checking recipients...done"] 4 "\
Verify recipients of the current letter." nil])
(defvar mh-searching-folder nil "\
Folder this pick is searching.")
(fset 'mh-make-pick-template #[nil "А €Б €ВГ!€ДЕЖЗИЙ±€К €Л!€eb€Н‡" [erase-buffer kill-all-local-variables make-local-variable mh-searching-folder "From: \n" "To: \n" "Cc: \n" "Date: \n" "Subject: \n" "---------\n" mh-letter-mode use-local-map mh-pick-mode-map nil] 6])
(fset 'mh-do-pick-search #[nil "А 	В‰‰‰ЉЙ!«Џq€КЛ#ЄЉО!€ПР)СТУФ\"!€eb€Х!‰«ЦЧШBЩЪЫЇ¤#ЪЄ`СТУЬ\"!€«€Э\"€Є…Ю!€Я €аЧб\"T#.‡" [buffer-name mh-searching-folder nil new-buffer pattern msgs range searching-buffer pattern-buffer get-buffer format "%d-%d" mh-first-msg-num mh-last-msg-num mh-make-folder "all" t message dgettext "emacs-mh" "Searching..." mh-next-pick-field mh-seq-from-command search "pick" "-sequence" "search" "-list" "Searching...done" mh-scan-folder switch-to-buffer delete-other-windows mh-notate-seq 37 mh-cmd-note] 9 "\
Find messages that match the qualifications in the current pattern buffer.
Messages are searched for in the folder named in mh-searching-folder.
Put messages found in a sequence named `search'." nil])
(byte-code "АБM€ВГM‡" [mh-next-pick-field #[(buffer) "q€Бm«ѓГЄИДЕГБ#«ќЖЗИ”И•{—\"	К”К•{Иy€	*DЄ¤ДМГБ#«њИu€`d{‰GОV­‹Пљ?­„РD)ЄЃГ)‡" [buffer t case-fold-search nil re-search-forward "^\\([a-z].*\\):[ 	]*\\([a-z0-9].*\\)$" format "--%s" 1 component 2 pat "^-*$" body 0 "\n" "-search"] 5] mh-compose-and-send-mail #[(draft send-args sent-from-folder sent-from-msg to subject cc annotate-char annotate-field config) "А	!€В €	\nПCСТ!­ґТJ­°ТJ‰<«ћ@Ф=¬—­њ@#€A‰Єk#)‡" [pop-to-buffer draft mh-letter-mode sent-from-folder mh-sent-from-folder sent-from-msg mh-sent-from-msg send-args mh-send-args annotate-char mh-annotate-char annotate-field mh-annotate-field config mh-previous-window-config "{%b}" mode-line-buffer-identification boundp mh-compose-letter-function value lambda to subject cc] 5]] 2)
(fset 'mh-send-letter #[(&optional arg) "АБ!€ВГ!€Д €ЕЖЗИ\"!€pЙ \n«µПЖЗР\"!€С €«ЏУФГХЦЧ&€Є‹УФГХЦЧ&€db€ШЩ!€q€Є«ЊЪФЧЫ%€Є€ЪФЧЫ$€«—Эа!вгдеж!ез!#&€«€иЖЗй\"!«Ћк!€«…л!€ЕЖЗм\"!+‡" [run-hooks mh-before-send-letter-hook set-buffer-modified-p t save-buffer message dgettext "emacs-mh" "Sending..." buffer-file-name mh-previous-window-config config file-name draft-buffer arg pop-to-buffer "MH mail delivery" erase-buffer mh-send-args mh-exec-cmd-output "send" "-watch" "-nopush" "-nodraftfolder" recenter -1 mh-exec-cmd-daemon "-noverbose" mh-annotate-char mh-annotate-msg mh-sent-from-msg mh-sent-from-folder "-component" mh-annotate-field "-text" format "\"%s %s\"" mh-get-field "To:" "Cc:" y-or-n-p "Kill draft buffer? " kill-buffer set-window-configuration "Sending...done"] 12 "\
Send the draft letter in the current buffer.
If optional prefix argument is provided, monitor delivery.
Run mh-before-send-letter-hook before doing anything." "P"])
(fset 'mh-insert-letter #[(prefix-provided folder msg) "Њ``}€e	Вљ«„Г!ЕЖЗИЙ	К!\"$€?­ђН#€Р!€С!*‡" [start msg "" int-to-string mh-sent-from-msg mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear" expand-file-name mh-expand-file-name folder prefix-provided mh-clean-msg-header mh-invisible-headers mh-visible-headers set-mark mh-insert-prefix-string mh-ins-buf-prefix] 8 "\
Insert a message from any folder into the current letter.
Removes the message's headers using mh-invisible-headers.
Prefixes each non-blank line with mh-ins-buf-prefix (default \">> \").
If optional prefix argument provided, do not indent and do not delete
headers.  Leaves the mark before the letter and point after it." (byte-code "БВГД\"Ж#ЗИВГЙ\"\n«‡ИЛ\n\"ЄЃМ\"!E‡" [current-prefix-arg mh-prompt-for-folder dgettext "emacs-mh" "Message from" mh-sent-from-folder nil read-input format "Message number%s: " mh-sent-from-msg " [%d]" ""] 8)])
(fset 'mh-yank-cur-msg #[nil "«Э	«Ъ`pq€«…Е!€q€ЗИ!«‡Й К {Є М=«ЋЉeb€НО!€`)d{ЄЊ«…ed{Єѓ`d{\nq€‰}€Р €c€С!€Уc€~+‡ФХЦЧ\"!‡" [mh-sent-from-folder mh-sent-from-msg to-buffer to-point mh-delete-yanked-msg-window delete-windows-on mh-show-buffer mark t region-beginning region-end mh-yank-from-start-of-msg body mh-goto-header-end 1 mh-ins-str push-mark mh-insert-prefix-string mh-ins-buf-prefix "\n" error dgettext "emacs-mh" "There is no current message"] 4 "\
Insert the current message into the draft buffer.
Prefix each non-blank line in the message with the string in
`mh-ins-buf-prefix'.  If a region is set in the message's buffer, then
only the region will be inserted.  Otherwise, the entire message will
be inserted if `mh-yank-from-start-of-msg' is non-nil.  If this variable
is nil, the portion of the message following the point will be yanked.
If `mh-delete-yanked-msg-window' is non-nil, any window displaying the
yanked message will be deleted." nil])
(fset 'mh-insert-prefix-string #[(mh-ins-string) "ЉАd!€eb€БВ!)‡" [set-mark run-hooks mh-yank-hooks] 2])
(fset 'mh-fully-kill-draft #[nil "АБВГ\"!«ўЖЗ !«…ИЗ !€ЙК!€ЛМ !€НО!€­ѓП!)‡РБВС\"!‡" [y-or-n-p dgettext "emacs-mh" "Kill draft message? " mh-previous-window-config config file-exists-p buffer-file-name delete-file set-buffer-modified-p nil kill-buffer buffer-name message "" set-window-configuration error "Message not killed"] 4 "\
Kill the draft message file and the draft message buffer.
Use \\[kill-buffer] if you don't want to delete the draft message file." nil])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM‡" [mh-recenter #[(arg) "Аp!Б =­‰В«ѓЄЃД!‡" [get-buffer-window selected-window recenter arg (t)] 2] mh-make-seq #[(name msgs) "	B‡" [name msgs] 2] mh-seq-name (macro . #[(pair) "А	D‡" [car pair] 2]) mh-seq-msgs (macro . #[(pair) "А	D‡" [cdr pair] 2]) mh-find-seq #[(name) "А	\n\"‡" [assoc name mh-seq-list] 3]] 2)
(fset 'mh-seq-to-msgs #[(seq) "А	!A‡" [mh-find-seq seq] 2 "\
Return a list of the messages in SEQUENCE."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧM‡" [mh-seq-containing-msg #[(msg) "Б‰«“@A>«†@@\nBA‰¬m\n*‡" [mh-seq-list nil seqs l msg] 3] mh-msg-to-seq #[(msg) "А	!@‡" [mh-seq-containing-msg msg] 2] mh-read-seq-default #[(prompt not-empty) "А	\n®Ѓ#‡" [mh-read-seq prompt not-empty mh-narrowed-to-seq mh-previous-seq] 4] mh-read-seq #[(prompt not-empty &optional default) "АБВД«†БЖ\"ЄЃЗ$И	!\"‰\nЛљ«‡МНО!!ЄЌ\nЗљ«ѓЄ„П\n!С!‰¬Џ«‹ФБХЦЧ\"\"!€+‡" [completing-read format "%s %s %s" prompt "sequence:" default "[%s] " "" mh-seq-names mh-seq-list input "%" mh-msg-to-seq mh-get-msg-num t intern seq mh-seq-to-msgs msgs not-empty error dgettext "emacs-mh" "No messages in sequence `%s'"] 9] mh-read-folder-sequences #[(folder define-sequences) "А\n«‰Г!€ЕЖ\"€ЉЗИЙК\"ЛН$€eb€ОПАР#«ђСТУ”У•{!Ф \"	BЄie`|€)	)‡" [nil seqs define-sequences mh-define-sequences mh-seq-list mh-mapc #[(seq) "А	@!­…	\nB‰‡" [mh-folder-name-p seq seqs] 2] mh-exec-cmd-quiet dgettext "emacs-mh" " *mh-temp*" "mark" folder "-list" re-search-forward "^[^: ]+" t mh-make-seq intern 0 mh-read-msg-list] 5] mh-seq-names #[(seq-list) "АБ\n\"‡" [mapcar #[(entry) "А	@!C‡" [symbol-name entry] 2] seq-list] 3] mh-seq-from-command #[(folder seq seq-command) "А‰БЉЕ‹€q€џЗ\"	B	,‡" [nil t case-fold-search msgs msg ((byte-code "АБВГД\"#€eb€Ж @‰«ЊBЙy€ЄlА‡" [apply mh-exec-cmd-quiet dgettext "emacs-mh" " *mh-temp*" seq-command mh-read-msg-list msg msgs 1] 5)) folder mh-make-seq seq mh-seq-list] 3] mh-read-msg-list #[nil "АЉА€`)АДЕ\nЖ#«МЗИ”И•{!ЙК!«ґЛu€ДЕ\nЖ#€ЗИ”И•{!‰	W«ЉНОПР\"	#€	X«Љ	B	T‰Єq)Є8	ИU¬3	BЄ-+‡" [nil num end-of-line msgs re-search-forward "[0-9]+" t string-to-int 0 looking-at "-" 1 num2 error dgettext "emacs-mh" "Bad message range: %d-%d"] 5] mh-remove-seq #[(seq) "АБ\nГT\n%€Е\nЖC\"€З\n!‡" [mh-map-to-seq-msgs mh-notate-if-in-one-seq seq 32 mh-cmd-note mh-undefine-sequence "all" mh-delete-seq-locally] 6] mh-delete-seq-locally #[(seq) "А	!Г\n\"‰)‡" [mh-find-seq seq entry delq mh-seq-list] 3] mh-remove-msg-from-seq #[(msg seq &optional internal-flag) "А	!‰­›ГЕT\n@$€¬†И	C\"€\nЙ\nA\"Ў)‡" [mh-find-seq seq entry mh-notate-if-in-one-seq msg 32 mh-cmd-note internal-flag mh-undefine-sequence delq] 6] mh-add-msgs-to-seq #[(msgs seq &optional internal-flag) "А	!«‡:¬ѓC\n¬‰Д	\"BЄ‹«€\nЖ\nA\"Ў€?­ЊИ	\"€Й	КT#)‡" [mh-find-seq seq entry msgs mh-make-seq mh-seq-list append internal-flag mh-add-to-sequence mh-notate-seq 37 mh-cmd-note] 4]] 2)
(fset 'mh-rename-seq #[(seq new-name) "А	!‰«†\n €Є€ДЕЖЗ\"	\"€И	\nA\"€Й\nA\")‡" [mh-find-seq seq old-seq new-name error dgettext "emacs-mh" "Sequence %s does not exists" mh-undefine-sequence mh-define-sequence] 5 "\
Rename a SEQUENCE to have a new NAME." "SOld sequence name: \nSNew name: "])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧM€ШЩM€ЪЫM€ЬЭM€ЮЯM€абM€вгM€деM€жзM€ийM€клM€мнM‡" [mh-notate-user-sequences #[nil "Б‰­@@Д\n!¬€Е\nЖT#€A‰¬iБ*‡" [mh-seq-list nil name seqs mh-internal-seq mh-notate-seq 37 mh-cmd-note] 5] mh-internal-seq #[(name) "Б>®€\n=®ѓГ!‡" [name (answered cur deleted forwarded printed) mh-unseen-seq mh-folder-name-p] 2] mh-folder-name-p #[(name) "9«€Б!ВHГ=‡ВHГ=‡" [name symbol-name 0 43] 2] mh-notate-seq #[(seq notation offset) "АБ\n$‡" [mh-map-to-seq-msgs mh-notate seq notation offset] 5] mh-notate-if-in-one-seq #[(msg notation offset seq) "А	!\n@=­‹\nA?­†Д	#)‡" [mh-seq-containing-msg msg in-seqs seq mh-notate notation offset] 4] mh-map-to-seq-msgs #[(func seq &rest args) "ЉА	!‰­Г\n@Д‰#«‰Е\n@#€\nA‰¬iИ*‡" [mh-seq-to-msgs seq msgs mh-goto-msg t apply func args nil] 5] mh-map-over-seqs #[(func seq-list) "­ђ	@@@A\"€A‰¬qВ‡" [seq-list func nil] 4] mh-define-sequences #[(seq-list) "АБ\n\"‡" [mh-map-over-seqs mh-define-sequence seq-list] 3] mh-add-to-sequence #[(seq msgs) "А	!?­ђ\n­ЌГДЕЗИ	!Й\n&‡" [mh-folder-name-p seq msgs apply mh-exec-cmd "mark" mh-current-folder "-sequence" symbol-name "-add"] 8] mh-define-sequence #[(seq msgs) "­Б\n!?­’ЉГДЕЗИ\n!ЙКЛ!&)‡" [msgs mh-folder-name-p seq apply mh-exec-cmd "mark" mh-current-folder "-sequence" symbol-name "-add" "-zero" mh-list-to-string] 10] mh-undefine-sequence #[(seq msgs) "АБВДЕ!З&‡" [apply mh-exec-cmd "mark" mh-current-folder "-sequence" symbol-name seq "-delete" msgs] 8] mh-copy-seq-to-point #[(seq location) "АБ\n#‡" [mh-map-to-seq-msgs mh-copy-line-to-point seq location] 4] mh-copy-line-to-point #[(msg location) "Аy€`Вy€Г	`\"€b€Е €	b)‡" [0 beginning-of-line 1 copy-region-as-kill location yank] 3] mh-exec-cmd #[(command &rest args) "ЉАБВ\"q€Г €ДЕЖ\"ЙКЙЛ!&€Н ОV­‚П‹)‡" [dgettext "emacs-mh" " *mh-temp*" erase-buffer apply call-process expand-file-name command mh-progs nil t mh-list-to-string args buffer-size 0 ((byte-code "АБВГ\"!€ДЕ!‡" [switch-to-buffer-other-window dgettext "emacs-mh" " *mh-temp*" sit-for 5] 4))] 8] mh-exec-cmd-quiet #[(buffer command &rest args) ";«†q€Б €ВГД\"ЗЗ&‡" [buffer erase-buffer apply call-process expand-file-name command mh-progs nil args] 7] mh-exec-cmd-output #[(command display &rest args) "А`Б\"€ВГД\"ЗБЙ\n!&€Л ‡" [push-mark t apply call-process expand-file-name command mh-progs nil display mh-list-to-string args exchange-point-and-mark] 8] mh-exec-cmd-daemon #[(command &rest args) "ЉАБВГ\"!q€Д €)ЕЗИ	ЕК	\"М!%ПР\"*‡" [get-buffer-create dgettext "emacs-mh" " *mh-temp*" erase-buffer nil process-connection-type apply start-process command expand-file-name mh-progs mh-list-to-string args process set-process-filter mh-process-daemon] 7] mh-process-daemon #[(process output) "АБВГ\"!q€Д!€ЖБВГ\"!‡" [get-buffer-create dgettext "emacs-mh" " *mh-temp*" insert-before-markers output display-buffer] 4] mh-exec-lib-cmd-output #[(command &rest args) "А`Б\"€ВГД\"ЗБЗИ	!&€К ‡" [push-mark t apply call-process expand-file-name command mh-lib nil mh-list-to-string args exchange-point-and-mark] 8] mh-list-to-string #[(l) "А\n«Р\n@«Ж\n@9«‰Г\n@!	BЄё\n@§«‰Д\n@!	BЄЄ\n@Ељ¬¤\n@;«‡\n@	BЄ\n@<«ЉЖ\n@!џ	¤Є‰ЗИЙК\"\n@\"€\nA‰¬0	џ)‡" [nil new-list l symbol-name int-to-string "" mh-list-to-string error dgettext "emacs-mh" "Bad element in mh-list-to-string: %s"] 5] mh-annotate-msg #[(msg buffer note &rest args) "АБВ%€ЉЖ!­™q€9«ЉЗ	T#Є€К	T#)‡" [apply mh-exec-cmd "anno" buffer msg args get-buffer mh-notate-seq note mh-cmd-note mh-notate] 6] mh-notate #[(msg notation offset) "Љ«‡БВ‰#­ќГ Е‰Иy€	u€КЛ!€c*Н!€))‡" [msg mh-goto-msg t buffer-modified-p folder-updating-mod-flag nil buffer-file-name buffer-read-only 0 offset delete-char 1 notation mh-set-folder-modified-p] 4] mh-prompt-for-folder #[(prompt default can-create) "АБВГ\"Жљ«ѓЗЄ„АИ\"#Й\n¬ѓМ €НЙ‰О%‰\n«‹\nЖљ«…Жљ¬h\nЖљ¬†\nОљ«…\nЄЌП\n!¬‡АР\n\"\nСТ\n!!?‰«іФАБВХ\"\n\"!«§ЦБВЧ\"\n\"€ШЩЙ‰‰Т\n!%€ЦБВЪ\"\n\"€\nCBЄџ«‹ЫБВЬ\"\n\"€ЄђЭ\n\"¬€\nCB)\n*‡" [format dgettext "emacs-mh" "%s folder%s" prompt default "" "? " " [%s]? " nil name mh-folder-list mh-set-folder-list completing-read "+" mh-folder-name-p "+%s" file-exists-p mh-expand-file-name new-file-p y-or-n-p "Folder %s does not exist. Create it? " message "Creating %s" call-process "mkdir" "Creating %s...done" error "Folder %s is not created" assoc] 8]] 2)
(fset 'mh-set-folder-list #[nil "А ‰‡" [mh-make-folder-list mh-folder-list] 2 "\
Sets mh-folder-list correctly.
A useful function for the command line or for when you need to sync by hand."])
(fset 'mh-make-folder-list #[nil "АБВГ\"!€Д‹‡" [message dgettext "emacs-mh" "Collecting folder names..." ((byte-code "АБВГ\"ДЕ«ѓЗЄЃИ$€eb€Й‰\nm¬–`\nМy€НО\n`S{\"CBЄgПБВР\"!€*‡" [mh-exec-cmd-quiet dgettext "emacs-mh" " *mh-temp*" "folders" "-fast" mh-recursive-folders "-recurse" "-norecurse" nil start list 1 format "+%s" message "Collecting folder names...done"] 5))] 4 "\
Return a list of the user's folders.
Result is in a form suitable for completing read." nil])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM‡" [mh-remove-folder-from-folder-list #[(folder) "АБ\n\"\"‰‡" [delq assoc folder mh-folder-list] 4] mh-read-msg-range #[(prompt) "А	!‰GДЖW«•И\n#‰	@B	A)Єfџ,‡" [read-string prompt buf buf-size 0 start nil input read-from-string next] 5] mh-get-msg-num #[(error-if-no-message) "ЉАy€Б\n!«‰ГД”Д•{!ЄЊ«€ЖЗИЙ\"!ЄЃК)‡" [0 looking-at mh-msg-number-regexp string-to-int 1 error-if-no-message error dgettext "emacs-mh" "Cursor not pointing to message" nil] 4] mh-msg-search-pat #[(n) "А	\n\"‡" [format mh-msg-search-regexp n] 3] mh-msg-filename #[(msg &optional folder) "АБ\n!«…Д!ЄЃ\"‡" [expand-file-name int-to-string msg folder mh-expand-file-name mh-folder-filename] 4] mh-msg-filenames #[(msgs &optional folder) "АБ\nГ#‡" [mapconcat #[(msg) "А	\n\"‡" [mh-msg-filename msg folder] 3] msgs " "] 4]] 2)
(fset 'mh-expand-file-name #[(filename &optional default) "А	!«€В	ГДO\"‡В	\"‡" [mh-folder-name-p filename expand-file-name 1 nil mh-user-path default] 4 "\
Just like `expand-file-name', but also handles MH folder names.
Assumes that any filename that starts with '+' is a folder name."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€К!€МНО#€МПО#€МРС#€МТУ#€МФХ#€МЦЧ#€МШЩ#€МЪЫ#€МЬЭ#€МЮЯ#€Маб#€Мвг#€Мде#€Мжз#€Мий#€Мкл#€Ммн#€Моп#€Мрс#€Мту#€Мфх#€Мцч#€Мшщ#€Мъы#€Мьэ#€Мюс#€МяЃ@ #€МЃA ЃB #€МЃC ЃB #€МЃD ЃE #€МЃF ЃG #€МЃH ЃI #€МЃJ ЃI #€МЃK ЃL #€МЃM ЃN #€МЃO ЃP #€МЃQ ЃN #€МЃR ЃS #€МЃT ЃU #€МЃV ЃW #€МЃX ЃY #€МЃZ Ѓ[ #€МЃ\\ Ѓ] #€МЃ^ Ѓ_ #€МЃ` Ѓa #€МЃb Ѓc #€МЃd Ѓe #€МЃf Ѓ] #€МgЃh Ѓi #€МgЃj Ѓi #€МgЃk Ѓl #€МgЃm Ѓi #€МgЃn Ѓi #€МgЃo Ѓi #€МgЃp Ѓi #€МgЃq Ѓl #€МgЃr Ѓi #€МgЃs Ѓi #€МgЃt Ѓu #€МgЃv Ѓw #€МgЃx Ѓy #€МgЃz Ѓ{ #€МgЃ| Ѓ} #€МgЃ~ Ѓ #€МЂЃ~ ЃЃ #€МЂЃh Ѓi #€МЂЃj Ѓi #€МЂЃk Ѓi #€МЂЃm Ѓi #€МЂЃn Ѓi #€МЂЃo Ѓi #€МЂЃp Ѓi #€МЂЃq Ѓi #€МЂЃr Ѓi #€МЂЃs Ѓi #€МЂЃv Ѓw #€Ѓ‚ Ѓѓ !‡" [mh-find-path #[nil "ЉАБВ!®ЃГ!Е!¬€ЖЗИЙ\"\"€КЛ!q€М €Н!€ОЗИП\"!‰Сљ«…ТЄЌУ!¬‡ФХ\"ОЦ!‰Сљ«ѓШЩААЪ!\"!«‘ЕЫ!!¬‰ЖЗИЬ\"\"€ОЭ!‰Сљ«†Я‰Є‡а!‰*‡" [expand-file-name getenv "MH" "~/.mh_profile" profile file-exists-p error dgettext "emacs-mh" "Cannot find MH profile %s" get-buffer-create " *mh-temp*" erase-buffer insert-file-contents mh-get-field "Draft-Folder:" mh-draft-folder "" nil mh-folder-name-p format "+%s" "Path:" mh-user-path "Mail" file-name-as-directory "~" mh-expand-file-name "Draft folder %s does not exist.  Create it and try again." "Unseen-Sequence:" mh-unseen-seq unseen intern] 6] mh-get-field #[(field) "Аeb€ВГД\"ЖА#¬ѓЗЄҐИЙ!«ѓЗЄќВКЖА#€Л”Лy€ИН!«…Лy€Єv`S{))‡" [t case-fold-search re-search-forward format "^%s" field nil "" looking-at "[	 ]*$" "[	 ]*\\([^	 \n].*\\)$" 1 start "[ 	]"] 4] mh-insert-fields #[(&rest name-values) "А\n­µ\n@\nA@Ељ¬ўeb€ЖЗИ\"ЙА#¬ЌКЛ!€МН±€Є€Й€М±€\nAA*ЄH)‡" [t case-fold-search name-values value field-name "" re-search-forward format "^%s" nil mh-goto-header-end 0 " " "\n"] 4] mh-position-on-field #[(field set-mark) "А\n«ѓГ €eb€ДЕ!€ЖЗИ	\"КА#­„К€А)‡" [t case-fold-search set-mark push-mark mh-goto-header-end 0 re-search-backward format "^%s" field nil] 4] mh-goto-header-end #[(arg) "АБВ‰#­‚y‡" [re-search-forward "^$\\|^-+$" nil arg] 4] suppress-keymap mh-folder-mode-map define-key "q" mh-quit "b" "?" mh-msg-is-in-seq "%" mh-put-msg-in-seq "|" mh-pipe-msg "a" mh-edit-again "%" mh-delete-msg-from-seq "n" mh-narrow-to-seq "w" mh-widen "b" mh-burst-digest "u" mh-undo-folder " " mh-page-digest "" mh-page-digest-backwards "e" mh-extract-rejected-mail "f" mh-visit-folder "k" mh-kill-folder "l" mh-list-folders "n" mh-unshar-msg "o" mh-write-msg-to-file "p" mh-pack-folder "s" mh-search-folder "r" mh-rescan-folder "l" mh-print-msg "t" mh-toggle-showing "c" mh-copy-msg ">" "i" mh-inc-folder "x" mh-execute-commands "e" "r" mh-redistribute "f" mh-forward "s" mh-send "m" "a" mh-reply "j" mh-goto-msg "<" mh-first-msg "g" "" mh-previous-page " " mh-page-msg "." mh-show "u" mh-undo "!" mh-refile-or-write-again "^" mh-refile-msg "d" mh-delete-msg "" mh-delete-msg-no-motion "p" mh-previous-undeleted-msg "n" mh-next-undeleted-msg "o" mh-letter-mode-map "" mh-to-field "" "" mh-to-fcc "" "" "b" "c" "f" "s" "t" "" mh-fully-kill-draft "" mh-check-whom "	" mh-insert-letter "" mh-yank-cur-msg "" mh-insert-signature "" mh-send-letter mh-pick-mode-map mh-do-pick-search provide mh-e] 4)