135 |
|
|
136 |
(defcustom message-fcc-externalize-attachments nil |
(defcustom message-fcc-externalize-attachments nil |
137 |
"If non-nil, attachments are included as external parts in Fcc copies." |
"If non-nil, attachments are included as external parts in Fcc copies." |
138 |
:version "21.4" |
:version "22.1" |
139 |
:type 'boolean |
:type 'boolean |
140 |
:group 'message-sending) |
:group 'message-sending) |
141 |
|
|
175 |
|
|
176 |
(defcustom message-insert-canlock t |
(defcustom message-insert-canlock t |
177 |
"Whether to insert a Cancel-Lock header in news postings." |
"Whether to insert a Cancel-Lock header in news postings." |
178 |
:version "21.4" |
:version "22.1" |
179 |
:group 'message-headers |
:group 'message-headers |
180 |
:type 'boolean) |
:type 'boolean) |
181 |
|
|
204 |
"*Headers to be generated or prompted for when sending a message. |
"*Headers to be generated or prompted for when sending a message. |
205 |
Also see `message-required-news-headers' and |
Also see `message-required-news-headers' and |
206 |
`message-required-mail-headers'." |
`message-required-mail-headers'." |
207 |
:version "21.4" |
:version "22.1" |
208 |
:group 'message-news |
:group 'message-news |
209 |
:group 'message-headers |
:group 'message-headers |
210 |
:link '(custom-manual "(message)Message Headers") |
:link '(custom-manual "(message)Message Headers") |
212 |
|
|
213 |
(defcustom message-draft-headers '(References From) |
(defcustom message-draft-headers '(References From) |
214 |
"*Headers to be generated when saving a draft message." |
"*Headers to be generated when saving a draft message." |
215 |
:version "21.4" |
:version "22.1" |
216 |
:group 'message-news |
:group 'message-news |
217 |
:group 'message-headers |
:group 'message-headers |
218 |
:link '(custom-manual "(message)Message Headers") |
:link '(custom-manual "(message)Message Headers") |
300 |
`message-subject-trailing-was-query' is t, always strip the trailing |
`message-subject-trailing-was-query' is t, always strip the trailing |
301 |
old subject. In this case, `message-subject-trailing-was-regexp' is |
old subject. In this case, `message-subject-trailing-was-regexp' is |
302 |
used." |
used." |
303 |
:version "21.4" |
:version "22.1" |
304 |
:type '(choice (const :tag "never" nil) |
:type '(choice (const :tag "never" nil) |
305 |
(const :tag "always strip" t) |
(const :tag "always strip" t) |
306 |
(const ask)) |
(const ask)) |
317 |
`message-subject-trailing-was-regexp' instead. |
`message-subject-trailing-was-regexp' instead. |
318 |
|
|
319 |
It is okay to create some false positives here, as the user is asked." |
It is okay to create some false positives here, as the user is asked." |
320 |
:version "21.4" |
:version "22.1" |
321 |
:group 'message-various |
:group 'message-various |
322 |
:link '(custom-manual "(message)Message Headers") |
:link '(custom-manual "(message)Message Headers") |
323 |
:type 'regexp) |
:type 'regexp) |
330 |
matched against `message-subject-trailing-was-regexp' in |
matched against `message-subject-trailing-was-regexp' in |
331 |
`message-strip-subject-trailing-was'. You should use a regexp creating very |
`message-strip-subject-trailing-was'. You should use a regexp creating very |
332 |
few false positives here." |
few false positives here." |
333 |
:version "21.4" |
:version "22.1" |
334 |
:group 'message-various |
:group 'message-various |
335 |
:link '(custom-manual "(message)Message Headers") |
:link '(custom-manual "(message)Message Headers") |
336 |
:type 'regexp) |
:type 'regexp) |
343 |
(defcustom message-mark-insert-begin |
(defcustom message-mark-insert-begin |
344 |
"--8<---------------cut here---------------start------------->8---\n" |
"--8<---------------cut here---------------start------------->8---\n" |
345 |
"How to mark the beginning of some inserted text." |
"How to mark the beginning of some inserted text." |
346 |
:version "21.4" |
:version "22.1" |
347 |
:type 'string |
:type 'string |
348 |
:link '(custom-manual "(message)Insertion Variables") |
:link '(custom-manual "(message)Insertion Variables") |
349 |
:group 'message-various) |
:group 'message-various) |
352 |
(defcustom message-mark-insert-end |
(defcustom message-mark-insert-end |
353 |
"--8<---------------cut here---------------end--------------->8---\n" |
"--8<---------------cut here---------------end--------------->8---\n" |
354 |
"How to mark the end of some inserted text." |
"How to mark the end of some inserted text." |
355 |
:version "21.4" |
:version "22.1" |
356 |
:type 'string |
:type 'string |
357 |
:link '(custom-manual "(message)Insertion Variables") |
:link '(custom-manual "(message)Insertion Variables") |
358 |
:group 'message-various) |
:group 'message-various) |
362 |
"X-No-Archive: Yes\n" |
"X-No-Archive: Yes\n" |
363 |
"Header to insert when you don't want your article to be archived. |
"Header to insert when you don't want your article to be archived. |
364 |
Archives \(such as groups.google.com\) respect this header." |
Archives \(such as groups.google.com\) respect this header." |
365 |
:version "21.4" |
:version "22.1" |
366 |
:type 'string |
:type 'string |
367 |
:link '(custom-manual "(message)Header Commands") |
:link '(custom-manual "(message)Header Commands") |
368 |
:group 'message-various) |
:group 'message-various) |
372 |
"X-No-Archive: Yes - save http://groups.google.com/" |
"X-No-Archive: Yes - save http://groups.google.com/" |
373 |
"Note to insert why you wouldn't want this posting archived. |
"Note to insert why you wouldn't want this posting archived. |
374 |
If nil, don't insert any text in the body." |
If nil, don't insert any text in the body." |
375 |
:version "21.4" |
:version "22.1" |
376 |
:type '(radio string (const nil)) |
:type '(radio string (const nil)) |
377 |
:link '(custom-manual "(message)Header Commands") |
:link '(custom-manual "(message)Header Commands") |
378 |
:group 'message-various) |
:group 'message-various) |
391 |
If nil, `message-cross-post-followup-to' will only do a followup. Note that |
If nil, `message-cross-post-followup-to' will only do a followup. Note that |
392 |
you can explicitly override this setting by calling |
you can explicitly override this setting by calling |
393 |
`message-cross-post-followup-to' with a prefix." |
`message-cross-post-followup-to' with a prefix." |
394 |
:version "21.4" |
:version "22.1" |
395 |
:type 'boolean |
:type 'boolean |
396 |
:group 'message-various) |
:group 'message-various) |
397 |
|
|
399 |
(defcustom message-cross-post-note |
(defcustom message-cross-post-note |
400 |
"Crosspost & Followup-To: " |
"Crosspost & Followup-To: " |
401 |
"Note to insert before signature to notify of cross-post and follow-up." |
"Note to insert before signature to notify of cross-post and follow-up." |
402 |
:version "21.4" |
:version "22.1" |
403 |
:type 'string |
:type 'string |
404 |
:group 'message-various) |
:group 'message-various) |
405 |
|
|
407 |
(defcustom message-followup-to-note |
(defcustom message-followup-to-note |
408 |
"Followup-To: " |
"Followup-To: " |
409 |
"Note to insert before signature to notify of follow-up only." |
"Note to insert before signature to notify of follow-up only." |
410 |
:version "21.4" |
:version "22.1" |
411 |
:type 'string |
:type 'string |
412 |
:group 'message-various) |
:group 'message-various) |
413 |
|
|
418 |
The function will be called with four arguments. The function should not only |
The function will be called with four arguments. The function should not only |
419 |
insert a note, but also ensure old notes are deleted. See the documentation |
insert a note, but also ensure old notes are deleted. See the documentation |
420 |
for `message-cross-post-insert-note'." |
for `message-cross-post-insert-note'." |
421 |
:version "21.4" |
:version "22.1" |
422 |
:type 'function |
:type 'function |
423 |
:group 'message-various) |
:group 'message-various) |
424 |
|
|
586 |
non-word-constituents |
non-word-constituents |
587 |
"]\\)+>+\\|[ \t]*[]>|}+]\\)+")))) |
"]\\)+>+\\|[ \t]*[]>|}+]\\)+")))) |
588 |
"*Regexp matching the longest possible citation prefix on a line." |
"*Regexp matching the longest possible citation prefix on a line." |
589 |
:version "21.4" |
:version "22.1" |
590 |
:group 'message-insertion |
:group 'message-insertion |
591 |
:link '(custom-manual "(message)Insertion Variables") |
:link '(custom-manual "(message)Insertion Variables") |
592 |
:type 'regexp) |
:type 'regexp) |
671 |
If nil, always ignore the header. If it is the symbol `ask', always |
If nil, always ignore the header. If it is the symbol `ask', always |
672 |
query the user whether to use the value. If it is the symbol `use', |
query the user whether to use the value. If it is the symbol `use', |
673 |
always use the value." |
always use the value." |
674 |
:version "21.4" |
:version "22.1" |
675 |
:group 'message-interface |
:group 'message-interface |
676 |
:link '(custom-manual "(message)Mailing Lists") |
:link '(custom-manual "(message)Mailing Lists") |
677 |
:type '(choice (const :tag "ignore" nil) |
:type '(choice (const :tag "ignore" nil) |
685 |
regular expressions to match lists. These functions can be used in |
regular expressions to match lists. These functions can be used in |
686 |
conjunction with `message-subscribed-regexps' and |
conjunction with `message-subscribed-regexps' and |
687 |
`message-subscribed-addresses'." |
`message-subscribed-addresses'." |
688 |
:version "21.4" |
:version "22.1" |
689 |
:group 'message-interface |
:group 'message-interface |
690 |
:link '(custom-manual "(message)Mailing Lists") |
:link '(custom-manual "(message)Mailing Lists") |
691 |
:type '(repeat sexp)) |
:type '(repeat sexp)) |
694 |
"*A file containing addresses the user is subscribed to. |
"*A file containing addresses the user is subscribed to. |
695 |
If nil, do not look at any files to determine list subscriptions. If |
If nil, do not look at any files to determine list subscriptions. If |
696 |
non-nil, each line of this file should be a mailing list address." |
non-nil, each line of this file should be a mailing list address." |
697 |
:version "21.4" |
:version "22.1" |
698 |
:group 'message-interface |
:group 'message-interface |
699 |
:link '(custom-manual "(message)Mailing Lists") |
:link '(custom-manual "(message)Mailing Lists") |
700 |
:type '(radio file (const nil))) |
:type '(radio file (const nil))) |
704 |
If nil, do not use any predefined list subscriptions. This list of |
If nil, do not use any predefined list subscriptions. This list of |
705 |
addresses can be used in conjunction with |
addresses can be used in conjunction with |
706 |
`message-subscribed-address-functions' and `message-subscribed-regexps'." |
`message-subscribed-address-functions' and `message-subscribed-regexps'." |
707 |
:version "21.4" |
:version "22.1" |
708 |
:group 'message-interface |
:group 'message-interface |
709 |
:link '(custom-manual "(message)Mailing Lists") |
:link '(custom-manual "(message)Mailing Lists") |
710 |
:type '(repeat string)) |
:type '(repeat string)) |
714 |
If nil, do not use any predefined list subscriptions. This list of |
If nil, do not use any predefined list subscriptions. This list of |
715 |
regular expressions can be used in conjunction with |
regular expressions can be used in conjunction with |
716 |
`message-subscribed-address-functions' and `message-subscribed-addresses'." |
`message-subscribed-address-functions' and `message-subscribed-addresses'." |
717 |
:version "21.4" |
:version "22.1" |
718 |
:group 'message-interface |
:group 'message-interface |
719 |
:link '(custom-manual "(message)Mailing Lists") |
:link '(custom-manual "(message)Mailing Lists") |
720 |
:type '(repeat regexp)) |
:type '(repeat regexp)) |
724 |
If it is the symbol `always', the posting is allowed. If it is the |
If it is the symbol `always', the posting is allowed. If it is the |
725 |
symbol `never', the posting is not allowed. If it is the symbol |
symbol `never', the posting is not allowed. If it is the symbol |
726 |
`ask', you are prompted." |
`ask', you are prompted." |
727 |
:version "21.4" |
:version "22.1" |
728 |
:group 'message-interface |
:group 'message-interface |
729 |
:link '(custom-manual "(message)Message Headers") |
:link '(custom-manual "(message)Message Headers") |
730 |
:type '(choice (const always) |
:type '(choice (const always) |
742 |
"*Envelope-from when sending mail with sendmail. |
"*Envelope-from when sending mail with sendmail. |
743 |
If this is nil, use `user-mail-address'. If it is the symbol |
If this is nil, use `user-mail-address'. If it is the symbol |
744 |
`header', use the From: header of the message." |
`header', use the From: header of the message." |
745 |
:version "21.4" |
:version "22.1" |
746 |
:type '(choice (string :tag "From name") |
:type '(choice (string :tag "From name") |
747 |
(const :tag "Use From: header from message" header) |
(const :tag "Use From: header from message" header) |
748 |
(const :tag "Use `user-mail-address'" nil)) |
(const :tag "Use `user-mail-address'" nil)) |
856 |
(set-keymap-parent map minibuffer-local-map) |
(set-keymap-parent map minibuffer-local-map) |
857 |
map) |
map) |
858 |
"Keymap for `message-read-from-minibuffer'." |
"Keymap for `message-read-from-minibuffer'." |
859 |
:version "21.4") |
:version "22.1") |
860 |
|
|
861 |
;;;###autoload |
;;;###autoload |
862 |
(defcustom message-citation-line-function 'message-insert-citation-line |
(defcustom message-citation-line-function 'message-insert-citation-line |
883 |
"*Prefix inserted on cited or empty lines of yanked messages. |
"*Prefix inserted on cited or empty lines of yanked messages. |
884 |
Fix `message-cite-prefix-regexp' if it is set to an abnormal value. |
Fix `message-cite-prefix-regexp' if it is set to an abnormal value. |
885 |
See also `message-yank-prefix'." |
See also `message-yank-prefix'." |
886 |
:version "21.4" |
:version "22.1" |
887 |
:type 'string |
:type 'string |
888 |
:link '(custom-manual "(message)Insertion Variables") |
:link '(custom-manual "(message)Insertion Variables") |
889 |
:group 'message-insertion) |
:group 'message-insertion) |
940 |
;;;###autoload |
;;;###autoload |
941 |
(defcustom message-signature-insert-empty-line t |
(defcustom message-signature-insert-empty-line t |
942 |
"*If non-nil, insert an empty line before the signature separator." |
"*If non-nil, insert an empty line before the signature separator." |
943 |
:version "21.4" |
:version "22.1" |
944 |
:type 'boolean |
:type 'boolean |
945 |
:link '(custom-manual "(message)Insertion Variables") |
:link '(custom-manual "(message)Insertion Variables") |
946 |
:group 'message-insertion) |
:group 'message-insertion) |
1121 |
"Regexp of headers to be hidden when composing new messages. |
"Regexp of headers to be hidden when composing new messages. |
1122 |
This can also be a list of regexps to match headers. Or a list |
This can also be a list of regexps to match headers. Or a list |
1123 |
starting with `not' and followed by regexps." |
starting with `not' and followed by regexps." |
1124 |
:version "21.4" |
:version "22.1" |
1125 |
:group 'message |
:group 'message |
1126 |
:link '(custom-manual "(message)Message Headers") |
:link '(custom-manual "(message)Message Headers") |
1127 |
:type '(repeat regexp)) |
:type '(repeat regexp)) |
1397 |
for a message, the subaddresses will be removed (if present) before |
for a message, the subaddresses will be removed (if present) before |
1398 |
the mail is sent. All addresses in this structure should be |
the mail is sent. All addresses in this structure should be |
1399 |
downcased." |
downcased." |
1400 |
:version "21.4" |
:version "22.1" |
1401 |
:group 'message-headers |
:group 'message-headers |
1402 |
:type '(repeat (repeat string))) |
:type '(repeat (repeat string))) |
1403 |
|
|
1405 |
"Like `mail-user-agent'. |
"Like `mail-user-agent'. |
1406 |
Except if it is nil, use Gnus native MUA; if it is t, use |
Except if it is nil, use Gnus native MUA; if it is t, use |
1407 |
`mail-user-agent'." |
`mail-user-agent'." |
1408 |
:version "21.4" |
:version "22.1" |
1409 |
:type '(radio (const :tag "Gnus native" |
:type '(radio (const :tag "Gnus native" |
1410 |
:format "%t\n" |
:format "%t\n" |
1411 |
nil) |
nil) |
1429 |
recipients?\" before a wide reply to multiple recipients. If the user |
recipients?\" before a wide reply to multiple recipients. If the user |
1430 |
answers yes, reply to all recipients as usual. If the user answers |
answers yes, reply to all recipients as usual. If the user answers |
1431 |
no, only reply back to the author." |
no, only reply back to the author." |
1432 |
:version "21.4" |
:version "22.1" |
1433 |
:group 'message-headers |
:group 'message-headers |
1434 |
:link '(custom-manual "(message)Wide Reply") |
:link '(custom-manual "(message)Wide Reply") |
1435 |
:type 'boolean) |
:type 'boolean) |
1436 |
|
|
1437 |
(defcustom message-user-fqdn nil |
(defcustom message-user-fqdn nil |
1438 |
"*Domain part of Messsage-Ids." |
"*Domain part of Messsage-Ids." |
1439 |
:version "21.4" |
:version "22.1" |
1440 |
:group 'message-headers |
:group 'message-headers |
1441 |
:link '(custom-manual "(message)News Headers") |
:link '(custom-manual "(message)News Headers") |
1442 |
:type '(radio (const :format "%v " nil) |
:type '(radio (const :format "%v " nil) |
1448 |
(executable-find idna-program) |
(executable-find idna-program) |
1449 |
'ask) |
'ask) |
1450 |
"Whether to encode non-ASCII in domain names into ASCII according to IDNA." |
"Whether to encode non-ASCII in domain names into ASCII according to IDNA." |
1451 |
:version "21.4" |
:version "22.1" |
1452 |
:group 'message-headers |
:group 'message-headers |
1453 |
:link '(custom-manual "(message)IDNA") |
:link '(custom-manual "(message)IDNA") |
1454 |
:type '(choice (const :tag "Ask" ask) |
:type '(choice (const :tag "Ask" ask) |
1574 |
"\\)") |
"\\)") |
1575 |
"Regular expression that matches a valid FQDN." |
"Regular expression that matches a valid FQDN." |
1576 |
;; see also: gnus-button-valid-fqdn-regexp |
;; see also: gnus-button-valid-fqdn-regexp |
1577 |
:version "21.4" |
:version "22.1" |
1578 |
:group 'message-headers |
:group 'message-headers |
1579 |
:type 'regexp) |
:type 'regexp) |
1580 |
|
|
2384 |
packages requires these properties to be present in order to work. |
packages requires these properties to be present in order to work. |
2385 |
If you use one of these packages, turn this option off, and hope the |
If you use one of these packages, turn this option off, and hope the |
2386 |
message composition doesn't break too bad." |
message composition doesn't break too bad." |
2387 |
:version "21.4" |
:version "22.1" |
2388 |
:group 'message-various |
:group 'message-various |
2389 |
:link '(custom-manual "(message)Various Message Variables") |
:link '(custom-manual "(message)Various Message Variables") |
2390 |
:type 'boolean) |
:type 'boolean) |
2731 |
E.g., if this list contains a member list with elements `Cc' and `To', |
E.g., if this list contains a member list with elements `Cc' and `To', |
2732 |
then `message-carefully-insert-headers' will not insert a `To' header |
then `message-carefully-insert-headers' will not insert a `To' header |
2733 |
when the message is already `Cc'ed to the recipient." |
when the message is already `Cc'ed to the recipient." |
2734 |
:version "21.4" |
:version "22.1" |
2735 |
:group 'message-headers |
:group 'message-headers |
2736 |
:link '(custom-manual "(message)Message Headers") |
:link '(custom-manual "(message)Message Headers") |
2737 |
:type '(repeat sexp)) |
:type '(repeat sexp)) |
5176 |
If the current line has `message-yank-prefix', insert it on the new line." |
If the current line has `message-yank-prefix', insert it on the new line." |
5177 |
(interactive "*") |
(interactive "*") |
5178 |
(condition-case nil |
(condition-case nil |
5179 |
(split-line message-yank-prefix) ;; Emacs 21.3.50+ supports arg. |
(split-line message-yank-prefix) ;; Emacs 22.1+ supports arg. |
5180 |
(error |
(error |
5181 |
(split-line)))) |
(split-line)))) |
5182 |
|
|
5183 |
(defun message-fill-header (header value) |
(defun message-fill-header (header value) |
5184 |
(let ((begin (point)) |
(let ((begin (point)) |
5185 |
(fill-column 78) |
(fill-column 78) |
5281 |
(defcustom message-beginning-of-line t |
(defcustom message-beginning-of-line t |
5282 |
"Whether \\<message-mode-map>\\[message-beginning-of-line]\ |
"Whether \\<message-mode-map>\\[message-beginning-of-line]\ |
5283 |
goes to beginning of header values." |
goes to beginning of header values." |
5284 |
:version "21.4" |
:version "22.1" |
5285 |
:group 'message-buffers |
:group 'message-buffers |
5286 |
:link '(custom-manual "(message)Movement") |
:link '(custom-manual "(message)Movement") |
5287 |
:type 'boolean) |
:type 'boolean) |
6593 |
'("^\\(Disposition-Notification-To\\|Return-Receipt-To\\):" |
'("^\\(Disposition-Notification-To\\|Return-Receipt-To\\):" |
6594 |
. message-expand-name)) |
. message-expand-name)) |
6595 |
"Alist of (RE . FUN). Use FUN for completion on header lines matching RE." |
"Alist of (RE . FUN). Use FUN for completion on header lines matching RE." |
6596 |
:version "21.4" |
:version "22.1" |
6597 |
:group 'message |
:group 'message |
6598 |
:type '(alist :key-type regexp :value-type function)) |
:type '(alist :key-type regexp :value-type function)) |
6599 |
|
|
6600 |
(defcustom message-tab-body-function nil |
(defcustom message-tab-body-function nil |
6601 |
"*Function to execute when `message-tab' (TAB) is executed in the body. |
"*Function to execute when `message-tab' (TAB) is executed in the body. |
6602 |
If nil, the function bound in `text-mode-map' or `global-map' is executed." |
If nil, the function bound in `text-mode-map' or `global-map' is executed." |
6603 |
:version "21.4" |
:version "22.1" |
6604 |
:group 'message |
:group 'message |
6605 |
:link '(custom-manual "(message)Various Commands") |
:link '(custom-manual "(message)Various Commands") |
6606 |
:type 'function) |
:type 'function) |