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

;;; This file contains multibyte non-ASCII characters
;;; and therefore cannot be loaded into Emacs 19.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "20")))
    (error "`mh-customize.el' was compiled for Emacs 20 or later"))

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


(byte-code "\300\301!\210\302\303!\210\302\304!\210\305\306\307\"\207" [provide mh-customize require cl mh-loaddefs autoload Info-goto-node "info"] 3)
#@44 Non-nil means the current Emacs is XEmacs.
(defvar mh-xemacs-flag (featurep 'xemacs) (#$ . 793))
(byte-code "\203 \301\302!\210\301\207" [mh-xemacs-flag require mh-xemacs] 2)
#@126 Customize MH-E variables.
If optional argument DELETE-OTHER-WINDOWS-FLAG is non-nil, other windows in
the frame are removed.
(defalias 'mh-customize #[(&optional delete-other-windows-flag) "\301\302!\210\205\n \303 \207" [delete-other-windows-flag customize-group mh delete-other-windows] 2 (#$ . 977) "P"])
(byte-code "\301B\302B\303\304\305\306\307\310\311\312&\210\303\313\314\306\307\315%\210\303\316\305\317\307\320\321\322\311\304&	\210\303\323\305\324\321\325\307\326\311\304&	\210\303\327\305\330\321\325\307\331\311\304&	\210\303\332\305\333\307\334\321\335\311\304&	\210\303\336\305\337\321\340\307\341\311\304&	\210\303\342\305\343\307\344\321\345\311\304&	\210\303\346\305\347\307\350\321\351\311\304&	\210\303\352\305\353\321\325\307\354\311\304&	\210\303\355\305\356\321\325\307\357\311\304&	\210\303\360\305\361\307\362\321\325\311\304&	\210\303\363\305\364\321\325\307\365\311\304&	\210\303\366\305\367\321\325\307\370\311\304&	\210\303\371\305\372\321\325\307\373\311\304&	\210\303\374\305\375\321\376\307\377\311\304&	\210\303\201@ \305\201A \307\201B \321\325\311\304&	\210\303\201C \305\201D \307\201E \321\325\311\201F \311\304&\210\303\201G \305\201H \307\201I \321\325\311\304&	\210\303\201J \305\201K \307\201L \321\325\311\201C \311\371&\210\303\201M \305\201N \307\201O \321\325\311\201C \311\342&\210\303\201P \305\201Q \307\201R \321\325\311\201C \311\352&\210\303\201S \305\201T \307\201U \321\325\311\201C \311\371&\210\303\201V \305\201W \307\201X \321\325\311\201C \311\374&\207" [current-load-list mh-show-buffer mh-show-folder-buffer custom-declare-group mh nil "Emacs interface to the MH mail system.\nMH is the Rand Mail Handler. Other implementations include nmh and GNU\nmailutils." :link (custom-manual "(mh-e)Top") :group mail mh-e ((mh custom-group)) (custom-manual "(mh-e)Top") mh-alias "Aliases." (custom-manual "(mh-e)Aliases") :prefix "mh-alias-" mh-folder "Organizing your mail with folders." "mh-" (custom-manual "(mh-e)Organizing") mh-folder-selection "Folder selection." (custom-manual "(mh-e)Folder Selection") mh-identity "Identities." (custom-manual "(mh-e)Identities") "mh-identity-" mh-inc "Incorporating your mail." "mh-inc-" (custom-manual "(mh-e)Incorporating Mail") mh-index "Searching." (custom-manual "(mh-e)Searching") "mh-index-" mh-junk "Dealing with junk mail." (custom-manual "(mh-e)Junk") "mh-junk-" mh-letter "Editing a draft." (custom-manual "(mh-e)Editing Drafts") mh-ranges "Ranges." (custom-manual "(mh-e)Ranges") mh-scan-line-formats "Scan line formats." (custom-manual "(mh-e)Scan Line Formats") mh-sending-mail "Sending mail." (custom-manual "(mh-e)Sending Mail") mh-sequences "Sequences." (custom-manual "(mh-e)Sequences") mh-show "Reading your mail." (custom-manual "(mh-e)Reading Mail") mh-speed "The speedbar." "mh-speed-" (custom-manual "(mh-e)Speedbar") mh-toolbar "The toolbar" (custom-manual "(mh-e)Toolbar") mh-faces "Faces used in MH-E." (custom-manual "(mh-e)Top") faces mh-hooks "MH-E hooks." (custom-manual "(mh-e)Top") mh-folder-faces "Faces used in scan listing." (custom-manual "(mh-e)Organizing") mh-index-faces "Faces used in searching." (custom-manual "(mh-e)Searching") mh-letter-faces "Faces used in message drafts." (custom-manual "(mh-e)Sending Mail") mh-show-faces "Faces used in message display." (custom-manual "(mh-e)Reading Mail") mh-speed-faces "Faces used in speedbar." (custom-manual "(mh-e)Speedbar")] 12)
#@591 *Specifies the variant used by MH-E.

The default setting of this option is `Auto-detect' which means that MH-E will
automatically choose the first of nmh, MH, or GNU mailutils that it finds in
the directories listed in `mh-path', `mh-sys-path', and `exec-path'. If, for
example, you have both nmh and mailutils installed and `mh-variant-in-use' was
initialized to nmh but you want to use mailutils, then you can set this option
to `mailutils'.

When this variable is changed, MH-E resets `mh-progs', `mh-lib',
`mh-lib-progs', `mh-flists-present-flag', and `mh-variant-in-use'
accordingly.
(custom-declare-variable 'mh-variant ''autodetect '(#$ . -4408) :type `(radio (const :tag "Auto-detect" autodetect) ,@(mapcar (lambda (x) `(const ,(car x))) (mh-variants))) :set (lambda (symbol value) (set-default symbol value) (mh-variant-set value)) :group 'mh)
#@315 *Non-nil means don't consider case significant in MH alias completion.
As MH ignores case in the aliases, so too does MH-E. However, you may turn
this option off to make case significant which can be used to segregate
completion of your aliases. You might use lowercase for mailing lists and
uppercase for people.
(custom-declare-variable 'mh-alias-completion-ignore-case-flag 't '(#$ . -5269) :type 'boolean :group 'mh-alias)
#@215 *Non-nil means to expand aliases entered in the minibuffer.
In other words, aliases entered in the minibuffer will be expanded to the full
address in the message draft. By default, this expansion is not performed.
(custom-declare-variable 'mh-alias-expand-aliases-flag 'nil '(#$ . -5703) :type 'boolean :group 'mh-alias)
#@308 *Specify whether to flash address or warn on translation.
This option controls the behavior when a [comma] is pressed while entering
aliases or addresses. The default setting flashes the address associated with
an address in the minibuffer briefly, but does not display a warning if the
alias is not found.
(custom-declare-variable 'mh-alias-flash-on-comma 't '(#$ . -6031) :type '(choice (const :tag "Flash but Don't Warn If No Alias" t) (const :tag "Flash and Warn If No Alias" 1) (const :tag "Don't Flash Nor Warn If No Alias" nil)) :group 'mh-alias)
#@362 *Filename used to store a new MH-E alias.
The default setting of this option is `Use Aliasfile Profile Component'. This
option can also hold the name of a file or a list a file names. If this option
is set to a list of file names, or the `Aliasfile:' profile component contains
more than one file name, MH-E will prompt for one of them when MH-E adds an
alias.
(custom-declare-variable 'mh-alias-insert-file 'nil '(#$ . -6592) :type '(choice (const :tag "Use Aliasfile Profile Component" nil) (file :tag "Alias File") (repeat :tag "List of Alias Files" file)) :group 'mh-alias)
#@244 Specifies where new aliases are entered in alias files.
This option is set to `Alphabetical' by default. If you organize your alias
file in other ways, then adding aliases to the `Top' or `Bottom' of your alias
file might be more appropriate.
(custom-declare-variable 'mh-alias-insertion-location ''sorted '(#$ . 7177) :type '(choice (const :tag "Alphabetical" sorted) (const :tag "Top" top) (const :tag "Bottom" bottom)) :group 'mh-alias)
#@690 *If on, local users are added to alias completion.

Aliases are created from `/etc/passwd' entries with a user ID larger than
a magical number, typically 200. This can be a handy tool on a machine where
you and co-workers exchange messages. These aliases have the form
`local.first.last' if a real name is present in the password file.
Otherwise, the alias will have the form `local.login'.

If you're on a system with thousands of users you don't know, and the loading
of local aliases slows MH-E down noticeably, then turn this option off.

This option also takes a string which is executed to generate the password
file. For example, use "ypcat passwd" to obtain the NIS password file.
(custom-declare-variable 'mh-alias-local-users 't '(#$ . -7624) :type '(choice (boolean) (string)) :group 'mh-alias)
#@522 *String prepended to the real names of users from the password file.
This option can also be set to `Use Login'.

For example, consider the following password file entry:

    psg:x:1000:1000:Peter S Galbraith,,,:/home/psg:/bin/tcsh

The following settings of this option will produce the associated aliases:

    "local."                  local.peter.galbraith
    ""                        peter.galbraith
    Use Login                   psg

This option has no effect if variable `mh-alias-local-users' is turned off.
(custom-declare-variable 'mh-alias-local-users-prefix '"local." '(#$ . -8437) :type '(choice (const :tag "Use Login" nil) (string)) :group 'mh-alias)
#@401 *Non-nil means the gecos field in the password file uses a comma separator.
In the example in `mh-alias-local-users-prefix', commas are used to separate
different values within the so-called gecos field. This is a fairly common
usage. However, in the rare case that the gecos field in your password file is
not separated by commas and whose contents may contain commas, you can turn
this option off.
(custom-declare-variable 'mh-alias-passwd-gecos-comma-separator-flag 't '(#$ . -9115) :type 'boolean :group 'mh-alias)
#@142 *Non-nil means to recenter the summary window.
If this option is turned on, recenter the summary window when the show window
is toggled off.
(custom-declare-variable 'mh-recenter-summary-flag 'nil '(#$ . -9641) :type 'boolean :group 'mh-folder)
#@368 Function to select a default folder for refiling or `Fcc'.
The current buffer is set to the message being refiled with point at the start
of the message. This function should return the default folder as a string
with a leading `+' sign. It can also return nil so that the last folder name
is used as the default, or an empty string to suppress the default entirely.
(custom-declare-variable 'mh-default-folder-for-message-function 'nil '(#$ . 9893) :type 'function :group 'mh-folder-selection)
#@449 *List of addresses and folders.
The folder name associated with the first address found in this list is used
as the default for `mh-refile-msg' and similar functions. 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.

See `mh-prompt-for-refile-folder' and `mh-folder-from-address' for more
information.
(custom-declare-variable 'mh-default-folder-list 'nil '(#$ . -10395) :type '(repeat (list (regexp :tag "Address") (string :tag "Folder") (boolean :tag "Check Recipient"))) :group 'mh-folder-selection)
#@376 *Non-nil means guessed folder name must exist to be used.
If the derived folder does not exist, and this option is on, then the last
folder name used is suggested. This is useful if you get mail from various
people for whom you have an alias, but file them all in the same project
folder.

See `mh-prompt-for-refile-folder' and `mh-folder-from-address' for more
information.
(custom-declare-variable 'mh-default-folder-must-exist-flag 't '(#$ . -11051) :type 'boolean :group 'mh-folder-selection)
#@203 *Prefix used for folder names generated from aliases.
The prefix is used to prevent clutter in your mail directory.

See `mh-prompt-for-refile-folder' and `mh-folder-from-address' for more
information.
(custom-declare-variable 'mh-default-folder-prefix '"" '(#$ . -11555) :type 'string :group 'mh-folder-selection)
#@573 *List of identities.

Each element consists of an identity label, and a collection of header fields
and a signature to insert if the identity is selected (see
`mh-identity-default', `mh-insert-identity' and the `Identity' menu in a
MH-Letter buffer). The `Value Menu' contains the common header fields `From'
and `Organization'. Other header fields may be added using the `Other Field'
menu item. The `Signature' menu item is used to insert a signature with
`mh-insert-signature'. The `GPG Key ID' menu item is used to specify a
different key to sign or encrypt messages.
(custom-declare-variable 'mh-identity-list 'nil '(#$ . -11877) :type '(repeat (list :tag "" (string :tag "Label") (repeat :tag "Add at least one item below" (choice (cons :tag "From Field" (const "From") (string :tag "Value")) (cons :tag "Organization Field" (const "Organization") (string :tag "Value")) (cons :tag "Other Field" (string :tag "Field") (string :tag "Value")) (cons :tag "Attribution Verb" (const ":attribution-verb") (string :tag "Value")) (cons :tag "Signature" (const :tag "Signature" ":signature") (choice (const :tag "mh-signature-file-name" nil) (file) (function))) (cons :tag "GPG Key ID" (const :tag "GPG Key ID" ":pgg-default-user-id") (string :tag "Value")))))) :set 'mh-identity-list-set :group 'mh-identity)
#@480 List of recipients for which header lines are automatically inserted.
Each element consists of the recipient, which is a regular expression, and a
collection of header fields and identities to insert if the message is sent to
this recipient. The `Value Menu' contains the common header fields `Fcc' and
`Mail-Followup-To'. Other header fields may be added using the `Other Field'
menu item. The `Identity' menu item is used to insert entire identities with
`mh-insert-identity'.
(custom-declare-variable 'mh-auto-fields-list 'nil '(#$ . 13191) :type `(repeat (list :tag "" (string :tag "Recipient") (repeat :tag "Add at least one item below" (choice (cons :tag "Identity" (const ":identity") ,(append '(radio) (mapcar #'(lambda (arg) `(const ,arg)) (mapcar 'car mh-identity-list)))) (cons :tag "Fcc Field" (const "fcc") (string :tag "Value")) (cons :tag "Mail-Followup-To Field" (const "Mail-Followup-To") (string :tag "Value")) (cons :tag "Other Field" (string :tag "Field") (string :tag "Value")))))) :group 'mh-identity)
#@88 *Non-nil means to prompt before sending if fields inserted.
See `mh-auto-fields-list'.
(custom-declare-variable 'mh-auto-fields-prompt-flag 't '(#$ . -14221) :type 'boolean :group 'mh-identity)
#@58 Default identity to use when `mh-letter-mode' is called.
(custom-declare-variable 'mh-identity-default 'nil '(#$ . 14421) :type (append '(radio) (cons '(const :tag "None" nil) (mapcar #'(lambda (arg) `(const ,arg)) (mapcar 'car mh-identity-list)))) :group 'mh-identity)
#@311 Handler functions for fields in `mh-identity-list'.
This is an alist of fields (strings) and handlers (functions). Strings are
lowercase. Use ":signature" for Signature and ":pgg-default-user-id" for
GPG Key ID. The function associated with the string ":default" is used if no
other functions are appropriate.
(custom-declare-variable 'mh-identity-handlers ''((":default" . mh-identity-handler-bottom) ("from" . mh-identity-handler-top) (":attribution-verb" . mh-identity-handler-attribution-verb) (":signature" . mh-identity-handler-signature) (":pgg-default-user-id" . mh-identity-handler-gpg-identity)) '(#$ . 14698) :type '(repeat (cons (string :tag "Field") function)) :group 'mh-identity)
#@160 *Program to run to incorporate new mail into a folder.
Normally "inc". This program is relative to the `mh-progs' directory unless
it is an absolute pathname.
(custom-declare-variable 'mh-inc-prog '"inc" '(#$ . -15400) :type 'string :group 'mh-inc)
#@967 *Alist of alternate spool files, corresponding folders and keybindings.
This option will be described by example.

Suppose you have subscribed to the mh-e-devel mailing list and you use
procmail to filter its mail into `~/mail/mh-e' with the following
`.procmailrc' recipe:

    MAILDIR=$HOME/mail
    :0:
    * ^From mh-e-devel-admin@lists.sourceforge.net
    mh-e

If you wanted to incorporate that spool file into an MH folder called mh-e
with the "I m" or \[mh-inc-spool-mh-e] commands, you would use the
following:

    Spool File:  ~/mail/mh-e
    Folder:      mh-e
    Key Binding: m

Then, you could also install `xbuffy' and configure an extra mailbox using the
gnuserv package to run the `mh-inc-spool-mh-e' command in Emacs:

    box ~/mail/mh-e
        title mh-e
        origMode
        polltime 10
        headertime 0
        command gnudoit -q '(mh-inc-spool-mh-e)'

To incorporate the spool file, click the xbuffy box with the middle mouse
button.
(custom-declare-variable 'mh-inc-spool-list 'nil '(#$ . -15656) :type '(repeat (list (file :tag "Spool File") (string :tag "Folder") (character :tag "Key Binding"))) :set 'mh-inc-spool-list-set :group 'mh-inc)
#@286 Folders searched for the `unseen' sequence.
This option can be set to `Inbox' to search the `+inbox' folder or `All' to
search all of the top level folders. Otherwise, list the folders that should
be searched with the `Choose Folders' menu item.

See also `mh-recursive-folders-flag'.
(custom-declare-variable 'mh-index-new-messages-folders 't '(#$ . 16839) :group 'mh-index :type '(choice (const :tag "Inbox" t) (const :tag "All" nil) (repeat :tag "Choose Folders" (string :tag "Folder"))))
#@467 Indexing program that MH-E shall use.
The default setting of this option is `Auto-detect' which means that MH-E will
automatically choose one of swish++, swish-e, mairix, namazu, pick and grep in
that order. If, for example, you have both swish++ and mairix installed and
you want to use mairix, then you can set this option to `mairix'.

More information about setting up an indexing program to use with MH-E can be
found in the documentation of `mh-index-search'.
(custom-declare-variable 'mh-index-program 'nil '(#$ . 17338) :type '(choice (const :tag "Auto-detect" nil) (const :tag "swish++" swish++) (const :tag "swish-e" swish) (const :tag "mairix" mairix) (const :tag "namazu" namazu) (const :tag "pick" pick) (const :tag "grep" grep)) :group 'mh-index)
#@278 Folders searched for `mh-tick-seq'.
This option can be set to `Inbox' to search the `+inbox' folder or `All' to
search all of the top level folders. Otherwise, list the folders that should
be searched with the `Choose Folders' menu item.

See also `mh-recursive-folders-flag'.
(custom-declare-variable 'mh-index-ticked-messages-folders 't '(#$ . 18106) :group 'mh-index :type '(choice (const :tag "Inbox" t) (const :tag "All" nil) (repeat :tag "Choose Folders" (string :tag "Folder"))))
(byte-code "\301B\302\301!\204\f \303\303\207" [current-load-list mh-junk-choice boundp nil] 2)
#@188 Available choices of spam programs to use.
This is an alist. For each element there are functions that blacklist a message
as spam and whitelist a message incorrectly classified as spam.
(defvar mh-junk-function-alist '((spamassassin mh-spamassassin-blacklist mh-spamassassin-whitelist) (bogofilter mh-bogofilter-blacklist mh-bogofilter-whitelist) (spamprobe mh-spamprobe-blacklist mh-spamprobe-whitelist)) (#$ . 18699))
#@235 Choose spam program to use.
The function is always called with SYMBOL bound to `mh-junk-program' and VALUE
bound to the new value of `mh-junk-program'. The function sets the variable
`mh-junk-choice' in addition to `mh-junk-program'.
(defalias 'mh-junk-choose #[(symbol value) "	L\210	\206' \n\306:\203$ @\307\310\f@!!\204$ A\211\202 \f@*\211\207" [symbol value mh-junk-function-alist #1=#:G2613 element mh-junk-choice nil executable-find symbol-name] 4 (#$ . 19127)])
#@27 Disposition of junk mail.
(custom-declare-variable 'mh-junk-disposition 'nil '(#$ . 19612) :type '(choice (const :tag "Delete Spam" nil) (string :tag "Spam Folder")) :group 'mh-junk)
#@344 Spam program that MH-E should use.
The default setting of this option is `Auto-detect' which means that MH-E will
automatically choose one of SpamAssassin, Bogofilter, or SpamProbe in that
order. If, for example, you have both SpamAssassin and Bogofilter installed
and you want to use BogoFilter, then you can set this option to `Bogofilter'.
(custom-declare-variable 'mh-junk-program 'nil '(#$ . 19802) :type '(choice (const :tag "Auto-detect" nil) (const :tag "SpamAssassin" spamassassin) (const :tag "Bogofilter" bogofilter) (const :tag "SpamProbe" spamprobe)) :set 'mh-junk-choose :group 'mh-junk)
#@273 If on, spam programs are run in background.
By default, the programs are run in the foreground, but this can be slow when
junking large numbers of messages. If you have enough memory or don't junk
that many messages at the same time, you might try turning on this option.
(custom-declare-variable 'mh-junk-background 'nil '(#$ . 20411) :type '(choice (const :tag "Off" nil) (const :tag "On" 0)) :group 'mh-junk)
#@47 Default method to use in security directives.
(custom-declare-variable 'mh-mml-method-default '(if mh-gnus-pgp-support-flag "pgpmime" "none") '(#$ . 20829) :type '(choice (const :tag "PGP (MIME)" "pgpmime") (const :tag "PGP" "pgp") (const :tag "S/MIME" "smime") (const :tag "None" "none")) :group 'mh-letter)
#@59 Non-nil means that messages are forwarded as a MIME part.
(custom-declare-variable 'mh-compose-forward-as-mime-flag 't '(#$ . 21144) :type 'boolean :group 'mh-letter)
#@187 Type of MIME message directives in messages.

By default, this option is set to `Gnus' if it is supported. This option can
also be set manually to `mhn' if mhn directives are preferred.
(custom-declare-variable 'mh-compose-insertion '(if (locate-library "mml") 'gnus 'mhn) '(#$ . 21318) :type '(choice (const :tag "Gnus" gnus) (const :tag "mhn" mhn)) :group 'mh-letter)
#@62 List of header fields to skip over when navigating in draft.
(custom-declare-variable 'mh-compose-skipped-header-fields ''("From" "Organization" "References" "In-Reply-To" "X-Face" "Face" "X-Image-URL" "X-Mailer") '(#$ . 21694) :type '(repeat (string :tag "Field")) :group 'mh-letter)
#@62 *Non-nil means that <SPC> does completion in message header.
(custom-declare-variable 'mh-compose-space-does-completion-flag 'nil '(#$ . -21985) :type 'boolean :group 'mh-letter)
#@217 *Non-nil means delete any window displaying the message.
If this option is on, yanking the current message into a draft letter with
\<mh-letter-mode-map>\[mh-yank-cur-msg] deletes any windows displaying the
message.
(custom-declare-variable 'mh-delete-yanked-msg-window-flag 'nil '(#$ . -22171) :type 'boolean :group 'mh-letter)
#@99 *Verb to use for attribution when a message is yanked by \<mh-letter-mode-map>\[mh-yank-cur-msg].
(custom-declare-variable 'mh-extract-from-attribution-verb '"wrote:" '(#$ . -22506) :type '(choice (const "wrote:") (const "a ��crit:") (const "schrieb:") (string :tag "Custom String")) :group 'mh-letter)
#@201 *String to put before each non-blank line of a yanked or inserted message.
Used when the message is inserted into an outgoing letter
by \<mh-letter-mode-map>\[mh-insert-letter] or \[mh-yank-cur-msg].
(custom-declare-variable 'mh-ins-buf-prefix '"> " '(#$ . -22816) :type 'string :group 'mh-letter)
#@56 *Non-nil means append an X-Mailer field to the header.
(custom-declare-variable 'mh-insert-x-mailer-flag 't '(#$ . -23120) :type 'boolean :group 'mh-letter)
#@123 *Function to call when completing outside of address or folder fields.
By default, this is set to `ispell-complete-word'.
(custom-declare-variable 'mh-letter-complete-function ''ispell-complete-word '(#$ . -23284) :type '(choice function (const nil)) :group 'mh-letter)
#@254 *Fill column to use in `mh-letter-mode'.
This is usually less than in other text modes because email messages get
quoted by some prefix (sometimes many times) when they are replied to,
and it's best to avoid quoted lines that span more than 80 columns.
(custom-declare-variable 'mh-letter-fill-column '72 '(#$ . -23561) :type 'integer :group 'mh-letter)
#@381 *Non-nil means the show buffer is displayed using \<mh-letter-mode-map>\[mh-reply].

The setting of this variable determines whether the MH `show-buffer' is
displayed with the current message when using `mh-reply' without a prefix
argument.  Set it to nil if you already include the message automatically
in your draft using
 repl: -filter repl.filter
in your ~/.mh_profile file.
(custom-declare-variable 'mh-reply-show-message-flag 't '(#$ . -23922) :type 'boolean :group 'mh-letter)
#@871 *Source of user's signature.

By default, the text of your signature is taken from the file `~/.signature'.
You can read from other files by changing this option. This file may contain a
vCard in which case an attachment is added with the vCard.

This option may also be a symbol, in which case that function is called. You
may not want a signature separator to be added for you; instead you may want
to insert one yourself. Variables that you may find useful to do this include
`mh-signature-separator' (when inserting a signature separator) and
`mh-signature-separator-regexp' (for finding said separator). The function
`mh-signature-separator-p', which reports t if the buffer contains a
separator, may be useful as well.

The signature is inserted into your message with the command
\<mh-letter-mode-map>\[mh-insert-signature] or with the `mh-identity-list'
option.
(custom-declare-variable 'mh-signature-file-name '"~/.signature" '(#$ . -24414) :type 'file :group 'mh-letter)
#@290 *Non-nil means a signature separator should be inserted.
It is not recommended that you change this option since various mail user
agents, including MH-E, use the separator to present the signature
differently, and to suppress the signature when replying or yanking a letter
into a draft.
(custom-declare-variable 'mh-signature-separator-flag 't '(#$ . -25402) :type 'boolean :group 'mh-letter)
#@1075 *File containing face header field to insert in outgoing mail.

If the file starts with either of the strings `X-Face:', `Face:' or
`X-Image-URL:' then the contents are added to the message header verbatim.
Otherwise it is assumed that the file contains the value of the `X-Face:'
header field.

The `X-Face:' header field, which is a low-resolution, black and white image,
can be generated using the `compface' command, which can be obtained from
ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.Z. The "Online
X-Face Convertor" at http://www.dairiki.org/xface/ is a useful resource for
quick conversion of images into `X-Face:' header fields.

Use the `make-face' script (http://quimby.gnus.org/circus/face/make-face) to
convert a JPEG image to the higher resolution, color, `Face:' header field.

The URL of any image can be used for the `X-Image-URL:' field and no
processing of the image is required.

To prevent the setting of any of these header fields, either set
`mh-x-face-file' to nil, or simply ensure that the file defined by this option
doesn't exist.
(custom-declare-variable 'mh-x-face-file '"~/.face" '(#$ . -25805) :type 'file :group 'mh-letter)
#@1594 *Controls which part of a message is yanked by \<mh-letter-mode-map>\[mh-yank-cur-msg].
If t, include the entire message, with full headers.  This is historically
here for use with supercite, but is now deprecated in favor of the setting
`supercite' below.

If the symbol `body', then yank the message minus the header.

If the symbol `supercite', include the entire message, with full headers.
This also causes the invocation of `sc-cite-original' without the setting
of `mail-citation-hook', now deprecated practice.

If the symbol `autosupercite', do as for `supercite' automatically when
show buffer matches the message being replied-to.  When this option is used,
the -noformat switch is passed to the repl program to override a -filter or
-format switch.

If the symbol `attribution', then yank the message minus the header and add
a simple attribution line at the top.

If the symbol `autoattrib', do as for `attribution' automatically when show
buffer matches the message being replied-to.  You can make sure this is
always the case by setting `mh-reply-show-message-flag' to t (which is the
default) and optionally `mh-delete-yanked-msg-window-flag' to t as well such
that the show window is never displayed.  When the `autoattrib' option is
used, the -noformat switch is passed to the repl program to override a
-filter or -format switch.

If nil, yank only the portion of the message following the point.

If the show buffer has a region, this variable is ignored unless its value is
one of `attribution' or `autoattrib' in which case the attribution is added
to the yanked region.
(custom-declare-variable 'mh-yank-from-start-of-msg ''attribution '(#$ . -26985) :type '(choice (const :tag "Below point" nil) (const :tag "Without header" body) (const :tag "Invoke supercite" supercite) (const :tag "Invoke supercite, automatically" autosupercite) (const :tag "Without header, with attribution" attribution) (const :tag "Without header, with attribution, automatically" autoattrib) (const :tag "Entire message with headers" t)) :group 'mh-letter)
#@168 Non-nil means interpret a number as a range.
If the variable is non-nil, and you use an integer, N, when asked for a
range to scan, then MH-E uses the range "last:N".
(custom-declare-variable 'mh-interpret-number-as-range-flag 't '(#$ . 29049) :type 'boolean :group 'mh-ranges)
#@579 *Non-nil means that the message number width is determined dynamically.
This is done once when a folder is first opened by running scan on the last
message of the folder. The message number for the last message is extracted
and its width calculated. This width is used when calling `mh-set-cmd-note'.

If you prefer fixed-width message numbers, set this variable to nil and call
`mh-set-cmd-note' with the width specified by the scan format in
`mh-scan-format-file'. For example, the default width is 4, so you would use
"(mh-set-cmd-note 4)" if `mh-scan-format-file' were nil.
(custom-declare-variable 'mh-adaptive-cmd-note-flag 't '(#$ . -29334) :type 'boolean :group 'mh-scan-line-formats)
#@592 Specifies the format file to pass to the scan program.
If t, the format string will be taken from the either `mh-scan-format-mh'
or `mh-scan-format-nmh' depending on whether MH or nmh is in use.
If nil, the default scan output will be used.

If you customize the scan format, you may need to modify a few variables
containing regexps that MH-E uses to identify specific portions of the output.
Use `M-x apropos RET mh-scan.*regexp' to obtain a list of these variables. You
may also have to call `mh-set-cmd-note' with the width of your message
numbers. See also `mh-adaptive-cmd-note-flag'.
(custom-declare-variable 'mh-scan-format-file 't '(#$ . 30034) :type '(choice (const :tag "Use MH-E scan Format" t) (const :tag "Use Default scan Format" nil) (file :tag "Specify a scan Format File")) :group 'mh-scan-line-formats)
#@217 *Program to run to generate one-line-per-message listing of a folder.
Normally "scan" or a file name linked to scan.  This file is searched
for relative to the `mh-progs' directory unless it is an absolute pathname.
(custom-declare-variable 'mh-scan-prog '"scan" '(#$ . -30863) :type 'string :group 'mh-scan-line-formats)
(make-variable-buffer-local 'mh-scan-prog)
#@114 Invoked when setting up a letter draft.
It is passed three arguments: TO recipients, SUBJECT, and CC recipients.
(custom-declare-variable 'mh-compose-letter-function 'nil '(#$ . 31235) :type '(choice (const nil) function) :group 'mh-sending-mail)
#@69 *Non-nil means prompt for header fields when composing a new draft.
(custom-declare-variable 'mh-compose-prompt-flag 'nil '(#$ . -31488) :type 'boolean :group 'mh-sending-mail)
#@182 *Format to generate the Subject: line contents for a forwarded message.
The two string arguments to the format are the sender of the original
message and the original subject line.
(custom-declare-variable 'mh-forward-subject-format '"%s: %s" '(#$ . -31672) :type 'string :group 'mh-sending-mail)
#@261 *Sets the person or persons to whom a reply will be sent.
If nil, prompt for recipient.  If non-nil, then \<mh-folder-mode-map>`\[mh-reply]' will use this
value and it should be one of "from", "to", "cc", or "all".
The values "cc" and "all" do the same thing.
(custom-declare-variable 'mh-reply-default-reply-to 'nil '(#$ . -31976) :type '(choice (const :tag "Prompt" nil) (const "from") (const "to") (const "cc") (const "all")) :group 'mh-sending-mail)
#@267 *Non-nil means that sequences are preserved when messages are refiled.
If this variable is non-nil and a message belonging to a sequence other than
cur or Previous-Sequence (see mh-profile 5) is refiled then it is put in the
same sequence in the destination folder.
(custom-declare-variable 'mh-refile-preserves-sequences-flag 't '(#$ . -32437) :type 'boolean :group 'mh-sequences)
#@265 The name of the MH sequence for ticked messages.
You would change this option if you already use the `tick' sequence for your
own use. You can also disable all of the ticking functions by choosing the
`Disable Ticking' item but there isn't much advantage to that.
(custom-declare-variable 'mh-tick-seq ''tick '(#$ . 32826) :type '(choice (const :tag "Disable Ticking" nil) symbol) :group 'mh-sequences)
#@533 *Non-nil means flush MH sequences to disk after message is shown.
Three sequences are maintained internally by MH-E and pushed out to MH when a
message is shown. They include the sequence specified by your
`Unseen-Sequence:' profile entry, `cur', and the sequence listed by
the `mh-tick-seq' option which is `tick' by default.
If you do not like this behavior, set this option to nil. You can then update
the state manually with the \<mh-folder-mode-map>`\[mh-execute-commands]', `\[mh-quit]', or `\[mh-update-sequences]' commands.
(custom-declare-variable 'mh-update-sequences-after-mh-show-flag 't '(#$ . -33236) :type 'boolean :group 'mh-sequences)
#@71 *Non-nil means that the displayed show buffer for a folder is buried.
(custom-declare-variable 'mh-bury-show-buffer-flag 't '(#$ . -33894) :type 'boolean :group 'mh-show)
#@320 *Non-nil means remove extraneous header fields.
The header fields listed in the `mh-invisible-header-fields-default' option
are hidden, although you can check off any field that you would like to see.
Header fields that you would like to hide that aren't listed can be added to
the `mh-invisible-header-fields' option.
(custom-declare-variable 'mh-clean-message-header-flag 't '(#$ . -34072) :type 'boolean :group 'mh-show)
#@70 *Non-nil means that Gnus is used to show MIME attachments with Gnus.
(custom-declare-variable 'mh-decode-mime-flag '(not (not (locate-library "mm-decode"))) '(#$ . -34502) :type 'boolean :group 'mh-show)
#@249 *Non-nil means display buttons for all MIME alternatives.
Default behavior is to display only the preferred alternative. If this
variable is non-nil, then the preferred part is shown inline and buttons
are shown for each of the other alternatives.
(custom-declare-variable 'mh-display-buttons-for-alternatives-flag 'nil '(#$ . -34713) :type 'boolean :group 'mh-show)
#@248 *Non-nil means display buttons for all inline MIME parts.
If non-nil, buttons are displayed for all MIME parts. Inline parts start off
in displayed state but they can be hidden by clicking the button. If nil no
buttons are shown for inline parts.
(custom-declare-variable 'mh-display-buttons-for-inline-parts-flag 'nil '(#$ . -35087) :type 'boolean :group 'mh-show)
#@286 *Non-nil means do not prompt for confirmation.
Commands such as `mh-pack-folder' prompt to confirm whether to process
outstanding moves and deletes or not before continuing. A non-nil setting will
perform the action--which is usually desired but cannot be retracted--without
question.
(custom-declare-variable 'mh-do-not-confirm-flag 'nil '(#$ . -35460) :type 'boolean :group 'mh-show)
#@1077 *Control fetching of `X-Image-URL:' header field image.
If set to "Always fetch" (t), the image is always fetched. You probably want
to avoid this setting for privacy and DOS (denial of service) reasons. For
example, fetching a URL can tip off a spammer that you've read his email.
Someone may also flood your network and fill your disk drive by sending a
torrent of messages, each specifying a unique URL to a very large file.

If set to "Ask before fetching" ('ask), you are prompted before the image is
fetched. MH-E will remember your reply and will either use the already fetched
image the next time the same URL is encountered or silently skip it if you
didn't fetch it the first time. This is the default.

If set to "Never fetch" (nil), images are never fetched and only displayed
if they are already present in the cache.

The cache of images is found in the directory `.mhe-x-image-cache' within your
MH directory. To see how you can add your own face to the `From:' field, see
`mh-x-face-file'.

This setting only has effect if `mh-show-use-xface-flag' is non-nil.
(custom-declare-variable 'mh-fetch-x-image-url ''ask '(#$ . -35854) :type '(choice (const :tag "Always fetch" t) (const :tag "Ask before fetching" ask) (const :tag "Never fetch" nil)) :group 'mh-show)
#@219 *Non-nil means graphical smileys are displayed.
Non-nil means that small graphics will be used in the show buffer instead of
patterns like :-), ;-) etc. The setting only has effect if
`mh-decode-mime-flag' is non-nil.
(custom-declare-variable 'mh-graphical-smileys-flag 't '(#$ . -37138) :type 'boolean :group 'mh-show)
#@275 *Non-nil means graphical emphasis is displayed.
Non-nil means that _underline_ will be underlined, *bold* will appear in bold,
/italic/ will appear in italic etc. See `gnus-emphasis-alist' for the whole
list. The setting only has effect if `mh-decode-mime-flag' is non-nil.
(custom-declare-variable 'mh-graphical-emphasis-flag 't '(#$ . -37465) :type 'boolean :group 'mh-show)
#@106 How to highlight citations in show buffers.
The gnus method uses a different color for each indentation.
(custom-declare-variable 'mh-highlight-citation-p ''gnus '(#$ . 37849) :type '(choice (const :tag "Use Gnus" gnus) (const :tag "Use font-lock" font-lock) (const :tag "Don't fontify" nil)) :group 'mh-show)
#@259 List of default header fields that are not to be shown.
Do not alter this variable directly.  Instead, add entries from here that you
would like to be displayed in `mh-invisible-header-fields-default'
and add entries to hide in `mh-invisible-header-fields'.
(defvar mh-invisible-header-fields-internal '("Approved:" "Autoforwarded:" "Bestservhost:" "Cancel-Lock:" "Content-" "Delivered-To:" "Delivery-Date:" "Delivery:" "Encoding:" "Envelope-to:" "Errors-To:" "Face:" "Forwarded:" "From " "Importance:" "In-Reply-To:" "Lines:" "List-" "List-" "List-Subscribe:" "List-Unsubscribe:" "Mail-from:" "Mailing-List:" "Message-Id:" "Mime-Version" "NNTP-" "Old-Return-Path:" "Original-Encoded-Information-Types:" "Original-Lines:" "Original-NNTP-" "Original-Newsgroups:" "Original-Path:" "Original-Received:" "Original-To:" "Original-X-" "Originator:" "P1-Content-Type:" "P1-Message-Id:" "P1-Recipient:" "Path:" "Precedence:" "Prev-Resent" "Priority:" "Received:" "References:" "Remailed-" "Replied:" "Resent" "Return-Path:" "Sensitivity:" "Status:" "Thread-" "Ua-Content-Id:" "Via:" "X-Abuse-Info:" "X-Abuse-and-DMCA-" "X-Accept-Language:" "X-Accept-Language:" "X-Ack:" "X-Administrivia-To:" "X-AntiAbuse:" "X-Apparently-From:" "X-Apparently-To:" "X-Authentication-Warning:" "X-Beenthere:" "X-Bogosity:" "X-Complaints-To:" "X-Cron-Env:" "X-DMCA" "X-Delivered" "X-ELNK-Trace:" "X-Envelope-Date:" "X-Envelope-From:" "X-Envelope-Sender:" "X-Envelope-To:" "X-Face:" "X-Folder:" "X-From-Line" "X-Gnus-Mail-Source:" "X-Greylist:" "X-Habeas-SWE-1:" "X-Habeas-SWE-2:" "X-Habeas-SWE-3:" "X-Habeas-SWE-4:" "X-Habeas-SWE-5:" "X-Habeas-SWE-6:" "X-Habeas-SWE-7:" "X-Habeas-SWE-8:" "X-Habeas-SWE-9:" "X-Image-URL:" "X-Info:" "X-Juno-" "X-List-Host:" "X-List-Subscribe:" "X-List-Unsubscribe:" "X-Listprocessor-" "X-Listserver:" "X-Loop:" "X-MHE-Checksum" "X-MIME-Autoconverted:" "X-MIMETrack:" "X-Mms-" "X-MS-" "X-MailScanner" "X-Mailing-List:" "X-Mailman-Version:" "X-Majordomo:" "X-Message-Id" "X-MessageWall-Score:" "X-MimeOLE:" "X-Mozilla-Status:" "X-Msmail-" "X-NAI-Spam-" "X-News:" "X-No-Archive:" "X-Notes-Item:" "X-OperatingSystem:" "X-Orcl-Content-Type:" "X-Original-Complaints-To:" "X-Original-Date:" "X-Original-To:" "X-Original-Trace:" "X-OriginalArrivalTime:" "X-Originating-IP:" "X-Postfilter:" "X-Priority:" "X-Qotd-" "X-RM" "X-Received-Date:" "X-Received:" "X-Request-" "X-SBClass:" "X-SBNote:" "X-SBPass:" "X-SBRule:" "X-SMTP-" "X-Scanned-By" "X-Sender:" "X-Server-Date:" "X-Server-Uuid:" "X-Sieve:" "X-Source" "X-Spam-" "X-SpamBouncer:" "X-Status" "X-Submissions-To:" "X-Telecom-Digest" "X-Trace:" "X-UID" "X-UIDL:" "X-UserInfo1:" "X-VSMLoop:" "X-Vms-To:" "X-WebTV-Signature:" "X-Wss-Id:" "X-Yahoo" "X-eGroups-" "X-pgp:" "X-submission-address:" "X400-" "Xref:") (#$ . 38166))
#@288 *Regexp matching lines in a message header that are not to be shown.
Do not alter this variable directly. Instead, customize
`mh-invisible-header-fields-default' checking for fields normally
hidden that you wish to display, and add extra entries to hide in
`mh-invisible-header-fields'.
(defvar mh-invisible-header-fields-compiled nil (#$ . -40944))
#@257 Make or remake the variable `mh-invisible-header-fields-compiled'.
Done using `mh-invisible-header-fields-internal' as input, from which entries
from `mh-invisible-header-fields-default' are removed and entries
from `mh-invisible-header-fields' are added.
(defalias 'mh-invisible-headers #[nil "\n\203) 	\306\306:\203% @\211\n\235\204 \fBA\211\202 \237+\307\310!\203V \203V \306\211\203U @\211	\235\204L \f	BA\211\204> *	\203j \311\312\313	\314\")P\211\202n \306\211)\207" [mh-invisible-header-fields-internal fields mh-invisible-header-fields-default #1=#:G2614 x #2=#:G2615 nil boundp mh-invisible-header-fields "^" 1000 regexp-opt t #3=#:--dolist-temp--2616 max-specpdl-size mh-invisible-header-fields-compiled] 4 (#$ . 41301)])
#@309 *List of hidden header fields.
The header fields listed in this option are hidden, although you can check off
any field that you would like to see. Header fields that you would like to
hide that aren't listed can be added to the `mh-invisible-header-fields'
option.

See also `mh-clean-message-header-flag'.
(custom-declare-variable 'mh-invisible-header-fields-default 'nil '(#$ . -42077) :type `(set ,@(mapcar (lambda (x) `(const ,x)) mh-invisible-header-fields-internal)) :set (lambda (symbol value) (set-default symbol value) (mh-invisible-headers)) :group 'mh-show)
#@424 *Additional header fields to hide.
Header fields that you would like to hide that aren't listed in
`mh-invisible-header-fields-default' can be added to this option with a couple
of caveats. Regular expressions are not allowed. Unique fields should have a
`:' suffix; otherwise, the element can be used to render invisible an entire
class of fields that start with the same prefix.

See also `mh-clean-message-header-flag'.
(custom-declare-variable 'mh-invisible-header-fields 'nil '(#$ . -42654) :type '(repeat (string :tag "Header field")) :set (lambda (symbol value) (set-default symbol value) (mh-invisible-headers)) :group 'mh-show)
#@283 *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 formatted
message text is piped to this command when you type \<mh-folder-mode-map>`\[mh-print-msg]'.
(custom-declare-variable 'mh-lpr-command-format '"lpr -J '%s'" '(#$ . -43298) :type 'string :group 'mh-show)
#@157 *Maximum inline image height if Content-Disposition is not present.
If nil, image will be displayed if its height is smaller than the height of
the window.
(custom-declare-variable 'mh-max-inline-image-height 'nil '(#$ . -43696) :type '(choice (const nil) integer) :group 'mh-show)
#@154 *Maximum inline image width if Content-Disposition is not present.
If nil, image will be displayed if its width is smaller than the width of the
window.
(custom-declare-variable 'mh-max-inline-image-width 'nil '(#$ . -43985) :type '(choice (const nil) integer) :group 'mh-show)
#@150 Default directory to use for `mh-mime-save-parts'.
If nil, prompt and set for next time the command is used during same session.
If t, prompt always
(custom-declare-variable 'mh-mime-save-parts-default-directory 't '(#$ . 44270) :type '(choice (const :tag "Prompt the first time" nil) (const :tag "Prompt always" t) directory) :group 'mh-show)
#@167 *Non-nil means messages should be printed in the background.
WARNING: do not delete the messages until printing is finished;
otherwise, your output may be truncated.
(custom-declare-variable 'mh-print-background-flag 'nil '(#$ . -44621) :type 'boolean :group 'mh-show)
#@74 *Non-nil means that commands which operate on folders do so recursively.
(custom-declare-variable 'mh-recursive-folders-flag 'nil '(#$ . -44896) :type 'boolean :group 'mh-show)
#@217 *Maximum size of message (in bytes) to display automatically.
Provides an opportunity to skip over large messages which may be slow to load.
Use a value of 0 to display all messages automatically regardless of size.
(custom-declare-variable 'mh-show-maximum-size '0 '(#$ . -45080) :type 'integer :group 'mh-show)
#@241 Non-nil means new folders start in threaded mode.
Threading large number of messages can be time consuming. So if the flag is
non-nil then threading will be done only if the number of messages being
threaded is less than `mh-large-folder'.
(custom-declare-variable 'mh-show-threads-flag 'nil '(#$ . 45400) :type 'boolean :group 'mh-show)
#@84 *Non-nil means highlight URLs and email addresses.
The `goto-addr' module is used.
(custom-declare-variable 'mh-show-use-goto-addr-flag '(and (boundp 'goto-address-highlight-p) goto-address-highlight-p) '(#$ . -45744) :type 'boolean :group 'mh-show)
#@1923 *Non-nil means display face images in `mh-show-mode'.

MH-E can display the content of `Face:', `X-Face:', and `X-Image-URL:' header
fields. If any of these fields occur in the header of your message, the
sender's face will appear in the `From:' header field. If more than one of
these fields appear, then the first field found in the order `Face:',
`X-Face:', and `X-Image-URL:' will be used. Note that versions of GNU Emacs
prior to 21.1 don't support the display of inline images, so face images are
not displayed in these versions.

The option `mh-show-use-xface-flag' is used to turn this feature on and off.
This feature will be turned on by default if your system supports it.

The first header field used, if present, is the Gnus-specific `Face:' field.
The `Face:' field appeared in GNU Emacs 21 and XEmacs. For more information,
see http://quimby.gnus.org/circus/face/. Next is the traditional `X-Face:'
header field. The display of this field requires the `uncompface' program
which can be obtained from
ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.Z. Recent versions of
XEmacs have internal support for `X-Face:' images. If your version of XEmacs
does not, then you'll need both `uncompface' and the x-face package which is
available at ftp://ftp.jpl.org/pub/elisp/.

Finally, MH-E will display images referenced by the `X-Image-URL:' header
field if neither the `Face:' nor the `X-Face:' fields are present. The display
of the images requires `wget' (available from
http://www.gnu.org/software/wget/wget.html), `fetch', or `curl' to fetch the
image and the `convert' program from the ImageMagick suite, available from
http://www.imagemagick.org/. Of the three header fields this is the most
efficient in terms of network usage since the image doesn't need to be
transmitted with every single mail.

The option `mh-fetch-x-image-url' controls the fetching of the `X-Image-URL:'
header field image.
(custom-declare-variable 'mh-show-use-xface-flag '(>= emacs-major-version 21) '(#$ . -46002) :type 'boolean :group 'mh-show)
#@124 *Last directory used by \[mh-store-msg]; default for next store.
A directory name string, or nil to use current directory.
(custom-declare-variable 'mh-store-default-directory 'nil '(#$ . -48056) :type '(choice (const :tag "Current" nil) directory) :group 'mh-show)
#@65 *Number of lines in MH-Folder window (including the mode line).
(custom-declare-variable 'mh-summary-height 'nil '(#$ . -48328) :type '(choice (const :tag "Automatic" nil) (integer :tag "Fixed sized")) :group 'mh-show)
#@407 *Name of format file to be used by mhl to show and print messages.
A value of t means use the default format file.
nil means don't use mhl to format messages when showing; mhl is still used,
with the default format file, to format messages when printing them.
The format used should specify a non-zero value for overflowoffset so
the message continues to conform to RFC 822 and MH-E can parse the headers.
(custom-declare-variable 'mhl-formfile 'nil '(#$ . -48554) :type '(choice (const nil) (const t) string) :group 'mh-show)
(put 'mhl-formfile 'info-file "mh-e")
#@357 The number of messages that indicates a large folder.
If a folder is deemed to be large, that is the number of messages in it exceed
this value, then confirmation is needed when it is visited. Even when
`mh-show-threads-flag' is non-nil, the folder is not automatically threaded, if
it is large. If set to nil all folders are treated as if they are small.
(custom-declare-variable 'mh-large-folder '200 '(#$ . 49126) :type '(choice (const :tag "No limit") integer) :group 'mh-speed)
#@81 Time between calls to flists in seconds.
If 0, flists is not called repeatedly.
(custom-declare-variable 'mh-speed-flists-interval '60 '(#$ . 49615) :type 'integer :group 'mh-speed)
#@319 Non-nil means flists is used.
If non-nil, flists is executed every `mh-speed-flists-interval' seconds to
update the display of the number of unseen and total messages in each folder.
If resources are limited, this can be set to nil and the speedbar display can
be updated manually with the \[mh-speed-flists] command.
(custom-declare-variable 'mh-speed-run-flists-flag 't '(#$ . 49804) :type 'boolean :group 'mh-speed)
#@107 *Function called by the tool-bar search button.
See `mh-search-folder' and `mh-index-search' for details.
(custom-declare-variable 'mh-tool-bar-search-function ''mh-search-folder '(#$ . -50230) :type '(choice (const mh-search-folder) (const mh-index-search) (function :tag "Other function")) :group 'mh-toolbar)
#@86 Interactively call `mh-tool-bar-search-function'.
Optional argument ARG is not used.
(defalias 'mh-tool-bar-search #[(&optional arg) "\301!\207" [mh-tool-bar-search-function call-interactively] 2 (#$ . 50548) "P"])
#@39 Call `mh-customize' from the toolbar.
(defalias 'mh-tool-bar-customize #[nil "\300\301!\207" [mh-customize t] 2 (#$ . 50770) nil])
#@20 Visit "(mh-e)Top".
(defalias 'mh-tool-bar-folder-help #[nil "\300\301!\210\302 \207" [Info-goto-node "(mh-e)Top" delete-other-windows] 2 (#$ . 50907) nil])
#@30 Visit "(mh-e)Draft Editing".
(defalias 'mh-tool-bar-letter-help #[nil "\300\301!\210\302 \207" [Info-goto-node "(mh-e)Draft Editing" delete-other-windows] 2 (#$ . 51069) nil])
#@172 Generate FUNCTION that replies to RECIPIENT.
If FOLDER-BUFFER-FLAG is nil then the function generated
When INCLUDE-FLAG is non-nil, include message body being replied to.
(defalias 'mh-tool-bar-reply-generator '(macro . #[(function recipient folder-buffer-flag) "\303\304\305\306	\"\307\n?\205 \310\311\312	\313BBB\257\207" [function recipient folder-buffer-flag defun (&optional arg) format "Reply to \"%s\".\nWhen ARG is non-nil include message in reply." (interactive "P") (set-buffer mh-show-folder-buffer) mh-reply (mh-get-msg-num nil) (arg)] 10 (#$ . 51252)]))
#@64 Reply to "from".
When ARG is non-nil include message in reply.
(defalias 'mh-tool-bar-reply-from #[(&optional arg) "\301\302\303!\304#\207" [arg mh-reply mh-get-msg-num nil "from"] 4 (#$ . 51828) "P"])
#@64 Reply to "from".
When ARG is non-nil include message in reply.
(defalias 'mh-show-tool-bar-reply-from #[(&optional arg) "q\210\302\303\304!\305	#\207" [mh-show-folder-buffer arg mh-reply mh-get-msg-num nil "from"] 4 (#$ . 52037) "P"])
#@62 Reply to "to".
When ARG is non-nil include message in reply.
(defalias 'mh-tool-bar-reply-to #[(&optional arg) "\301\302\303!\304#\207" [arg mh-reply mh-get-msg-num nil "to"] 4 (#$ . 52279) "P"])
#@62 Reply to "to".
When ARG is non-nil include message in reply.
(defalias 'mh-show-tool-bar-reply-to #[(&optional arg) "q\210\302\303\304!\305	#\207" [mh-show-folder-buffer arg mh-reply mh-get-msg-num nil "to"] 4 (#$ . 52482) "P"])
#@63 Reply to "all".
When ARG is non-nil include message in reply.
(defalias 'mh-tool-bar-reply-all #[(&optional arg) "\301\302\303!\304#\207" [arg mh-reply mh-get-msg-num nil "all"] 4 (#$ . 52718) "P"])
#@63 Reply to "all".
When ARG is non-nil include message in reply.
(defalias 'mh-show-tool-bar-reply-all #[(&optional arg) "q\210\302\303\304!\305	#\207" [mh-show-folder-buffer arg mh-reply mh-get-msg-num nil "all"] 4 (#$ . 52924) "P"])
#@2013 Define a tool bar for MH-E.
DEFAULTS is the list of buttons that are present by default. It is a list of
lists where the sublists are of the following form:

  (:KEYWORD FUNC1 FUNC2 FUNC3 ...)

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

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

  (FUNCTION MODES ICON DOC &optional ENABLE-EXPR)

where,

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

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

  ICON is the icon that is drawn in the button.

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

  Optional item ENABLE-EXPR is an arbitrary lisp expression. If it evaluates
  to nil, then the button is deactivated, otherwise it is active. If is in't
  present then the button is always active.
(defalias 'mh-tool-bar-define '(macro . #[(defaults &rest buttons) "\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211(%@A&BC)'D\306E\211F\203Z F@\211E@\307=\203E EA\202Q E@\310=\203Q EAFA\211F\2042 *G\306H\211I\2031I@\211H<\203\200 HG\311\232\204\206 HG\312\232\204\206 \313\314H\"\210H@J\315J!K\316H8L\306M\317H8N\320\321N\"\203\260 \322\323N\"\202\262 NO\311H8\206\274 \324PHA@Q\306R\306S\325Q>\203\327 \310JDR\326Q>\204\345 \327Q>\2033\330\326Q>\203\361 \307\202\362 \331JDR\"R\320\332K\"\203\333\334\322\323K\"P!\202JS\330\326Q>\203\335\202\336\337S!\203+S\202-JDR\"RR\211R\203&R@TR\211EA@)U\315T!\323\306OVT\335=\203^\301\202uT\336=\203i\301\202uT\310=\203t\300\202u\302WT\310=\203\202\340\202\203\341X\333\342V\343KR!Y\333V\344P!ZT\310=\203\243\345\202\272T\335=\203\256\346\202\272T\336=\203\271\346\202\272\347\211[\345=\203\306\350\202\316[\347=\205\316\351\\\352W\353MU\324N$\"\210\352Z\354\355\356JDXE\357\360L\356UD\356YD\361O\362\356PD\257	E\"\210\352[J\"\210\\\203\352\\O\"\210.	R\211EAA)\211R\204;.IA\211I\204f *'\237'%\237%&\237&(\237()\237)\n\237	\237\237\f\306E\211]\203y]@\211E'>\204p\313\363E\"\210]A\211]\204^*\306E\211^\203\237^@\211E%>\204\226\313\364E\"\210^A\211^\204\204*\365\366\367\370\371\372\373\374\375\376\377\201o \201p \201q \201r \201s \201t \330C\237\201u \"BBE\201q \201v \201s \201w \330A\237\201x \"BBE\201q \201y \201s \201z \330@\237\201{ \"BBE\201q \201| \201s \201} \330B\237\201~ \"BBE\257	\375\201 \201\200 \201\201 \201\202 \201q \201\203 \201s \201\204 \330\237\201\205 \"BBE\257E\201\206 \201\207 \201\210 \356'_\306H\n`\306+\306a_:\203|_@H`:\203|`@+H+BaBa_A_`A`\202Oa\237-DE\201\207 \201\211 \356&b\306H	c\306+\306db:\203\306b@Hc:\203\306c@+H+BdBdbAbcAc\202\231d\237-DE\201\207 \201\212 \356%e\306Hf\306+\306ge:\203e@Hf:\203f@+H+BgBgeAefAf\202\343g\237-DE\201\213 BBBB\201\214 \201\215 \356\201X \201\216 \201\217 \f\"BD\201\220 \201\221 \201\222 \201\223 \201\224 \201\225 \356\201\226 'h\306E)i\306j\306kh:\203\213h@Ei:\203\213i@j\201\227 \201\230 jEFkBkhAhiAi\202Xk\237-BD\257\n\201\214 \201\231 \356\201X \201\216 \201\232 \"BD\201\233 \201\221 \201\234 \201\223 \201\235 \201\225 \356\201\226 %l\306E(m\306j\306nl:\203l@Em:\203m@j\201\227 \201\230 jEFnBnlAlmAm\202\316n\237-BD\257\n\257.\207" [letter-vectors show-vectors folder-vectors letter-defaults folder-defaults letter-button-setter nil :folder :letter 4 5 error "Incorrect MH-E tool-bar button specification: %s" symbol-name 2 3 string-match "\\(.*\\)\n" match-string 1 t letter folder sequence append :sequence "^mh-\\(.*\\)$" intern "mh-show-" :show :show-seq fboundp mh-tool-bar-letter-buttons mh-tool-bar-folder-buttons "mh-" "toolbar-" "-button-setter" letter-buttons show-buttons folder-buttons letter-docs folder-docs add-to-list vector when member quote mh-funcall-if-exists tool-bar-add-item :help :enable "Folder defaults contains unknown button '%s'" "Letter defaults contains unknown button '%s'" eval-when (compile load eval) (defvar mh-folder-tool-bar-map nil) (defvar mh-folder-seq-tool-bar-map nil) (defvar mh-show-tool-bar-map nil) (defvar mh-show-seq-tool-bar-map nil) (defvar mh-letter-tool-bar-map nil) mh-do-in-gnu-emacs defun mh-tool-bar-folder-buttons-set (symbol value) show-seq-button-setter show-button-setter sequence-button-setter folder-button-setter defaults x #1=#:--dolist-temp--2617 buttons button #2=#:--dolist-temp--2618 name name-str icon xemacs-icon full-doc doc enable-expr modes functions show-sym type function type1 vector-list list key setter mbuttons docs #3=#:--dolist-temp--2619 #4=#:--dolist-temp--2620 #5=#:G2621 #6=#:G2622 #7=#:G2623 #8=#:G2624 #9=#:G2625 #10=#:G2626 #11=#:G2627 #12=#:G2628 #13=#:G2629 #14=#:G2630 #15=#:G2631 y #16=#:G2632 #17=#:G2633 #18=#:G2634 #19=#:G2635 "Construct toolbar for `mh-folder-mode' and `mh-show-mode'." (set-default symbol value) setq mh-folder-tool-bar-map let ((tool-bar-map (make-sparse-keymap))) (tool-bar-map) mh-show-tool-bar-map ((tool-bar-map (make-sparse-keymap))) (tool-bar-map) mh-show-seq-tool-bar-map ((tool-bar-map (copy-keymap mh-show-tool-bar-map))) (tool-bar-map) mh-folder-seq-tool-bar-map ((tool-bar-map (copy-keymap mh-folder-tool-bar-map))) (tool-bar-map) mh-tool-bar-letter-buttons-set (symbol value) "Construct toolbar for `mh-letter-mode'." (set-default symbol value) mh-letter-tool-bar-map ((tool-bar-map (make-sparse-keymap))) (tool-bar-map) mh-do-in-xemacs defvar mh-toolbar-folder-vector-map mh-toolbar-show-vector-map mh-toolbar-letter-vector-map ((defvar mh-toolbar-folder-buttons nil) (defvar mh-toolbar-show-buttons nil) (defvar mh-toolbar-letter-buttons nil) (defun mh-tool-bar-letter-buttons-set (symbol value) (set-default symbol value) (when mh-xemacs-has-toolbar-flag (setq mh-toolbar-letter-buttons (loop for b in value collect (cdr (assoc b mh-toolbar-letter-vector-map)))))) (defun mh-tool-bar-folder-buttons-set (symbol value) (set-default symbol value) (when mh-xemacs-has-toolbar-flag (setq mh-toolbar-folder-buttons (loop for b in value collect (cdr (assoc b mh-toolbar-folder-vector-map)))) (setq mh-toolbar-show-buttons (loop for b in value collect (cdr (assoc b mh-toolbar-show-vector-map)))))) (defun mh-toolbar-init (mode) "Install toolbar in MODE." (let ((toolbar (cond ((eq mode :folder) mh-toolbar-folder-buttons) ((eq mode :letter) mh-toolbar-letter-buttons) ((eq mode :show) mh-toolbar-show-buttons))) (height 37) (width 40) (buffer (current-buffer))) (when (and mh-xemacs-toolbar-position mh-xemacs-use-toolbar-flag mh-xemacs-has-toolbar-flag) (cond ((eq mh-xemacs-toolbar-position 'top) (set-specifier top-toolbar toolbar buffer) (set-specifier top-toolbar-visible-p t) (set-specifier top-toolbar-height height)) ((eq mh-xemacs-toolbar-position 'bottom) (set-specifier bottom-toolbar toolbar buffer) (set-specifier bottom-toolbar-visible-p t) (set-specifier bottom-toolbar-height height)) ((eq mh-xemacs-toolbar-position 'left) (set-specifier left-toolbar toolbar buffer) (set-specifier left-toolbar-visible-p t) (set-specifier left-toolbar-width width)) ((eq mh-xemacs-toolbar-position 'right) (set-specifier right-toolbar toolbar buffer) (set-specifier right-toolbar-visible-p t) (set-specifier right-toolbar-width width)) (t (set-specifier default-toolbar toolbar buffer))))))) custom-declare-variable 'mh-tool-bar-folder-buttons mapcar #[(x) "\301D\207" [x quote] 2] "Choose buttons to include in MH-E folder/show toolbar." :group 'mh-toolbar :set 'mh-tool-bar-folder-buttons-set :type set const :tag 'mh-tool-bar-letter-buttons #[(x) "\301D\207" [x quote] 2] "Choose buttons to include in MH-E letter toolbar." 'mh-toolbar 'mh-tool-bar-letter-buttons-set] 25 (#$ . 53165)]))
(byte-code "\301B\306\301!\204\f \307\302B\306\302!\204 \307\303B\306\303!\204$ \307\304B\306\304!\2040 \307\305B\306\305!\204< \307\307\207" [current-load-list mh-folder-tool-bar-map mh-folder-seq-tool-bar-map mh-show-tool-bar-map mh-show-seq-tool-bar-map mh-letter-tool-bar-map boundp nil] 2)
#@60 Construct toolbar for `mh-folder-mode' and `mh-show-mode'.
(defalias 'mh-tool-bar-folder-buttons-set #[(symbol value) "\306	\"\210\307 \310\235\203 \311\312\310\313\314\315\316\317&\210\320\235\203* \311\321\320\322\314\323\316\317&\210\324\235\203; \311\325\324\326\314\327\316\317&\210\330\235\203L \311\331\330\332\314\333\316\317&\210\334\235\203] \311\335\334\336\314\337\316\317&\210\340\235\203n \311\341\340\342\314\343\316\317&\210\344\235\203 \311\345\344\346\314\347\316\317&\210\350\235\203\220 \311\351\350\352\314\353\316\354&\210\355\235\203\241 \311\356\355\357\314\360\316\361&\210\362\235\203\262 \311\363\362\364\314\365\316\317&\210\366\235\203\303 \311\367\366\370\314\371\316\317&\210\372\235\203\324 \311\373\372\374\314\375\316\317&\210\376\235\203\351 \311\377\376\201B \314\201C \316\317&\210\201D \235\203\311\201E \201D \201F \314\201G \316\317&\210\201H \235\203\311\201I \201H \201J \314\201K \316\317&\210\201L \235\203<\311\201M \201L \201N \314\201O \316\201P &\210\201Q \235\203W\311\201R \201Q \201S \314\201T \316\317&\210\201U \235\203r\311\201V \201U \201W \314\201X \316\317&\210\201Y \235\203\215\311\201Z \201Y \201[ \314\201\\ \316\317&\210\201] \235\203\250\311\201^ \201] \201_ \314\201` \316\317&\210\201a \235\203\303\311\201b \201a \201c \314\201d \316\317&\210\201e \235\203\336\311\201f \201e \201g \314\201h \316\317&\210\201i \235\203\371\311\201j \201i \201k \314\201l \316\317&\210\n)\307 \310\235\203\311\312\201m \201n \314\315\316\317&\210\320\235\203'\311\321\320\201o \314\323\316\317&\210\324\235\203<\311\325\201p \201q \314\327\316\317&\210\330\235\203Q\311\331\201r \201s \314\333\316\317&\210\334\235\203f\311\335\201t \201u \314\337\316\317&\210\340\235\203{\311\341\201v \201w \314\343\316\317&\210\344\235\203\220\311\345\201x \201y \314\347\316\317&\210\350\235\203\245\311\351\201z \201{ \314\353\316\354&\210\355\235\203\272\311\356\201| \201} \314\360\316\361&\210\362\235\203\317\311\363\201~ \201 \314\365\316\317&\210\366\235\203\344\311\367\201\200 \201\201 \314\371\316\317&\210\372\235\203\371\311\373\201\202 \201\203 \314\375\316\317&\210\376\235\203\311\377\201\204 \201\205 \314\201C \316\317&\210\201D \235\203+\311\201E \201\206 \201\207 \314\201G \316\317&\210\201H \235\203F\311\201I \201\210 \201\211 \314\201K \316\317&\210\201L \235\203c\311\201M \201L \201\212 \314\201O \316\201P &\210\201Q \235\203~\311\201R \201\213 \201\214 \314\201T \316\317&\210\201U \235\203\231\311\201V \201\215 \201\216 \314\201X \316\317&\210\201Y \235\203\264\311\201Z \201\217 \201\220 \314\201\\ \316\317&\210\201] \235\203\317\311\201^ \201] \201\221 \314\201` \316\317&\210\201a \235\203\352\311\201b \201\222 \201\223 \314\201d \316\317&\210\201e \235\203\311\201f \201e \201\224 \314\201h \316\317&\210\201i \235\203 \311\201j \201i \201\225 \314\201l \316\317&\210\n)\201\226 !\201\227 \235\203D\311\201\230 \201\231 \201\232 \314\201\233 \316\317&\210\n)@\201\226 \f!\201\227 \235\203i\311\201\230 \201\227 \201\234 \314\201\233 \316\317&\210\n)\211A\207" [symbol value tool-bar-map mh-tool-bar-folder-buttons mh-folder-tool-bar-map mh-show-tool-bar-map set-default make-sparse-keymap mh-inc-folder tool-bar-add-item "mail" mh-foldertoolbar-mh-inc-folder :help "Incorporate new mail in Inbox" :enable t mh-mime-save-parts "attach" mh-foldertoolbar-mh-mime-save-parts "Save MIME parts from this message" mh-previous-undeleted-msg "left_arrow" mh-foldertoolbar-mh-previous-undeleted-msg "Go to the previous undeleted message" mh-page-msg "page-down" mh-foldertoolbar-mh-page-msg "Page the current message forwards" mh-next-undeleted-msg "right_arrow" mh-foldertoolbar-mh-next-undeleted-msg "Go to the next undeleted message" mh-delete-msg "close" mh-foldertoolbar-mh-delete-msg "Mark this message for deletion" mh-refile-msg "refile" mh-foldertoolbar-mh-refile-msg "Refile this message" mh-undo "undo" mh-foldertoolbar-mh-undo "Undo last operation" (mh-outstanding-commands-p) mh-execute-commands "execute" mh-foldertoolbar-mh-execute-commands "Perform moves and deletes" (mh-outstanding-commands-p) mh-toggle-tick "highlight" mh-foldertoolbar-mh-toggle-tick "Toggle tick mark" mh-toggle-showing "show" mh-foldertoolbar-mh-toggle-showing "Toggle showing message" mh-tool-bar-reply-from "reply-from" mh-foldertoolbar-mh-tool-bar-reply-from "Reply to \"from\"" mh-tool-bar-reply-to "reply-to" mh-show-seq-tool-bar-map mh-folder-seq-tool-bar-map mh-foldertoolbar-mh-tool-bar-reply-to "Reply to \"to\"" mh-tool-bar-reply-all "reply-all" mh-foldertoolbar-mh-tool-bar-reply-all "Reply to \"all\"" mh-reply "mail/reply2" mh-foldertoolbar-mh-reply "Reply to this message" mh-alias-grab-from-field "alias" mh-foldertoolbar-mh-alias-grab-from-field "Grab From alias" (and (mh-extract-from-header-value) (not (mh-alias-for-from-p))) mh-send "mail_compose" mh-foldertoolbar-mh-send "Compose new message" mh-rescan-folder "rescan" mh-foldertoolbar-mh-rescan-folder "Rescan this folder" mh-pack-folder "repack" mh-foldertoolbar-mh-pack-folder "Repack this folder" mh-tool-bar-search "search" mh-foldertoolbar-mh-tool-bar-search "Search" mh-visit-folder "fld_open" mh-foldertoolbar-mh-visit-folder "Visit other folder" mh-tool-bar-customize "preferences" mh-foldertoolbar-mh-tool-bar-customize "MH-E Preferences" mh-tool-bar-folder-help "help" mh-foldertoolbar-mh-tool-bar-folder-help "Help! (general help)" mh-show-inc-folder mh-showtoolbar-mh-inc-folder mh-showtoolbar-mh-mime-save-parts mh-show-previous-undeleted-msg mh-showtoolbar-mh-previous-undeleted-msg mh-show-page-msg mh-showtoolbar-mh-page-msg mh-show-next-undeleted-msg mh-showtoolbar-mh-next-undeleted-msg mh-show-delete-msg mh-showtoolbar-mh-delete-msg mh-show-refile-msg mh-showtoolbar-mh-refile-msg mh-show-undo mh-showtoolbar-mh-undo mh-show-execute-commands mh-showtoolbar-mh-execute-commands mh-show-toggle-tick mh-showtoolbar-mh-toggle-tick mh-show-toggle-showing mh-showtoolbar-mh-toggle-showing mh-show-tool-bar-reply-from mh-showtoolbar-mh-tool-bar-reply-from mh-show-tool-bar-reply-to mh-showtoolbar-mh-tool-bar-reply-to mh-show-tool-bar-reply-all mh-showtoolbar-mh-tool-bar-reply-all mh-show-reply mh-showtoolbar-mh-reply mh-showtoolbar-mh-alias-grab-from-field mh-show-send mh-showtoolbar-mh-send mh-show-rescan-folder mh-showtoolbar-mh-rescan-folder mh-show-pack-folder mh-showtoolbar-mh-pack-folder mh-showtoolbar-mh-tool-bar-search mh-show-visit-folder mh-showtoolbar-mh-visit-folder mh-showtoolbar-mh-tool-bar-customize mh-showtoolbar-mh-tool-bar-folder-help copy-keymap mh-widen "widen" mh-show-widen mh-show-seqtoolbar-mh-widen "Widen from the sequence" mh-sequencetoolbar-mh-widen] 8 (#$ . 62468)])
#@41 Construct toolbar for `mh-letter-mode'.
(defalias 'mh-tool-bar-letter-buttons-set #[(symbol value) "\305	\"\210\306 \307\235\203 \310\311\307\312\313\314\315\316&\210\317\235\203* \310\320\317\321\313\322\315\316&\210\323\235\203; \310\324\323\325\313\326\315\316&\210\327\235\203L \310\330\327\331\313\332\315\333&\210\334\235\203] \310\335\334\336\313\337\315\316&\210\340\235\203n \310\341\340\342\313\343\315\316&\210\344\235\203 \310\345\344\346\313\347\315\316&\210\350\235\203\220 \310\351\350\352\313\353\315\316&\210\354\235\203\241 \310\355\354\356\313\357\315\316&\210\360\235\203\262 \310\361\360\362\313\363\315\316&\210\364\235\203\303 \310\365\364\366\313\367\315\316&\210\n)\211\207" [symbol value tool-bar-map mh-tool-bar-letter-buttons mh-letter-tool-bar-map set-default make-sparse-keymap mh-send-letter tool-bar-add-item "mail_send" mh-lettertoolbar-mh-send-letter :help "Send this letter" :enable t mh-compose-insertion "attach" mh-lettertoolbar-mh-compose-insertion "Insert attachment" ispell-message "spell" mh-lettertoolbar-ispell-message "Check spelling" save-buffer "save" mh-lettertoolbar-save-buffer "Save current buffer to its file" (buffer-modified-p) undo "undo" mh-lettertoolbar-undo "Undo last operation" kill-region "cut" mh-lettertoolbar-kill-region "Cut (kill) text in region between mark and current position" menu-bar-kill-ring-save "copy" mh-lettertoolbar-menu-bar-kill-ring-save "Copy text in region between mark and current position" yank "paste" mh-lettertoolbar-yank "Paste (yank) text cut or copied earlier" mh-fully-kill-draft "close" mh-lettertoolbar-mh-fully-kill-draft "Kill this draft" mh-tool-bar-customize "preferences" mh-lettertoolbar-mh-tool-bar-customize "MH-E Preferences" mh-tool-bar-letter-help "help" mh-lettertoolbar-mh-tool-bar-letter-help "Help! (general help)"] 8 (#$ . 69265)])
#@56 Choose buttons to include in MH-E folder/show toolbar.
(custom-declare-variable 'mh-tool-bar-folder-buttons '(list 'mh-inc-folder 'mh-mime-save-parts 'mh-previous-undeleted-msg 'mh-page-msg 'mh-next-undeleted-msg 'mh-delete-msg 'mh-refile-msg 'mh-undo 'mh-execute-commands 'mh-toggle-tick 'mh-reply 'mh-alias-grab-from-field 'mh-send 'mh-rescan-folder 'mh-tool-bar-search 'mh-visit-folder 'mh-tool-bar-customize 'mh-tool-bar-folder-help 'mh-widen) '(#$ . 71140) :group 'mh-toolbar :set 'mh-tool-bar-folder-buttons-set :type '(set (const :tag "Incorporate new mail in Inbox" mh-inc-folder) (const :tag "Save MIME parts from this message" mh-mime-save-parts) (const :tag "Go to the previous undeleted message" mh-previous-undeleted-msg) (const :tag "Page the current message forwards" mh-page-msg) (const :tag "Go to the next undeleted message" mh-next-undeleted-msg) (const :tag "Mark this message for deletion" mh-delete-msg) (const :tag "Refile this message" mh-refile-msg) (const :tag "Undo last operation" mh-undo) (const :tag "Perform moves and deletes" mh-execute-commands) (const :tag "Toggle tick mark" mh-toggle-tick) (const :tag "Toggle showing message" mh-toggle-showing) (const :tag "Reply to \"from\"" mh-tool-bar-reply-from) (const :tag "Reply to \"to\"" mh-tool-bar-reply-to) (const :tag "Reply to \"all\"" mh-tool-bar-reply-all) (const :tag "Reply to this message" mh-reply) (const :tag "Grab From alias" mh-alias-grab-from-field) (const :tag "Compose new message" mh-send) (const :tag "Rescan this folder" mh-rescan-folder) (const :tag "Repack this folder" mh-pack-folder) (const :tag "Search" mh-tool-bar-search) (const :tag "Visit other folder" mh-visit-folder) (const :tag "MH-E Preferences" mh-tool-bar-customize) (const :tag "Help! (general help)" mh-tool-bar-folder-help) (const :tag "Widen from the sequence" mh-widen)))
#@51 Choose buttons to include in MH-E letter toolbar.
(custom-declare-variable 'mh-tool-bar-letter-buttons '(list 'mh-send-letter 'mh-compose-insertion 'ispell-message 'save-buffer 'undo 'kill-region 'menu-bar-kill-ring-save 'yank 'mh-fully-kill-draft 'mh-tool-bar-customize 'mh-tool-bar-letter-help) '(#$ . 72990) :group 'mh-toolbar :set 'mh-tool-bar-letter-buttons-set :type '(set (const :tag "Send this letter" mh-send-letter) (const :tag "Insert attachment" mh-compose-insertion) (const :tag "Check spelling" ispell-message) (const :tag "Save current buffer to its file" save-buffer) (const :tag "Undo last operation" undo) (const :tag "Cut (kill) text in region between mark and current position" kill-region) (const :tag "Copy text in region between mark and current position" menu-bar-kill-ring-save) (const :tag "Paste (yank) text cut or copied earlier" yank) (const :tag "Kill this draft" mh-fully-kill-draft) (const :tag "MH-E Preferences" mh-tool-bar-customize) (const :tag "Help! (general help)" mh-tool-bar-letter-help)))
#@903 *Hook for modifying a citation just inserted in the mail buffer.
Each hook function can find the citation between point and mark.
And each hook function should leave point and mark around the citation
text as modified.

If this hook is entirely empty (nil), the text of the message is inserted
with `mh-ins-buf-prefix' prefixed to each line.

See also the variable `mh-yank-from-start-of-msg', which controls how
much of the message passed to the hook.

This hook was historically provided to set up supercite.  You may now leave
this nil and set up supercite by setting the variable
`mh-yank-from-start-of-msg' to 'supercite or, for more automatic insertion,
to 'autosupercite.

The hook 'trivial-cite is NOT part of Emacs.  It is provided from tc.el,
available here:
 http://shasta.cs.uiuc.edu/~lrclause/tc.html
If you use it, customize `mh-yank-from-start-of-msg' to
 "Entire message with headers".
(custom-declare-variable 'mail-citation-hook 'nil '(#$ . -74028) :type 'hook :options '(trivial-cite) :group 'mh-hooks :group 'mh-letter)
#@55 Invoked by `mh-alias-reload' after reloading aliases.
(custom-declare-variable 'mh-alias-reloaded-hook 'nil '(#$ . 75074) :type 'hook :group 'mh-hooks :group 'mh-alias)
#@93 Invoked by \<mh-folder-mode-map>`\[mh-quit]' before quitting MH-E.
See also `mh-quit-hook'.
(custom-declare-variable 'mh-before-quit-hook 'nil '(#$ . 75249) :type 'hook :group 'mh-hooks :group 'mh-show)
#@81 Invoked at the beginning of the \<mh-letter-mode-map>\[mh-send-letter] command.
(custom-declare-variable 'mh-before-send-letter-hook 'nil '(#$ . 75458) :type 'hook :group 'mh-hooks :group 'mh-letter)
#@50 Invoked after marking each message for deletion.
(custom-declare-variable 'mh-delete-msg-hook 'nil '(#$ . 75664) :type 'hook :group 'mh-hooks :group 'mh-show)
#@73 Invoked on the formatted letter by \<mh-letter-mode-map>\[mh-edit-mhn].
(custom-declare-variable 'mh-edit-mhn-hook 'nil '(#$ . 75829) :type 'hook :group 'mh-hooks :group 'mh-letter)
#@64 Invoked by `mh-find-path' after reading the user's MH profile.
(custom-declare-variable 'mh-find-path-hook 'nil '(#$ . 76017) :type 'hook :group 'mh-hooks :group 'mh-show)
#@46 Invoked in `mh-folder-mode' on a new folder.
(custom-declare-variable 'mh-folder-mode-hook 'nil '(#$ . 76195) :type 'hook :group 'mh-hooks :group 'mh-show)
#@255 Invoked when the folder actions (such as moves and deletes) are performed.
Variables that are useful in this hook include `mh-delete-list' and
`mh-refile-list' which can be used to see which changes are being made to
current folder, `mh-current-folder'.
(custom-declare-variable 'mh-folder-updated-hook 'nil '(#$ . 76358) :type 'hook :group 'mh-hooks)
#@72 Invoked on the forwarded letter by \<mh-folder-mode-map>\[mh-forward].
(custom-declare-variable 'mh-forward-hook 'nil '(#$ . 76716) :type 'hook :group 'mh-hooks :group 'mh-folder)
#@92 Invoked by \<mh-folder-mode-map>`\[mh-inc-folder]' after incorporating mail into a folder.
(custom-declare-variable 'mh-inc-folder-hook 'nil '(#$ . 76902) :type 'hook :group 'mh-hooks :group 'mh-inc)
#@623 Invoked at the beginning of the  \<mh-folder-mode-map>`\[mh-kill-folder]' command.
This hook is a list of functions to be called, with no arguments, which should
return a value of non-nil if you should not be asked if you're sure that you
want to remove the folder. This is useful for folders that are easily
regenerated.

The default value of `mh-index-p' suppresses the prompt on folders generated
by an index search.

WARNING: Use this hook with care. If there is a bug in your hook which returns
t on +inbox and you hit \<mh-folder-mode-map>`\[mh-kill-folder]' by accident
in the +inbox buffer, you will not be happy.
(custom-declare-variable 'mh-kill-folder-suppress-prompt-hook ''(mh-index-p) '(#$ . 77109) :type 'hook :group 'mh-hooks :group 'mh-show)
#@169 Invoked after signature has been inserted.
This hook may access the actual name of the file or the function used to
insert the signature with `mh-signature-file-name'.
(custom-declare-variable 'mh-letter-insert-signature-hook 'nil '(#$ . 77875) :type 'hook :group 'mh-hooks :group 'mh-letter)
#@46 Invoked in `mh-letter-mode' on a new letter.
(custom-declare-variable 'mh-letter-mode-hook 'nil '(#$ . 78174) :type 'hook :group 'mh-hooks :group 'mh-sending-mail)
#@39 Invoked upon entry to `mh-pick-mode'.
(custom-declare-variable 'mh-pick-mode-hook 'nil '(#$ . 78344) :type 'hook :group 'mh-hooks :group 'mh-index)
#@93 Invoked after \<mh-folder-mode-map>`\[mh-quit]' quits MH-E.
See also `mh-before-quit-hook'.
(custom-declare-variable 'mh-quit-hook 'nil '(#$ . 78498) :type 'hook :group 'mh-hooks :group 'mh-show)
#@50 Invoked after marking each message for refiling.
(custom-declare-variable 'mh-refile-msg-hook 'nil '(#$ . 78700) :type 'hook :group 'mh-hooks :group 'mh-show)
#@66 Invoked after \<mh-folder-mode-map>`\[mh-show]' shows a message.
(custom-declare-variable 'mh-show-hook 'nil '(#$ . 78865) :type 'hook :group 'mh-hooks :group 'mh-show)
#@39 Invoked upon entry to `mh-show-mode'.
(custom-declare-variable 'mh-show-mode-hook 'nil '(#$ . 79040) :type 'hook :group 'mh-hooks :group 'mh-show)
#@172 Invoked after the unseen sequence has been updated.
The variable `mh-seen-list' can be used to obtain the list of messages which
will be removed from the unseen sequence.
(custom-declare-variable 'mh-unseen-updated-hook 'nil '(#$ . 79194) :type 'hook :group 'mh-hooks :group 'mh-show)
#@55 Face for highlighting body text in MH-Folder buffers.
(defvar mh-folder-body-face 'mh-folder-body-face (#$ . 79485))
(custom-declare-face 'mh-folder-body-face '((((type tty) (class color)) (:foreground "green")) (((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) (((class color) (background light)) (:foreground "RosyBrown")) (((class color) (background dark)) (:foreground "LightSalmon")) (t (:italic t))) "Face for highlighting body text in MH-Folder buffers." :group 'mh-folder-faces)
#@57 Face for the current message line in MH-Folder buffers.
(defvar mh-folder-cur-msg-face 'mh-folder-cur-msg-face (#$ . 80079))
(custom-declare-face 'mh-folder-cur-msg-face '((((type tty pc) (class color)) (:background "LightGreen")) (((class color) (background light)) (:background "LightGreen")) (((class color) (background dark)) (:background "DarkOliveGreen4")) (t (:underline t))) "Face for the current message line in MH-Folder buffers." :group 'mh-folder-faces)
#@65 Face for highlighting the current message in MH-Folder buffers.
(defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number-face (#$ . 80551))
(custom-declare-face 'mh-folder-cur-msg-number-face '((((type tty) (class color)) (:foreground "cyan" :weight bold)) (((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "Purple")) (((class color) (background dark)) (:foreground "Cyan")) (t (:bold t))) "Face for highlighting the current message in MH-Folder buffers." :group 'mh-folder-faces)
#@54 Face for highlighting the date in MH-Folder buffers.
(defvar mh-folder-date-face 'mh-folder-date-face (#$ . 81191))
(custom-declare-face 'mh-folder-date-face '((((class color) (background light)) (:foreground "snow4")) (((class color) (background dark)) (:foreground "snow3")) (t (:bold t))) "Face for highlighting the date in MH-Folder buffers." :group 'mh-folder-faces)
#@73 Face for highlighting Re: (followup) subject text in MH-Folder buffers.
(defvar mh-folder-followup-face 'mh-folder-followup-face (#$ . 81569))
(custom-declare-face 'mh-folder-followup-face '((((class color) (background light)) (:foreground "blue3")) (((class color) (background dark)) (:foreground "LightGoldenRod")) (t (:bold t))) "Face for highlighting Re: (followup) subject text in MH-Folder buffers." :group 'mh-folder-faces)
#@64 Face for highlighting the message number in MH-Folder buffers.
(defvar mh-folder-msg-number-face 'mh-folder-msg-number-face (#$ . 82006))
(custom-declare-face 'mh-folder-msg-number-face '((((class color) (background light)) (:foreground "snow4")) (((class color) (background dark)) (:foreground "snow3")) (t (:bold t))) "Face for highlighting the message number in MH-Folder buffers." :group 'mh-folder-faces)
#@62 Face for highlighting deleted messages in MH-Folder buffers.
(defvar mh-folder-deleted-face 'mh-folder-deleted-face (#$ . 82422))
(copy-face 'mh-folder-msg-number-face 'mh-folder-deleted-face)
#@62 Face for highlighting refiled messages in MH-Folder buffers.
(defvar mh-folder-refiled-face 'mh-folder-refiled-face (#$ . 82621))
(custom-declare-face 'mh-folder-refiled-face '((((type tty) (class color)) (:foreground "yellow" :weight light)) (((class grayscale) (background light)) (:foreground "Gray90" :bold t :italic t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t :italic t)) (((class color) (background light)) (:foreground "DarkGoldenrod")) (((class color) (background dark)) (:foreground "LightGoldenrod")) (t (:bold t :italic t))) "Face for highlighting refiled messages in MH-Folder buffers." :group 'mh-folder-faces)
#@58 Face for highlighting subject text in MH-Folder buffers.
(defvar mh-folder-subject-face 'mh-folder-subject-face (#$ . 83281))
(byte-code "\300\301!\203 \302\301\303\"\210\304\305\306\307\310\311%\210\304\312\313\314\310\311%\207" [boundp facemenu-unlisted-faces add-to-list "^mh-folder" custom-declare-face mh-folder-subject-face ((((class color) (background light)) (:foreground "blue4")) (((class color) (background dark)) (:foreground "yellow")) (t (:bold t))) "Face for highlighting subject text in MH-Folder buffers." :group mh-folder-faces mh-folder-tick-face ((((class color) (background dark)) (:background "#dddf7e")) (((class color) (background light)) (:background "#dddf7e")) (t (:underline t))) "Face used to show ticked messages."] 6)
#@57 Face for highlighting the address in MH-Folder buffers.
(defvar mh-folder-address-face 'mh-folder-address-face (#$ . 84037))
(copy-face 'mh-folder-subject-face 'mh-folder-address-face)
#@77 Face for highlighting `mh-scan-format-regexp' matches in MH-Folder buffers.
(defvar mh-folder-scan-format-face 'mh-folder-scan-format-face (#$ . 84228))
(copy-face 'mh-folder-followup-face 'mh-folder-scan-format-face)
#@60 Face for highlighting the To: string in MH-Folder buffers.
(defvar mh-folder-to-face 'mh-folder-to-face (#$ . 84452))
(custom-declare-face 'mh-folder-to-face '((((type tty) (class color)) (:foreground "green")) (((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) (((class color) (background light)) (:foreground "RosyBrown")) (((class color) (background dark)) (:foreground "LightSalmon")) (t (:italic t))) "Face for highlighting the To: string in MH-Folder buffers." :group 'mh-folder-faces)
#@52 Face for highlighting folders in MH-Index buffers.
(defvar mh-index-folder-face 'mh-index-folder-face (#$ . 85050))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\311%\207" [custom-declare-face mh-index-folder-face ((((class color) (background light)) (:foreground "dark green" :bold t)) (((class color) (background dark)) (:foreground "indian red" :bold t)) (t (:bold t))) "Face for highlighting folders in MH-Index buffers." :group mh-index-faces mh-letter-header-field-face ((((class color) (background light)) (:background "gray90")) (((class color) (background dark)) (:background "gray10")) (t (:bold t))) "Face for displaying header fields in draft buffers." mh-letter-faces] 6)
#@41 Face for highlighting cc header fields.
(defvar mh-show-cc-face 'mh-show-cc-face (#$ . 85757))
(custom-declare-face 'mh-show-cc-face '((((type tty) (class color)) (:foreground "yellow" :weight light)) (((class grayscale) (background light)) (:foreground "Gray90" :bold t :italic t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t :italic t)) (((class color) (background light)) (:foreground "DarkGoldenrod")) (((class color) (background dark)) (:foreground "LightGoldenrod")) (t (:bold t :italic t))) "Face for highlighting cc header fields." :group 'mh-show-faces)
#@46 Face for highlighting the Date header field.
(defvar mh-show-date-face 'mh-show-date-face (#$ . 86352))
(custom-declare-face 'mh-show-date-face '((((type tty) (class color)) (:foreground "green")) (((class grayscale) (background light)) (:foreground "Gray90" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "ForestGreen")) (((class color) (background dark)) (:foreground "PaleGreen")) (t (:bold t :underline t))) "Face for highlighting the Date header field." :group 'mh-show-faces)
#@53 Face used to deemphasize unspecified header fields.
(defvar mh-show-header-face 'mh-show-header-face (#$ . 86924))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face mh-show-header-face ((((type tty) (class color)) (:foreground "green")) (((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) (((class color) (background light)) (:foreground "RosyBrown")) (((class color) (background dark)) (:foreground "LightSalmon")) (t (:italic t))) "Face used to deemphasize unspecified header fields." :group mh-show-faces mh-show-signature-face ((t (:italic t))) "Face for highlighting message signature."] 6)
#@45 Face for highlighting the To: header field.
(defvar mh-show-to-face 'mh-show-to-face (#$ . 87668))
(byte-code "\300\301!\203 \302\301\303\"\210\304\305\306\307\310\311%\207" [boundp facemenu-unlisted-faces add-to-list "^mh-show" custom-declare-face mh-show-to-face ((((class grayscale) (background light)) (:foreground "DimGray" :underline t)) (((class grayscale) (background dark)) (:foreground "LightGray" :underline t)) (((class color) (background light)) (:foreground "SaddleBrown")) (((class color) (background dark)) (:foreground "burlywood")) (t (:underline t))) "Face for highlighting the To: header field." :group mh-show-faces] 6)
#@47 Face for highlighting the From: header field.
(defvar mh-show-from-face 'mh-show-from-face (#$ . 88316))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face mh-show-from-face ((((class color) (background light)) (:foreground "red3")) (((class color) (background dark)) (:foreground "cyan")) (t (:bold t))) "Face for highlighting the From: header field." :group mh-show-faces mh-show-xface-face ((t (:foreground "black" :background "white"))) "Face for displaying the X-Face image.\nThe background and foreground is used in the image."] 6)
#@49 Face for highlighting the Subject header field.
(defvar mh-show-subject-face 'mh-show-subject-face (#$ . 88902))
(byte-code "\300\301\302\"\210\303\304\305\306\307\310%\210\303\311\312\313\307\310%\210\303\314\315\316\307\310%\210\303\317\320\321\307\310%\207" [copy-face mh-folder-subject-face mh-show-subject-face custom-declare-face mh-speedbar-folder-face ((((class color) (background light)) (:foreground "blue4")) (((class color) (background dark)) (:foreground "light blue"))) "Face used for folders in the speedbar buffer." :group mh-speed-faces mh-speedbar-selected-folder-face ((((class color) (background light)) (:foreground "red" :underline t)) (((class color) (background dark)) (:foreground "red" :underline t)) (t (:underline t))) "Face used for the current folder." mh-speedbar-folder-with-unseen-messages-face ((t (:inherit mh-speedbar-folder-face :bold t))) "Face used for folders in the speedbar buffer which have unread messages." mh-speedbar-selected-folder-with-unseen-messages-face ((t (:inherit mh-speedbar-selected-folder-face :bold t))) "Face used for the current folder when it has unread messages."] 6)