aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/mh-e
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/mh-e')
-rw-r--r--lisp/mh-e/mh-e.el132
1 files changed, 66 insertions, 66 deletions
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 20029f8e0b5..85ed376bc9d 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -719,7 +719,7 @@ keyword, introduced in Emacs 22."
719;;; Variant Support 719;;; Variant Support
720 720
721(defcustom-mh mh-path nil 721(defcustom-mh mh-path nil
722 "*Additional list of directories to search for MH. 722 "Additional list of directories to search for MH.
723See `mh-variant'." 723See `mh-variant'."
724 :group 'mh-e 724 :group 'mh-e
725 :type '(repeat (directory)) 725 :type '(repeat (directory))
@@ -945,7 +945,7 @@ finally GNU mailutils MH."
945 (mh-variants) " or ")))))) 945 (mh-variants) " or "))))))
946 946
947(defcustom-mh mh-variant 'autodetect 947(defcustom-mh mh-variant 'autodetect
948 "*Specifies the variant used by MH-E. 948 "Specifies the variant used by MH-E.
949 949
950The default setting of this option is \"Auto-detect\" which means 950The default setting of this option is \"Auto-detect\" which means
951that MH-E will automatically choose the first of nmh, MH, or GNU 951that MH-E will automatically choose the first of nmh, MH, or GNU
@@ -1174,7 +1174,7 @@ and GNU mailutils."
1174;;; Aliases (:group 'mh-alias) 1174;;; Aliases (:group 'mh-alias)
1175 1175
1176(defcustom-mh mh-alias-completion-ignore-case-flag t 1176(defcustom-mh mh-alias-completion-ignore-case-flag t
1177 "*Non-nil means don't consider case significant in MH alias completion. 1177 "Non-nil means don't consider case significant in MH alias completion.
1178 1178
1179As MH ignores case in the aliases, so too does MH-E. However, you 1179As MH ignores case in the aliases, so too does MH-E. However, you
1180may turn off this option to make case significant which can be 1180may turn off this option to make case significant which can be
@@ -1185,7 +1185,7 @@ lowercase for mailing lists and uppercase for people."
1185 :package-version '(MH-E . "7.1")) 1185 :package-version '(MH-E . "7.1"))
1186 1186
1187(defcustom-mh mh-alias-expand-aliases-flag nil 1187(defcustom-mh mh-alias-expand-aliases-flag nil
1188 "*Non-nil means to expand aliases entered in the minibuffer. 1188 "Non-nil means to expand aliases entered in the minibuffer.
1189 1189
1190In other words, aliases entered in the minibuffer will be 1190In other words, aliases entered in the minibuffer will be
1191expanded to the full address in the message draft. By default, 1191expanded to the full address in the message draft. By default,
@@ -1195,7 +1195,7 @@ this expansion is not performed."
1195 :package-version '(MH-E . "7.1")) 1195 :package-version '(MH-E . "7.1"))
1196 1196
1197(defcustom-mh mh-alias-flash-on-comma t 1197(defcustom-mh mh-alias-flash-on-comma t
1198 "*Specify whether to flash address or warn on translation. 1198 "Specify whether to flash address or warn on translation.
1199 1199
1200This option controls the behavior when a [comma] is pressed while 1200This option controls the behavior when a [comma] is pressed while
1201entering aliases or addresses. The default setting flashes the 1201entering aliases or addresses. The default setting flashes the
@@ -1208,7 +1208,7 @@ does not display a warning if the alias is not found."
1208 :package-version '(MH-E . "7.1")) 1208 :package-version '(MH-E . "7.1"))
1209 1209
1210(defcustom-mh mh-alias-insert-file nil 1210(defcustom-mh mh-alias-insert-file nil
1211 "*Filename used to store a new MH-E alias. 1211 "Filename used to store a new MH-E alias.
1212 1212
1213The default setting of this option is \"Use Aliasfile Profile 1213The default setting of this option is \"Use Aliasfile Profile
1214Component\". This option can also hold the name of a file or a 1214Component\". This option can also hold the name of a file or a
@@ -1234,7 +1234,7 @@ or \"Bottom\" of your alias file might be more appropriate."
1234 :package-version '(MH-E . "7.1")) 1234 :package-version '(MH-E . "7.1"))
1235 1235
1236(defcustom-mh mh-alias-local-users t 1236(defcustom-mh mh-alias-local-users t
1237 "*Non-nil means local users are added to alias completion. 1237 "Non-nil means local users are added to alias completion.
1238 1238
1239Aliases are created from \"/etc/passwd\" entries with a user ID 1239Aliases are created from \"/etc/passwd\" entries with a user ID
1240larger than a magical number, typically 200. This can be a handy 1240larger than a magical number, typically 200. This can be a handy
@@ -1255,7 +1255,7 @@ NIS password file."
1255 :package-version '(MH-E . "7.1")) 1255 :package-version '(MH-E . "7.1"))
1256 1256
1257(defcustom-mh mh-alias-local-users-prefix "local." 1257(defcustom-mh mh-alias-local-users-prefix "local."
1258 "*String prefixed to the real names of users from the password file. 1258 "String prefixed to the real names of users from the password file.
1259This option can also be set to \"Use Login\". 1259This option can also be set to \"Use Login\".
1260 1260
1261For example, consider the following password file entry: 1261For example, consider the following password file entry:
@@ -1277,7 +1277,7 @@ turned off."
1277 :package-version '(MH-E . "7.4")) 1277 :package-version '(MH-E . "7.4"))
1278 1278
1279(defcustom-mh mh-alias-passwd-gecos-comma-separator-flag t 1279(defcustom-mh mh-alias-passwd-gecos-comma-separator-flag t
1280 "*Non-nil means the gecos field in the password file uses a comma separator. 1280 "Non-nil means the gecos field in the password file uses a comma separator.
1281 1281
1282In the example in `mh-alias-local-users-prefix', commas are used 1282In the example in `mh-alias-local-users-prefix', commas are used
1283to separate different values within the so-called gecos field. 1283to separate different values within the so-called gecos field.
@@ -1333,7 +1333,7 @@ folders are treated as if they are small."
1333 :package-version '(MH-E . "7.0")) 1333 :package-version '(MH-E . "7.0"))
1334 1334
1335(defcustom-mh mh-recenter-summary-flag nil 1335(defcustom-mh mh-recenter-summary-flag nil
1336 "*Non-nil means to recenter the summary window. 1336 "Non-nil means to recenter the summary window.
1337 1337
1338If this option is turned on, recenter the summary window when the 1338If this option is turned on, recenter the summary window when the
1339show window is toggled off." 1339show window is toggled off."
@@ -1342,13 +1342,13 @@ show window is toggled off."
1342 :package-version '(MH-E . "7.0")) 1342 :package-version '(MH-E . "7.0"))
1343 1343
1344(defcustom-mh mh-recursive-folders-flag nil 1344(defcustom-mh mh-recursive-folders-flag nil
1345 "*Non-nil means that commands which operate on folders do so recursively." 1345 "Non-nil means that commands which operate on folders do so recursively."
1346 :type 'boolean 1346 :type 'boolean
1347 :group 'mh-folder 1347 :group 'mh-folder
1348 :package-version '(MH-E . "7.0")) 1348 :package-version '(MH-E . "7.0"))
1349 1349
1350(defcustom-mh mh-sortm-args nil 1350(defcustom-mh mh-sortm-args nil
1351 "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>. 1351 "Additional arguments for \"sortm\"\\<mh-folder-mode-map>.
1352 1352
1353This option is consulted when a prefix argument is used with 1353This option is consulted when a prefix argument is used with
1354\\[mh-sort-folder]. Normally default arguments to \"sortm\" are 1354\\[mh-sort-folder]. Normally default arguments to \"sortm\" are
@@ -1374,7 +1374,7 @@ the default, or an empty string to suppress the default entirely."
1374 :package-version '(MH-E . "8.0")) 1374 :package-version '(MH-E . "8.0"))
1375 1375
1376(defcustom-mh mh-default-folder-list nil 1376(defcustom-mh mh-default-folder-list nil
1377 "*List of addresses and folders. 1377 "List of addresses and folders.
1378 1378
1379The folder name associated with the first address found in this 1379The folder name associated with the first address found in this
1380list is used as the default for `mh-refile-msg' and similar 1380list is used as the default for `mh-refile-msg' and similar
@@ -1392,7 +1392,7 @@ for more information."
1392 :package-version '(MH-E . "7.2")) 1392 :package-version '(MH-E . "7.2"))
1393 1393
1394(defcustom-mh mh-default-folder-must-exist-flag t 1394(defcustom-mh mh-default-folder-must-exist-flag t
1395 "*Non-nil means guessed folder name must exist to be used. 1395 "Non-nil means guessed folder name must exist to be used.
1396 1396
1397If the derived folder does not exist, and this option is on, then 1397If the derived folder does not exist, and this option is on, then
1398the last folder name used is suggested. This is useful if you get 1398the last folder name used is suggested. This is useful if you get
@@ -1406,7 +1406,7 @@ for more information."
1406 :package-version '(MH-E . "7.2")) 1406 :package-version '(MH-E . "7.2"))
1407 1407
1408(defcustom-mh mh-default-folder-prefix "" 1408(defcustom-mh mh-default-folder-prefix ""
1409 "*Prefix used for folder names generated from aliases. 1409 "Prefix used for folder names generated from aliases.
1410The prefix is used to prevent clutter in your mail directory. 1410The prefix is used to prevent clutter in your mail directory.
1411 1411
1412See `mh-prompt-for-refile-folder' and `mh-folder-from-address' 1412See `mh-prompt-for-refile-folder' and `mh-folder-from-address'
@@ -1425,7 +1425,7 @@ Real definition will take effect when mh-identity is loaded."
1425 nil))) 1425 nil)))
1426 1426
1427(defcustom-mh mh-identity-list nil 1427(defcustom-mh mh-identity-list nil
1428 "*List of identities. 1428 "List of identities.
1429 1429
1430To customize this option, click on the \"INS\" button and enter a label 1430To customize this option, click on the \"INS\" button and enter a label
1431such as \"Home\" or \"Work\". Then click on the \"INS\" button with the 1431such as \"Home\" or \"Work\". Then click on the \"INS\" button with the
@@ -1555,7 +1555,7 @@ as the result is undefined."
1555 :package-version '(MH-E . "7.3")) 1555 :package-version '(MH-E . "7.3"))
1556 1556
1557(defcustom-mh mh-auto-fields-prompt-flag t 1557(defcustom-mh mh-auto-fields-prompt-flag t
1558 "*Non-nil means to prompt before sending if fields inserted. 1558 "Non-nil means to prompt before sending if fields inserted.
1559See `mh-auto-fields-list'." 1559See `mh-auto-fields-list'."
1560 :type 'boolean 1560 :type 'boolean
1561 :group 'mh-identity 1561 :group 'mh-identity
@@ -1609,7 +1609,7 @@ containing the VALUE for the field is given."
1609;;; Incorporating Your Mail (:group 'mh-inc) 1609;;; Incorporating Your Mail (:group 'mh-inc)
1610 1610
1611(defcustom-mh mh-inc-prog "inc" 1611(defcustom-mh mh-inc-prog "inc"
1612 "*Program to incorporate new mail into a folder. 1612 "Program to incorporate new mail into a folder.
1613 1613
1614This program generates a one-line summary for each of the new 1614This program generates a one-line summary for each of the new
1615messages. Unless it is an absolute pathname, the file is assumed 1615messages. Unless it is an absolute pathname, the file is assumed
@@ -1628,7 +1628,7 @@ Real definition will take effect when mh-inc is loaded."
1628 nil))) 1628 nil)))
1629 1629
1630(defcustom-mh mh-inc-spool-list nil 1630(defcustom-mh mh-inc-spool-list nil
1631 "*Alternate spool files. 1631 "Alternate spool files.
1632 1632
1633You can use the `mh-inc-spool-list' variable to direct MH-E to 1633You can use the `mh-inc-spool-list' variable to direct MH-E to
1634retrieve mail from arbitrary spool files other than your system 1634retrieve mail from arbitrary spool files other than your system
@@ -1766,13 +1766,13 @@ MH-style directives are preferred."
1766 :package-version '(MH-E . "7.4")) 1766 :package-version '(MH-E . "7.4"))
1767 1767
1768(defcustom-mh mh-compose-space-does-completion-flag nil 1768(defcustom-mh mh-compose-space-does-completion-flag nil
1769 "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header." 1769 "Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header."
1770 :type 'boolean 1770 :type 'boolean
1771 :group 'mh-letter 1771 :group 'mh-letter
1772 :package-version '(MH-E . "7.4")) 1772 :package-version '(MH-E . "7.4"))
1773 1773
1774(defcustom-mh mh-delete-yanked-msg-window-flag nil 1774(defcustom-mh mh-delete-yanked-msg-window-flag nil
1775 "*Non-nil means delete any window displaying the message. 1775 "Non-nil means delete any window displaying the message.
1776 1776
1777This deletes the window containing the original message after 1777This deletes the window containing the original message after
1778yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make 1778yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make
@@ -1782,7 +1782,7 @@ more room on your screen for your reply."
1782 :package-version '(MH-E . "7.0")) 1782 :package-version '(MH-E . "7.0"))
1783 1783
1784(defcustom-mh mh-extract-from-attribution-verb "wrote:" 1784(defcustom-mh mh-extract-from-attribution-verb "wrote:"
1785 "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. 1785 "Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
1786 1786
1787The attribution consists of the sender's name and email address 1787The attribution consists of the sender's name and email address
1788followed by the content of this option. This option can be set to 1788followed by the content of this option. This option can be set to
@@ -1796,7 +1796,7 @@ followed by the content of this option. This option can be set to
1796 :package-version '(MH-E . "7.0")) 1796 :package-version '(MH-E . "7.0"))
1797 1797
1798(defcustom-mh mh-ins-buf-prefix "> " 1798(defcustom-mh mh-ins-buf-prefix "> "
1799 "*String to put before each line of a yanked or inserted message. 1799 "String to put before each line of a yanked or inserted message.
1800 1800
1801The prefix \"> \" is the default setting of this option. I 1801The prefix \"> \" is the default setting of this option. I
1802suggest that you not modify this option since it is used by many 1802suggest that you not modify this option since it is used by many
@@ -1812,7 +1812,7 @@ flavors of `mh-yank-behavior' or you have added a
1812 :package-version '(MH-E . "6.0")) 1812 :package-version '(MH-E . "6.0"))
1813 1813
1814(defcustom-mh mh-letter-complete-function 'ispell-complete-word 1814(defcustom-mh mh-letter-complete-function 'ispell-complete-word
1815 "*Function to call when completing outside of address or folder fields. 1815 "Function to call when completing outside of address or folder fields.
1816 1816
1817In the body of the message, 1817In the body of the message,
1818\\<mh-letter-mode-map>\\[mh-letter-complete] runs this function, 1818\\<mh-letter-mode-map>\\[mh-letter-complete] runs this function,
@@ -1822,7 +1822,7 @@ which is set to \"ispell-complete-word\" by default."
1822 :package-version '(MH-E . "7.1")) 1822 :package-version '(MH-E . "7.1"))
1823 1823
1824(defcustom-mh mh-letter-fill-column 72 1824(defcustom-mh mh-letter-fill-column 72
1825 "*Fill column to use in MH Letter mode. 1825 "Fill column to use in MH Letter mode.
1826 1826
1827By default, this option is 72 to allow others to quote your 1827By default, this option is 72 to allow others to quote your
1828message without line wrapping." 1828message without line wrapping."
@@ -1854,7 +1854,7 @@ you write!"
1854 :package-version '(MH-E . "8.0")) 1854 :package-version '(MH-E . "8.0"))
1855 1855
1856(defcustom-mh mh-signature-file-name "~/.signature" 1856(defcustom-mh mh-signature-file-name "~/.signature"
1857 "*Source of user's signature. 1857 "Source of user's signature.
1858 1858
1859By default, the text of your signature is taken from the file 1859By default, the text of your signature is taken from the file
1860\"~/.signature\". You can read from other sources by changing this 1860\"~/.signature\". You can read from other sources by changing this
@@ -1877,7 +1877,7 @@ The signature is inserted into your message with the command
1877 :package-version '(MH-E . "6.0")) 1877 :package-version '(MH-E . "6.0"))
1878 1878
1879(defcustom-mh mh-signature-separator-flag t 1879(defcustom-mh mh-signature-separator-flag t
1880 "*Non-nil means a signature separator should be inserted. 1880 "Non-nil means a signature separator should be inserted.
1881 1881
1882It is not recommended that you change this option since various 1882It is not recommended that you change this option since various
1883mail user agents, including MH-E, use the separator to present 1883mail user agents, including MH-E, use the separator to present
@@ -1888,7 +1888,7 @@ replying or yanking a letter into a draft."
1888 :package-version '(MH-E . "8.0")) 1888 :package-version '(MH-E . "8.0"))
1889 1889
1890(defcustom-mh mh-x-face-file "~/.face" 1890(defcustom-mh mh-x-face-file "~/.face"
1891 "*File containing face header field to insert in outgoing mail. 1891 "File containing face header field to insert in outgoing mail.
1892 1892
1893If the file starts with either of the strings \"X-Face:\", \"Face:\" 1893If the file starts with either of the strings \"X-Face:\", \"Face:\"
1894or \"X-Image-URL:\" then the contents are added to the message header 1894or \"X-Image-URL:\" then the contents are added to the message header
@@ -1917,7 +1917,7 @@ this option doesn't exist."
1917 :package-version '(MH-E . "7.0")) 1917 :package-version '(MH-E . "7.0"))
1918 1918
1919(defcustom-mh mh-yank-behavior 'attribution 1919(defcustom-mh mh-yank-behavior 'attribution
1920 "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. 1920 "Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
1921 1921
1922To include the entire message, including the entire header, use 1922To include the entire message, including the entire header, use
1923\"Body and Header\". Use \"Body\" to yank just the body without 1923\"Body and Header\". Use \"Body\" to yank just the body without
@@ -1964,7 +1964,7 @@ inserted."
1964;;; Ranges (:group 'mh-ranges) 1964;;; Ranges (:group 'mh-ranges)
1965 1965
1966(defcustom-mh mh-interpret-number-as-range-flag t 1966(defcustom-mh mh-interpret-number-as-range-flag t
1967 "*Non-nil means interpret a number as a range. 1967 "Non-nil means interpret a number as a range.
1968 1968
1969Since one of the most frequent ranges used is \"last:N\", MH-E 1969Since one of the most frequent ranges used is \"last:N\", MH-E
1970will interpret input such as \"200\" as \"last:200\" if this 1970will interpret input such as \"200\" as \"last:200\" if this
@@ -1984,7 +1984,7 @@ Real definition, below, uses variables that aren't defined yet."
1984 (set-default symbol value)))) 1984 (set-default symbol value))))
1985 1985
1986(defcustom-mh mh-adaptive-cmd-note-flag t 1986(defcustom-mh mh-adaptive-cmd-note-flag t
1987 "*Non-nil means that the message number width is determined dynamically. 1987 "Non-nil means that the message number width is determined dynamically.
1988 1988
1989If you've created your own format to handle long message numbers, 1989If you've created your own format to handle long message numbers,
1990you'll be pleased to know you no longer need it since MH-E adapts its 1990you'll be pleased to know you no longer need it since MH-E adapts its
@@ -2052,7 +2052,7 @@ Otherwise, set SYMBOL to VALUE."
2052 (set-default symbol value))) 2052 (set-default symbol value)))
2053 2053
2054(defcustom-mh mh-scan-prog "scan" 2054(defcustom-mh mh-scan-prog "scan"
2055 "*Program used to scan messages. 2055 "Program used to scan messages.
2056 2056
2057The name of the program that generates a listing of one line per 2057The name of the program that generates a listing of one line per
2058message is held in this option. Unless this variable contains an 2058message is held in this option. Unless this variable contains an
@@ -2090,7 +2090,7 @@ MH-E can be found in the documentation of `mh-search'."
2090;;; Sending Mail (:group 'mh-sending-mail) 2090;;; Sending Mail (:group 'mh-sending-mail)
2091 2091
2092(defcustom-mh mh-compose-forward-as-mime-flag t 2092(defcustom-mh mh-compose-forward-as-mime-flag t
2093 "*Non-nil means that messages are forwarded as attachments. 2093 "Non-nil means that messages are forwarded as attachments.
2094 2094
2095By default, this option is on which means that the forwarded 2095By default, this option is on which means that the forwarded
2096messages are included as attachments. If you would prefer to 2096messages are included as attachments. If you would prefer to
@@ -2118,13 +2118,13 @@ fields."
2118 :package-version '(MH-E . "6.0")) 2118 :package-version '(MH-E . "6.0"))
2119 2119
2120(defcustom-mh mh-compose-prompt-flag nil 2120(defcustom-mh mh-compose-prompt-flag nil
2121 "*Non-nil means prompt for header fields when composing a new draft." 2121 "Non-nil means prompt for header fields when composing a new draft."
2122 :type 'boolean 2122 :type 'boolean
2123 :group 'mh-sending-mail 2123 :group 'mh-sending-mail
2124 :package-version '(MH-E . "7.4")) 2124 :package-version '(MH-E . "7.4"))
2125 2125
2126(defcustom-mh mh-forward-subject-format "%s: %s" 2126(defcustom-mh mh-forward-subject-format "%s: %s"
2127 "*Format string for forwarded message subject. 2127 "Format string for forwarded message subject.
2128 2128
2129This option is a string which includes two escapes (\"%s\"). The 2129This option is a string which includes two escapes (\"%s\"). The
2130first \"%s\" is replaced with the sender of the original message, 2130first \"%s\" is replaced with the sender of the original message,
@@ -2134,7 +2134,7 @@ and the second one is replaced with the original \"Subject:\"."
2134 :package-version '(MH-E . "6.0")) 2134 :package-version '(MH-E . "6.0"))
2135 2135
2136(defcustom-mh mh-insert-x-mailer-flag t 2136(defcustom-mh mh-insert-x-mailer-flag t
2137 "*Non-nil means append an \"X-Mailer:\" header field to the header. 2137 "Non-nil means append an \"X-Mailer:\" header field to the header.
2138 2138
2139This header field includes the version of MH-E and Emacs that you 2139This header field includes the version of MH-E and Emacs that you
2140are using. If you don't want to participate in our marketing, you 2140are using. If you don't want to participate in our marketing, you
@@ -2144,7 +2144,7 @@ can turn this option off."
2144 :package-version '(MH-E . "7.0")) 2144 :package-version '(MH-E . "7.0"))
2145 2145
2146(defcustom-mh mh-redist-full-contents-flag nil 2146(defcustom-mh mh-redist-full-contents-flag nil
2147 "*Non-nil means the \"dist\" command needs entire letter for redistribution. 2147 "Non-nil means the \"dist\" command needs entire letter for redistribution.
2148 2148
2149This option must be turned on if \"dist\" requires the whole 2149This option must be turned on if \"dist\" requires the whole
2150letter for redistribution, which is the case if \"send\" is 2150letter for redistribution, which is the case if \"send\" is
@@ -2156,7 +2156,7 @@ has been redistributed before, turn off this option."
2156 :package-version '(MH-E . "8.0")) 2156 :package-version '(MH-E . "8.0"))
2157 2157
2158(defcustom-mh mh-reply-default-reply-to nil 2158(defcustom-mh mh-reply-default-reply-to nil
2159 "*Sets the person or persons to whom a reply will be sent. 2159 "Sets the person or persons to whom a reply will be sent.
2160 2160
2161This option is set to \"Prompt\" by default so that you are 2161This option is set to \"Prompt\" by default so that you are
2162prompted for the recipient of a reply. If you find that most of 2162prompted for the recipient of a reply. If you find that most of
@@ -2172,7 +2172,7 @@ this option to \"cc\". Other choices include \"from\", \"to\", or
2172 :package-version '(MH-E . "6.0")) 2172 :package-version '(MH-E . "6.0"))
2173 2173
2174(defcustom-mh mh-reply-show-message-flag t 2174(defcustom-mh mh-reply-show-message-flag t
2175 "*Non-nil means the MH-Show buffer is displayed when replying. 2175 "Non-nil means the MH-Show buffer is displayed when replying.
2176 2176
2177If you include the message automatically, you can hide the 2177If you include the message automatically, you can hide the
2178MH-Show buffer by turning off this option. 2178MH-Show buffer by turning off this option.
@@ -2189,7 +2189,7 @@ See also `mh-reply'."
2189;; specified by setting `mh-unpropagated-sequences' appropriately." XXX 2189;; specified by setting `mh-unpropagated-sequences' appropriately." XXX
2190 2190
2191(defcustom-mh mh-refile-preserves-sequences-flag t 2191(defcustom-mh mh-refile-preserves-sequences-flag t
2192 "*Non-nil means that sequences are preserved when messages are refiled. 2192 "Non-nil means that sequences are preserved when messages are refiled.
2193 2193
2194If a message is in any sequence (except \"Previous-Sequence:\" 2194If a message is in any sequence (except \"Previous-Sequence:\"
2195and \"cur\") when it is refiled, then it will still be in those 2195and \"cur\") when it is refiled, then it will still be in those
@@ -2212,7 +2212,7 @@ there isn't much advantage to that."
2212 :package-version '(MH-E . "7.3")) 2212 :package-version '(MH-E . "7.3"))
2213 2213
2214(defcustom-mh mh-update-sequences-after-mh-show-flag t 2214(defcustom-mh mh-update-sequences-after-mh-show-flag t
2215 "*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>. 2215 "Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>.
2216 2216
2217Three sequences are maintained internally by MH-E and pushed out 2217Three sequences are maintained internally by MH-E and pushed out
2218to MH when a message is shown. They include the sequence 2218to MH when a message is shown. They include the sequence
@@ -2227,7 +2227,7 @@ commands."
2227 :package-version '(MH-E . "7.0")) 2227 :package-version '(MH-E . "7.0"))
2228 2228
2229(defcustom-mh mh-whitelist-preserves-sequences-flag t 2229(defcustom-mh mh-whitelist-preserves-sequences-flag t
2230 "*Non-nil means that sequences are preserved when messages are whitelisted. 2230 "Non-nil means that sequences are preserved when messages are whitelisted.
2231 2231
2232If a message is in any sequence (except \"Previous-Sequence:\" 2232If a message is in any sequence (except \"Previous-Sequence:\"
2233and \"cur\") when it is whitelisted, then it will still be in 2233and \"cur\") when it is whitelisted, then it will still be in
@@ -2240,7 +2240,7 @@ not desired, then turn off this option."
2240;;; Reading Your Mail (:group 'mh-show) 2240;;; Reading Your Mail (:group 'mh-show)
2241 2241
2242(defcustom-mh mh-bury-show-buffer-flag t 2242(defcustom-mh mh-bury-show-buffer-flag t
2243 "*Non-nil means show buffer is buried. 2243 "Non-nil means show buffer is buried.
2244 2244
2245One advantage of not burying the show buffer is that one can 2245One advantage of not burying the show buffer is that one can
2246delete the show buffer more easily in an electric buffer list 2246delete the show buffer more easily in an electric buffer list
@@ -2251,7 +2251,7 @@ running \\[electric-buffer-list] to see what I mean."
2251 :package-version '(MH-E . "7.0")) 2251 :package-version '(MH-E . "7.0"))
2252 2252
2253(defcustom-mh mh-clean-message-header-flag t 2253(defcustom-mh mh-clean-message-header-flag t
2254 "*Non-nil means remove extraneous header fields. 2254 "Non-nil means remove extraneous header fields.
2255 2255
2256See also `mh-invisible-header-fields-default' and 2256See also `mh-invisible-header-fields-default' and
2257`mh-invisible-header-fields'." 2257`mh-invisible-header-fields'."
@@ -2260,7 +2260,7 @@ See also `mh-invisible-header-fields-default' and
2260 :package-version '(MH-E . "7.0")) 2260 :package-version '(MH-E . "7.0"))
2261 2261
2262(defcustom-mh mh-decode-mime-flag (not (not (locate-library "mm-decode"))) 2262(defcustom-mh mh-decode-mime-flag (not (not (locate-library "mm-decode")))
2263 "*Non-nil means attachments are handled\\<mh-folder-mode-map>. 2263 "Non-nil means attachments are handled\\<mh-folder-mode-map>.
2264 2264
2265MH-E can handle attachments as well if the Gnus `mm-decode' 2265MH-E can handle attachments as well if the Gnus `mm-decode'
2266library is present. If so, this option will be on. Otherwise, 2266library is present. If so, this option will be on. Otherwise,
@@ -2278,7 +2278,7 @@ messages and other graphical widgets. See the options
2278 :package-version '(MH-E . "7.0")) 2278 :package-version '(MH-E . "7.0"))
2279 2279
2280(defcustom-mh mh-display-buttons-for-alternatives-flag nil 2280(defcustom-mh mh-display-buttons-for-alternatives-flag nil
2281 "*Non-nil means display buttons for all alternative attachments. 2281 "Non-nil means display buttons for all alternative attachments.
2282 2282
2283Sometimes, a mail program will produce multiple alternatives of 2283Sometimes, a mail program will produce multiple alternatives of
2284the attachment in increasing degree of faithfulness to the 2284the attachment in increasing degree of faithfulness to the
@@ -2290,7 +2290,7 @@ inline and buttons are shown for each of the other alternatives."
2290 :package-version '(MH-E . "7.4")) 2290 :package-version '(MH-E . "7.4"))
2291 2291
2292(defcustom-mh mh-display-buttons-for-inline-parts-flag nil 2292(defcustom-mh mh-display-buttons-for-inline-parts-flag nil
2293 "*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>. 2293 "Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>.
2294 2294
2295The sender can request that attachments should be viewed inline so 2295The sender can request that attachments should be viewed inline so
2296that they do not really appear like an attachment at all to the 2296that they do not really appear like an attachment at all to the
@@ -2313,7 +2313,7 @@ text (including HTML) and images."
2313 :package-version '(MH-E . "7.0")) 2313 :package-version '(MH-E . "7.0"))
2314 2314
2315(defcustom-mh mh-do-not-confirm-flag nil 2315(defcustom-mh mh-do-not-confirm-flag nil
2316 "*Non-nil means non-reversible commands do not prompt for confirmation. 2316 "Non-nil means non-reversible commands do not prompt for confirmation.
2317 2317
2318Commands such as `mh-pack-folder' prompt to confirm whether to 2318Commands such as `mh-pack-folder' prompt to confirm whether to
2319process outstanding moves and deletes or not before continuing. 2319process outstanding moves and deletes or not before continuing.
@@ -2325,7 +2325,7 @@ retracted--without question."
2325 :package-version '(MH-E . "7.0")) 2325 :package-version '(MH-E . "7.0"))
2326 2326
2327(defcustom-mh mh-fetch-x-image-url nil 2327(defcustom-mh mh-fetch-x-image-url nil
2328 "*Control fetching of \"X-Image-URL:\" header field image. 2328 "Control fetching of \"X-Image-URL:\" header field image.
2329 2329
2330Ths option controls the fetching of the \"X-Image-URL:\" header 2330Ths option controls the fetching of the \"X-Image-URL:\" header
2331field image with the following values: 2331field image with the following values:
@@ -2361,7 +2361,7 @@ turned on."
2361 :package-version '(MH-E . "7.3")) 2361 :package-version '(MH-E . "7.3"))
2362 2362
2363(defcustom-mh mh-graphical-smileys-flag t 2363(defcustom-mh mh-graphical-smileys-flag t
2364 "*Non-nil means graphical smileys are displayed. 2364 "Non-nil means graphical smileys are displayed.
2365 2365
2366It is a long standing custom to inject body language using a 2366It is a long standing custom to inject body language using a
2367cornucopia of punctuation, also known as the \"smileys\". MH-E 2367cornucopia of punctuation, also known as the \"smileys\". MH-E
@@ -2376,7 +2376,7 @@ turned off."
2376 :package-version '(MH-E . "7.0")) 2376 :package-version '(MH-E . "7.0"))
2377 2377
2378(defcustom-mh mh-graphical-emphasis-flag t 2378(defcustom-mh mh-graphical-emphasis-flag t
2379 "*Non-nil means graphical emphasis is displayed. 2379 "Non-nil means graphical emphasis is displayed.
2380 2380
2381A few typesetting features are indicated in ASCII text with 2381A few typesetting features are indicated in ASCII text with
2382certain characters. If your terminal supports it, MH-E can render 2382certain characters. If your terminal supports it, MH-E can render
@@ -2815,7 +2815,7 @@ Because the function `mh-invisible-headers' uses both
2815cannot be run until both variables have been initialized.") 2815cannot be run until both variables have been initialized.")
2816 2816
2817(defcustom-mh mh-invisible-header-fields nil 2817(defcustom-mh mh-invisible-header-fields nil
2818 "*Additional header fields to hide. 2818 "Additional header fields to hide.
2819 2819
2820Header fields that you would like to hide that aren't listed in 2820Header fields that you would like to hide that aren't listed in
2821`mh-invisible-header-fields-default' can be added to this option 2821`mh-invisible-header-fields-default' can be added to this option
@@ -2838,7 +2838,7 @@ See also `mh-clean-message-header-flag'."
2838 :package-version '(MH-E . "7.1")) 2838 :package-version '(MH-E . "7.1"))
2839 2839
2840(defcustom-mh mh-invisible-header-fields-default nil 2840(defcustom-mh mh-invisible-header-fields-default nil
2841 "*List of hidden header fields. 2841 "List of hidden header fields.
2842 2842
2843The header fields listed in this option are hidden, although you 2843The header fields listed in this option are hidden, although you
2844can check off any field that you would like to see. 2844can check off any field that you would like to see.
@@ -2895,7 +2895,7 @@ removed and entries from `mh-invisible-header-fields' are added."
2895(mh-invisible-headers) 2895(mh-invisible-headers)
2896 2896
2897(defcustom-mh mh-lpr-command-format "lpr -J '%s'" 2897(defcustom-mh mh-lpr-command-format "lpr -J '%s'"
2898 "*Command used to print\\<mh-folder-mode-map>. 2898 "Command used to print\\<mh-folder-mode-map>.
2899 2899
2900This option contains the Unix command line which performs the 2900This option contains the Unix command line which performs the
2901actual printing for the \\[mh-print-msg] command. The string can 2901actual printing for the \\[mh-print-msg] command. The string can
@@ -2912,7 +2912,7 @@ This option is not used by the commands \\[mh-ps-print-msg] or
2912 :package-version '(MH-E . "6.0")) 2912 :package-version '(MH-E . "6.0"))
2913 2913
2914(defcustom-mh mh-max-inline-image-height nil 2914(defcustom-mh mh-max-inline-image-height nil
2915 "*Maximum inline image height if \"Content-Disposition:\" is not present. 2915 "Maximum inline image height if \"Content-Disposition:\" is not present.
2916 2916
2917Some older mail programs do not insert this needed plumbing to 2917Some older mail programs do not insert this needed plumbing to
2918tell MH-E whether to display the attachments inline or not. If 2918tell MH-E whether to display the attachments inline or not. If
@@ -2928,7 +2928,7 @@ these numbers."
2928 :package-version '(MH-E . "7.0")) 2928 :package-version '(MH-E . "7.0"))
2929 2929
2930(defcustom-mh mh-max-inline-image-width nil 2930(defcustom-mh mh-max-inline-image-width nil
2931 "*Maximum inline image width if \"Content-Disposition:\" is not present. 2931 "Maximum inline image width if \"Content-Disposition:\" is not present.
2932 2932
2933Some older mail programs do not insert this needed plumbing to 2933Some older mail programs do not insert this needed plumbing to
2934tell MH-E whether to display the attachments inline or not. If 2934tell MH-E whether to display the attachments inline or not. If
@@ -2944,7 +2944,7 @@ these numbers."
2944 :package-version '(MH-E . "7.0")) 2944 :package-version '(MH-E . "7.0"))
2945 2945
2946(defcustom-mh mh-mhl-format-file nil 2946(defcustom-mh mh-mhl-format-file nil
2947 "*Specifies the format file to pass to the \"mhl\" program. 2947 "Specifies the format file to pass to the \"mhl\" program.
2948 2948
2949Normally MH-E takes care of displaying messages itself (rather than 2949Normally MH-E takes care of displaying messages itself (rather than
2950calling an MH program to do the work). If you'd rather have \"mhl\" 2950calling an MH program to do the work). If you'd rather have \"mhl\"
@@ -2984,7 +2984,7 @@ directory's name."
2984 :package-version '(MH-E . "7.0")) 2984 :package-version '(MH-E . "7.0"))
2985 2985
2986(defcustom-mh mh-print-background-flag nil 2986(defcustom-mh mh-print-background-flag nil
2987 "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>. 2987 "Non-nil means messages should be printed in the background\\<mh-folder-mode-map>.
2988 2988
2989Normally messages are printed in the foreground. If this is slow on 2989Normally messages are printed in the foreground. If this is slow on
2990your system, you may elect to turn off this option to print in the 2990your system, you may elect to turn off this option to print in the
@@ -3000,7 +3000,7 @@ This option is not used by the commands \\[mh-ps-print-msg] or
3000 :package-version '(MH-E . "7.0")) 3000 :package-version '(MH-E . "7.0"))
3001 3001
3002(defcustom-mh mh-show-maximum-size 0 3002(defcustom-mh mh-show-maximum-size 0
3003 "*Maximum size of message (in bytes) to display automatically. 3003 "Maximum size of message (in bytes) to display automatically.
3004 3004
3005This option provides an opportunity to skip over large messages 3005This option provides an opportunity to skip over large messages
3006which may be slow to load. The default value of 0 means that all 3006which may be slow to load. The default value of 0 means that all
@@ -3010,7 +3010,7 @@ message are shown regardless of size."
3010 :package-version '(MH-E . "8.0")) 3010 :package-version '(MH-E . "8.0"))
3011 3011
3012(defcustom-mh mh-show-use-xface-flag (>= emacs-major-version 21) 3012(defcustom-mh mh-show-use-xface-flag (>= emacs-major-version 21)
3013 "*Non-nil means display face images in MH-show buffers. 3013 "Non-nil means display face images in MH-show buffers.
3014 3014
3015MH-E can display the content of \"Face:\", \"X-Face:\", and 3015MH-E can display the content of \"Face:\", \"X-Face:\", and
3016\"X-Image-URL:\" header fields. If any of these fields occur in the 3016\"X-Image-URL:\" header fields. If any of these fields occur in the
@@ -3050,7 +3050,7 @@ The option `mh-fetch-x-image-url' controls the fetching of the
3050 :package-version '(MH-E . "7.0")) 3050 :package-version '(MH-E . "7.0"))
3051 3051
3052(defcustom-mh mh-store-default-directory nil 3052(defcustom-mh mh-store-default-directory nil
3053 "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg]. 3053 "Default directory for \\<mh-folder-mode-map>\\[mh-store-msg].
3054 3054
3055If you would like to change the initial default directory, 3055If you would like to change the initial default directory,
3056customize this option, change the value from \"Current\" to 3056customize this option, change the value from \"Current\" to
@@ -3062,7 +3062,7 @@ the content of these messages."
3062 :package-version '(MH-E . "6.0")) 3062 :package-version '(MH-E . "6.0"))
3063 3063
3064(defcustom-mh mh-summary-height nil 3064(defcustom-mh mh-summary-height nil
3065 "*Number of lines in MH-Folder buffer (including the mode line). 3065 "Number of lines in MH-Folder buffer (including the mode line).
3066 3066
3067The default value of this option is \"Automatic\" which means 3067The default value of this option is \"Automatic\" which means
3068that the MH-Folder buffer will maintain the same proportional 3068that the MH-Folder buffer will maintain the same proportional
@@ -3086,7 +3086,7 @@ Set to 0 to disable automatic update."
3086;;; Threading (:group 'mh-thread) 3086;;; Threading (:group 'mh-thread)
3087 3087
3088(defcustom-mh mh-show-threads-flag nil 3088(defcustom-mh mh-show-threads-flag nil
3089 "*Non-nil means new folders start in threaded mode. 3089 "Non-nil means new folders start in threaded mode.
3090 3090
3091Threading large number of messages can be time consuming so this 3091Threading large number of messages can be time consuming so this
3092option is turned off by default. If you turn this option on, then 3092option is turned off by default. If you turn this option on, then
@@ -3102,7 +3102,7 @@ threaded is less than `mh-large-folder'."
3102;; dynamically in mh-tool-bar.el. 3102;; dynamically in mh-tool-bar.el.
3103 3103
3104(defcustom-mh mh-tool-bar-search-function 'mh-search 3104(defcustom-mh mh-tool-bar-search-function 'mh-search
3105 "*Function called by the tool bar search button. 3105 "Function called by the tool bar search button.
3106 3106
3107By default, this is set to `mh-search'. You can also choose 3107By default, this is set to `mh-search'. You can also choose
3108\"Other Function\" from the \"Value Menu\" and enter a function 3108\"Other Function\" from the \"Value Menu\" and enter a function
@@ -3115,7 +3115,7 @@ of your own choosing."
3115;; XEmacs has a couple of extra customizations... 3115;; XEmacs has a couple of extra customizations...
3116(mh-do-in-xemacs 3116(mh-do-in-xemacs
3117 (defcustom-mh mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag 3117 (defcustom-mh mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag
3118 "*If non-nil, use tool bar. 3118 "If non-nil, use tool bar.
3119 3119
3120This option controls whether to show the MH-E icons at all. By 3120This option controls whether to show the MH-E icons at all. By
3121default, this option is turned on if the window system supports 3121default, this option is turned on if the window system supports
@@ -3131,7 +3131,7 @@ won't be able to turn on this option."
3131 :package-version '(MH-E . "7.3")) 3131 :package-version '(MH-E . "7.3"))
3132 3132
3133 (defcustom-mh mh-xemacs-tool-bar-position nil 3133 (defcustom-mh mh-xemacs-tool-bar-position nil
3134 "*Tool bar location. 3134 "Tool bar location.
3135 3135
3136This option controls the placement of the tool bar along the four 3136This option controls the placement of the tool bar along the four
3137edges of the frame. You can choose from one of \"Same As Default 3137edges of the frame. You can choose from one of \"Same As Default