:group 'faces)
(defcustom message-directory "~/Mail/"
- "*Directory from which all other mail file variables are derived."
+ "Directory from which all other mail file variables are derived."
:group 'message-various
:type 'directory)
(defcustom message-max-buffers 10
- "*How many buffers to keep before starting to kill them off."
+ "How many buffers to keep before starting to kill them off."
:group 'message-buffers
:type 'integer)
:type '(choice function (const nil)))
(defcustom message-fcc-handler-function 'message-output
- "*A function called to save outgoing articles.
+ "A function called to save outgoing articles.
This function will be called with the name of the file to store the
article in. The default function is `message-output' which saves in Unix
mailbox format."
(defcustom message-courtesy-message
"The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
- "*This is inserted at the start of a mailed copy of a posted message.
+ "This is inserted at the start of a mailed copy of a posted message.
If the string contains the format spec \"%s\", the Newsgroups
the article has been posted to will be inserted there.
If this variable is nil, no such courtesy message will be added."
(defcustom message-ignored-bounced-headers
"^\\(Received\\|Return-Path\\|Delivered-To\\):"
- "*Regexp that matches headers to be removed in resent bounced mail."
+ "Regexp that matches headers to be removed in resent bounced mail."
:group 'message-interface
:type 'regexp)
(defcustom message-syntax-checks
(if message-insert-canlock '((sender . disabled)) nil)
;; Guess this one shouldn't be easy to customize...
- "*Controls what syntax checks should not be performed on outgoing posts.
+ "Controls what syntax checks should not be performed on outgoing posts.
To disable checking of long signatures, for instance, add
`(signature . disabled)' to this list.
(defcustom message-required-headers '((optional . References)
From)
- "*Headers to be generated or prompted for when sending a message.
+ "Headers to be generated or prompted for when sending a message.
Also see `message-required-news-headers' and
`message-required-mail-headers'."
:version "22.1"
:type '(repeat sexp))
(defcustom message-draft-headers '(References From Date)
- "*Headers to be generated when saving a draft message."
+ "Headers to be generated when saving a draft message."
:version "22.1"
:group 'message-news
:group 'message-headers
'(From Newsgroups Subject Date Message-ID
(optional . Organization)
(optional . User-Agent))
- "*Headers to be generated or prompted for when posting an article.
+ "Headers to be generated or prompted for when posting an article.
RFC977 and RFC1036 require From, Date, Newsgroups, Subject,
Message-ID. Organization, Lines, In-Reply-To, Expires, and
User-Agent are optional. If you don't want message to insert some
(defcustom message-required-mail-headers
'(From Subject Date (optional . In-Reply-To) Message-ID
(optional . User-Agent))
- "*Headers to be generated or prompted for when mailing a message.
+ "Headers to be generated or prompted for when mailing a message.
It is recommended that From, Date, To, Subject and Message-ID be
included. Organization and User-Agent are optional."
:group 'message-mail
(defcustom message-ignored-news-headers
"^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:\\|^X-Message-SMTP-Method:\\|^X-Gnus-Delayed:"
- "*Regexp of headers to be removed unconditionally before posting."
+ "Regexp of headers to be removed unconditionally before posting."
:group 'message-news
:group 'message-headers
:link '(custom-manual "(message)Message Headers")
(defcustom message-ignored-mail-headers
"^\\([GF]cc\\|Resent-Fcc\\|Xref\\|X-Draft-From\\|X-Gnus-Agent-Meta-Information\\):"
- "*Regexp of headers to be removed unconditionally before mailing."
+ "Regexp of headers to be removed unconditionally before mailing."
:group 'message-mail
:group 'message-headers
:link '(custom-manual "(message)Mail Headers")
:type 'regexp)
(defcustom message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-ID:\\|^X-Complaints-To:\\|Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|^X-Complaints-To:\\|^Cancel-Lock:\\|^Cancel-Key:\\|^X-Hashcash:\\|^X-Payment:\\|^Approved:\\|^Injection-Date:\\|^Injection-Info:"
- "*Header lines matching this regexp will be deleted before posting.
+ "Header lines matching this regexp will be deleted before posting.
It's best to delete old Path and Date headers before posting to avoid
any confusion."
:group 'message-interface
(defcustom message-subject-re-regexp
"^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)* ?:[ \t]*\\)*[ \t]*"
- "*Regexp matching \"Re: \" in the subject line."
+ "Regexp matching \"Re: \" in the subject line."
:group 'message-various
:link '(custom-manual "(message)Message Headers")
:type 'regexp)
;;; Start of variables adopted from `message-utils.el'.
(defcustom message-subject-trailing-was-query t
- "
*What to do with trailing \"(was: <old subject>)\" in subject lines.
+ "What to do with trailing \"(was: <old subject>)\" in subject lines.
If nil, leave the subject unchanged. If it is the symbol `ask', query
the user what do do. In this case, the subject is matched against
`message-subject-trailing-was-ask-regexp'. If
(defcustom message-subject-trailing-was-ask-regexp
"[ \t]*\\([[(]+[Ww][Aa][Ss]:?[ \t]*.*[])]+\\)"
- "
*Regexp matching \"(was: <old subject>)\" in the subject line.
+ "Regexp matching \"(was: <old subject>)\" in the subject line.
The function `message-strip-subject-trailing-was' uses this regexp if
`message-subject-trailing-was-query' is set to the symbol `ask'. If
(defcustom message-subject-trailing-was-regexp
"[ \t]*\\((*[Ww][Aa][Ss]:[ \t]*.*)\\)"
- "
*Regexp matching \"(was: <old subject>)\" in the subject line.
+ "Regexp matching \"(was: <old subject>)\" in the subject line.
If `message-subject-trailing-was-query' is set to t, the subject is
matched against `message-subject-trailing-was-regexp' in
:group 'message-various)
(defcustom message-elide-ellipsis "\n[...]\n\n"
- "*The string which is inserted for elided text.
+ "The string which is inserted for elided text.
This is a format-spec string, and you can use %l to say how many
lines were removed, and %c to say how many characters were
removed."
:type 'boolean)
(defcustom message-generate-new-buffers 'unsent
- "*Say whether to create a new message buffer to compose a message.
+ "Say whether to create a new message buffer to compose a message.
Valid values include:
nil
(function :format "\n %{%t%}: %v")))
(defcustom message-kill-buffer-on-exit nil
- "*Non-nil means that the message buffer will be killed after sending a message."
+ "Non-nil means that the message buffer will be killed after sending a message."
:group 'message-buffers
:link '(custom-manual "(message)Message Buffers")
:type 'boolean)
(defcustom message-kill-buffer-query t
- "*Non-nil means that killing a modified message buffer has to be confirmed.
+ "Non-nil means that killing a modified message buffer has to be confirmed.
This is used by `message-kill-buffer'."
:version "23.1" ;; No Gnus
:group 'message-buffers
(when (file-readable-p f)
(setq orgfile f)))
orgfile)
- "*Local news organization file."
+ "Local news organization file."
:type '(choice (const nil) file)
:link '(custom-manual "(message)News Headers")
:group 'message-headers)
(defcustom message-make-forward-subject-function
#'message-forward-subject-name-subject
- "*List of functions called to generate subject headers for forwarded messages.
+ "List of functions called to generate subject headers for forwarded messages.
The subject generated by the previous function is passed into each
successive function.
(repeat :tag "List of functions" function)))
(defcustom message-forward-as-mime t
- "*Non-nil means forward messages as an inline/rfc822 MIME section.
+ "Non-nil means forward messages as an inline/rfc822 MIME section.
Otherwise, directly inline the old message in the forwarded message."
:version "21.1"
:group 'message-forwarding
:type 'boolean)
(defcustom message-forward-show-mml 'best
- "*Non-nil means show forwarded messages as MML (decoded from MIME).
+ "Non-nil means show forwarded messages as MML (decoded from MIME).
Otherwise, forwarded messages are unchanged.
Can also be the symbol `best' to indicate that MML should be
used, except when it is a bad idea to use MML. One example where
(const :tag "use MML when appropriate" best)))
(defcustom message-forward-before-signature t
- "*Non-nil means put forwarded message before signature, else after."
+ "Non-nil means put forwarded message before signature, else after."
:group 'message-forwarding
:type 'boolean)
(defcustom message-wash-forwarded-subjects nil
- "*Non-nil means try to remove as much cruft as possible from the subject.
+ "Non-nil means try to remove as much cruft as possible from the subject.
Done before generating the new subject of a forward."
:group 'message-forwarding
:link '(custom-manual "(message)Forwarding")
;; bounced with a "mailing loop" error).
"^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From \\|^Delivered-To:\
\\|^X-Content-Length:\\|^X-UIDL:"
- "*All headers that match this regexp will be deleted when resending a message."
+ "All headers that match this regexp will be deleted when resending a message."
:version "24.4"
:group 'message-interface
:link '(custom-manual "(message)Resending")
regexp))
(defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus"
- "*All headers that match this regexp will be deleted when forwarding a message.
+ "All headers that match this regexp will be deleted when forwarding a message.
This may also be a list of regexps."
:version "21.1"
:group 'message-forwarding
regexp))
(defcustom message-ignored-cited-headers "."
- "*Delete these headers from the messages you yank."
+ "Delete these headers from the messages you yank."
:group 'message-insertion
:link '(custom-manual "(message)Insertion Variables")
:type 'regexp)
(defcustom message-cite-prefix-regexp mail-citation-prefix-regexp
- "*Regexp matching the longest possible citation prefix on a line."
+ "Regexp matching the longest possible citation prefix on a line."
:version "24.1"
:group 'message-insertion
:link '(custom-manual "(message)Insertion Variables")
:type '(repeat string))
(defcustom message-use-followup-to 'ask
- "*Specifies what to do with Followup-To header.
+ "Specifies what to do with Followup-To header.
If nil, always ignore the header. If it is t, use its value, but
query before using the \"poster\" value. If it is the symbol `ask',
always query the user whether to use the value. If it is the symbol
(const ask)))
(defcustom message-use-mail-followup-to 'use
- "*Specifies what to do with Mail-Followup-To header.
+ "Specifies what to do with Mail-Followup-To header.
If nil, always ignore the header. If it is the symbol `ask', always
query the user whether to use the value. If it is the symbol `use',
always use the value."
(const ask)))
(defcustom message-subscribed-address-functions nil
- "*Specifies functions for determining list subscription.
+ "Specifies functions for determining list subscription.
If nil, do not attempt to determine list subscription with functions.
If non-nil, this variable contains a list of functions which return
regular expressions to match lists. These functions can be used in
:type '(repeat sexp))
(defcustom message-subscribed-address-file nil
- "*A file containing addresses the user is subscribed to.
+ "A file containing addresses the user is subscribed to.
If nil, do not look at any files to determine list subscriptions. If
non-nil, each line of this file should be a mailing list address."
:version "22.1"
:type '(radio file (const nil)))
(defcustom message-subscribed-addresses nil
- "*Specifies a list of addresses the user is subscribed to.
+ "Specifies a list of addresses the user is subscribed to.
If nil, do not use any predefined list subscriptions. This list of
addresses can be used in conjunction with
`message-subscribed-address-functions' and `message-subscribed-regexps'."
:type '(repeat string))
(defcustom message-subscribed-regexps nil
- "*Specifies a list of addresses the user is subscribed to.
+ "Specifies a list of addresses the user is subscribed to.
If nil, do not use any predefined list subscriptions. This list of
regular expressions can be used in conjunction with
`message-subscribed-address-functions' and `message-subscribed-addresses'."
(const ask)))
(defcustom message-sendmail-f-is-evil nil
- "*Non-nil means don't add \"-f username\" to the sendmail command line.
+ "Non-nil means don't add \"-f username\" to the sendmail command line.
Doing so would be even more evil than leaving it out."
:group 'message-sending
:link '(custom-manual "(message)Mail Variables")
(defcustom message-sendmail-envelope-from
;; `mail-envelope-from' is unavailable unless sendmail.el is loaded.
(if (boundp 'mail-envelope-from) mail-envelope-from)
- "*Envelope-from when sending mail with sendmail.
+ "Envelope-from when sending mail with sendmail.
If this is nil, use `user-mail-address'. If it is the symbol
`header', use the From: header of the message."
:version "23.2"
((boundp 'gnus-select-method)
gnus-select-method)
(t '(nnspool "")))
- "*Method used to post news.
+ "Method used to post news.
Note that when posting from inside Gnus, for instance, this
variable isn't used."
:group 'message-news
:group 'message-various)
(defcustom message-citation-line-function 'message-insert-citation-line
- "*Function called to insert the \"Whomever writes:\" line.
+ "Function called to insert the \"Whomever writes:\" line.
Predefined functions include `message-insert-citation-line' and
`message-insert-formatted-citation-line' (see the variable
:group 'message-insertion)
(defcustom message-yank-prefix mail-yank-prefix
- "*Prefix inserted on the lines of yanked messages.
+ "Prefix inserted on the lines of yanked messages.
Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
See also `message-yank-cited-prefix' and `message-yank-empty-prefix'."
:version "23.2"
:group 'message-insertion)
(defcustom message-yank-cited-prefix ">"
- "*Prefix inserted on cited lines of yanked messages.
+ "Prefix inserted on cited lines of yanked messages.
Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
See also `message-yank-prefix' and `message-yank-empty-prefix'."
:version "22.1"
:group 'message-insertion)
(defcustom message-yank-empty-prefix ">"
- "*Prefix inserted on empty lines of yanked messages.
+ "Prefix inserted on empty lines of yanked messages.
See also `message-yank-prefix' and `message-yank-cited-prefix'."
:version "22.1"
:type 'string
:group 'message-insertion)
(defcustom message-indentation-spaces mail-indentation-spaces
- "*Number of spaces to insert at the beginning of each cited line.
+ "Number of spaces to insert at the beginning of each cited line.
Used by `message-yank-original' via `message-yank-cite'."
:version "23.2"
:group 'message-insertion
:type 'integer)
(defcustom message-cite-function 'message-cite-original-without-signature
- "*Function for citing an original message.
+ "Function for citing an original message.
Predefined functions include `message-cite-original' and
`message-cite-original-without-signature'.
Note that these functions use `mail-citation-hook' if that is non-nil."
:group 'message-insertion)
(defcustom message-indent-citation-function 'message-indent-citation
- "*Function for modifying a citation just inserted in the mail buffer.
+ "Function for modifying a citation just inserted in the mail buffer.
This can also be a list of functions. Each function can find the
citation between (point) and (mark t). And each function should leave
point and mark around the citation text as modified."
:group 'message-insertion)
(defcustom message-signature mail-signature
- "*String to be inserted at the end of the message buffer.
+ "String to be inserted at the end of the message buffer.
If t, the `message-signature-file' file will be inserted instead.
If a function, the result from the function will be used instead.
If a form, the result from the form will be used instead."
:group 'message-insertion)
(defcustom message-signature-file mail-signature-file
- "*Name of file containing the text inserted at end of message buffer.
+ "Name of file containing the text inserted at end of message buffer.
Ignored if the named file doesn't exist.
If nil, don't insert a signature.
If a path is specified, the value of `message-signature-directory' is ignored,
:group 'message-insertion)
(defcustom message-signature-directory nil
- "*Name of directory containing signature files.
+ "Name of directory containing signature files.
Comes in handy if you have many such files, handled via posting styles for
instance.
If nil, `message-signature-file' is expected to specify the directory if
:group 'message-insertion)
(defcustom message-signature-insert-empty-line t
- "*If non-nil, insert an empty line before the signature separator."
+ "If non-nil, insert an empty line before the signature separator."
:version "22.1"
:type 'boolean
:link '(custom-manual "(message)Insertion Variables")
:group 'message-insertion)
(defcustom message-cite-reply-position 'traditional
- "*Where the reply should be positioned.
+ "Where the reply should be positioned.
If `traditional', reply inline.
If `above', reply above quoted text.
If `below', reply below quoted text.
:group 'message-insertion)
(defcustom message-cite-style nil
- "*The overall style to be used when yanking cited text.
+ "The overall style to be used when yanking cited text.
Value is either nil (no variable overrides) or a let-style list
of pairs (VARIABLE VALUE) that will be bound in
`message-yank-original' to do the quoting.
"Message citation style used by Gmail. Use with message-cite-style.")
(defcustom message-distribution-function nil
- "*Function called to return a Distribution header."
+ "Function called to return a Distribution header."
:group 'message-news
:group 'message-headers
:link '(custom-manual "(message)News Headers")
(stringp mail-archive-file-name))
(format "FCC: %s\n" mail-archive-file-name))
mail-default-headers)
- "*A string of header lines to be inserted in outgoing mails."
+ "A string of header lines to be inserted in outgoing mails."
:version "23.2"
:group 'message-headers
:group 'message-mail
:type 'message-header-lines)
(defcustom message-default-news-headers ""
- "*A string of header lines to be inserted in outgoing news articles."
+ "A string of header lines to be inserted in outgoing news articles."
:group 'message-headers
:group 'message-news
:link '(custom-manual "(message)News Headers")
;; 33 and 126, except colon)", i. e., any chars except ctl chars,
;; space, or colon.
'(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:"))
- "*Set this non-nil if the system's mailer runs the header and body together.
+ "Set this non-nil if the system's mailer runs the header and body together.
\(This problem exists on Sunos 4 when sendmail is run in remote mode.)
The value should be an expression to test whether the problem will
actually occur."
the prefix.")
(defcustom message-mail-alias-type 'abbrev
- "*What alias expansion type to use in Message buffers.
+ "What alias expansion type to use in Message buffers.
The default is `abbrev', which uses mailabbrev. `ecomplete' uses
an electric completion mode. nil switches mail aliases off.
This can also be a list of values."
(if (file-writable-p message-directory)
(file-name-as-directory (expand-file-name "drafts" message-directory))
"~/")
- "*Directory where Message auto-saves buffers if Gnus isn't running.
+ "Directory where Message auto-saves buffers if Gnus isn't running.
If nil, Message won't auto-save."
:group 'message-buffers
:link '(custom-manual "(message)Various Message Variables")
(integer 1000000)))
(defcustom message-alternative-emails nil
- "*Regexp or predicate function matching alternative email addresses.
+ "Regexp or predicate function matching alternative email addresses.
The first address in the To, Cc or From headers of the original
article matching this variable is used as the From field of
outgoing messages.
:type 'boolean)
(defcustom message-user-fqdn nil
- "*Domain part of Message-Ids."
+ "Domain part of Message-Ids."
:version "22.1"
:group 'message-headers
:link '(custom-manual "(message)News Headers")
(const :tag "Always" t)))
(defcustom message-generate-hashcash (if (executable-find "hashcash") 'opportunistic)
- "*Whether to generate X-Hashcash: headers.
+ "Whether to generate X-Hashcash: headers.
If t, always generate hashcash headers. If `opportunistic',
only generate hashcash headers if it can be done without the user
waiting (i.e., only asynchronously).
:type '(set (const bbdb) (const eudc)))
(defcustom message-tab-body-function nil
- "*Function to execute when `message-tab' (TAB) is executed in the body.
+ "Function to execute when `message-tab' (TAB) is executed in the body.
If nil, the function bound in `text-mode-map' or `global-map' is executed."
:version "22.1"
:group 'message