1 ;;; message.el --- composing mail and news messages
2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
3 ;; Free Software Foundation, Inc.
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6 ;; Keywords: mail, news
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
27 ;; This mode provides mail-sending facilities from within Emacs. It
28 ;; consists mainly of large chunks of code from the sendmail.el,
29 ;; gnus-msg.el and rnewspost.el files.
35 (defvar gnus-list-identifiers)) ; gnus-sum is required where necessary
39 ;; This is apparently necessary even though things are autoloaded.
40 ;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better
41 ;; require mailabbrev here.
42 (if (featurep 'xemacs)
43 (require 'mail-abbrevs)
44 (require 'mailabbrev))
49 (autoload 'sha1 "sha1-el"))
51 (defgroup message '((user-mail-address custom-variable)
52 (user-full-name custom-variable))
53 "Mail and news message composing."
54 :link '(custom-manual "(message)Top")
58 (put 'user-mail-address 'custom-type 'string)
59 (put 'user-full-name 'custom-type 'string)
61 (defgroup message-various nil
62 "Various Message Variables"
63 :link '(custom-manual "(message)Various Message Variables")
66 (defgroup message-buffers nil
68 :link '(custom-manual "(message)Message Buffers")
71 (defgroup message-sending nil
73 :link '(custom-manual "(message)Sending Variables")
76 (defgroup message-interface nil
78 :link '(custom-manual "(message)Interface")
81 (defgroup message-forwarding nil
83 :link '(custom-manual "(message)Forwarding")
84 :group 'message-interface)
86 (defgroup message-insertion nil
88 :link '(custom-manual "(message)Insertion")
91 (defgroup message-headers nil
93 :link '(custom-manual "(message)Message Headers")
96 (defgroup message-news nil
97 "Composing News Messages"
100 (defgroup message-mail nil
101 "Composing Mail Messages"
104 (defgroup message-faces nil
105 "Faces used for message composing."
109 (defcustom message-directory "~/Mail/"
110 "*Directory from which all other mail file variables are derived."
111 :group 'message-various
114 (defcustom message-max-buffers 10
115 "*How many buffers to keep before starting to kill them off."
116 :group 'message-buffers
119 (defcustom message-send-rename-function nil
120 "Function called to rename the buffer after sending it."
121 :group 'message-buffers
122 :type '(choice function (const nil)))
124 (defcustom message-fcc-handler-function 'message-output
125 "*A function called to save outgoing articles.
126 This function will be called with the name of the file to store the
127 article in. The default function is `message-output' which saves in Unix
129 :type '(radio (function-item message-output)
130 (function :tag "Other"))
131 :group 'message-sending)
133 (defcustom message-fcc-externalize-attachments nil
134 "If non-nil, attachments are included as external parts in Fcc copies."
136 :group 'message-sending)
138 (defcustom message-courtesy-message
139 "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
140 "*This is inserted at the start of a mailed copy of a posted message.
141 If the string contains the format spec \"%s\", the Newsgroups
142 the article has been posted to will be inserted there.
143 If this variable is nil, no such courtesy message will be added."
144 :group 'message-sending
147 (defcustom message-ignored-bounced-headers "^\\(Received\\|Return-Path\\):"
148 "*Regexp that matches headers to be removed in resent bounced mail."
149 :group 'message-interface
153 (defcustom message-from-style 'default
154 "*Specifies how \"From\" headers look.
156 If nil, they contain just the return address like:
158 If `parens', they look like:
159 king@grassland.com (Elvis Parsley)
160 If `angles', they look like:
161 Elvis Parsley <king@grassland.com>
163 Otherwise, most addresses look like `angles', but they look like
164 `parens' if `angles' would need quoting and `parens' would not."
165 :type '(choice (const :tag "simple" nil)
169 :group 'message-headers)
171 (defcustom message-insert-canlock t
172 "Whether to insert a Cancel-Lock header in news postings."
174 :group 'message-headers
177 (defcustom message-syntax-checks
178 (if message-insert-canlock '((sender . disabled)) nil)
179 ;; Guess this one shouldn't be easy to customize...
180 "*Controls what syntax checks should not be performed on outgoing posts.
181 To disable checking of long signatures, for instance, add
182 `(signature . disabled)' to this list.
184 Don't touch this variable unless you really know what you're doing.
186 Checks include `subject-cmsg', `multiple-headers', `sendsys',
187 `message-id', `from', `long-lines', `control-chars', `size',
188 `new-text', `quoting-style', `redirected-followup', `signature',
189 `approved', `sender', `empty', `empty-headers', `message-id', `from',
190 `subject', `shorten-followup-to', `existing-newsgroups',
191 `buffer-file-name', `unchanged', `newsgroups', `reply-to',
192 'continuation-headers', and `long-header-lines'."
194 :type '(repeat sexp)) ; Fixme: improve this
196 (defcustom message-required-headers '((optional . References) From)
197 "*Headers to be generated or prompted for when sending a message.
198 Also see `message-required-news-headers' and
199 `message-required-mail-headers'."
201 :group 'message-headers
202 :type '(repeat sexp))
204 (defcustom message-draft-headers '(References From)
205 "*Headers to be generated when saving a draft message."
207 :group 'message-headers
208 :type '(repeat sexp))
210 (defcustom message-required-news-headers
211 '(From Newsgroups Subject Date Message-ID
212 (optional . Organization)
213 (optional . User-Agent))
214 "*Headers to be generated or prompted for when posting an article.
215 RFC977 and RFC1036 require From, Date, Newsgroups, Subject,
216 Message-ID. Organization, Lines, In-Reply-To, Expires, and
217 User-Agent are optional. If don't you want message to insert some
218 header, remove it from this list."
220 :group 'message-headers
221 :type '(repeat sexp))
223 (defcustom message-required-mail-headers
224 '(From Subject Date (optional . In-Reply-To) Message-ID
225 (optional . User-Agent))
226 "*Headers to be generated or prompted for when mailing a message.
227 It is recommended that From, Date, To, Subject and Message-ID be
228 included. Organization and User-Agent are optional."
230 :group 'message-headers
231 :type '(repeat sexp))
233 (defcustom message-deletable-headers '(Message-ID Date Lines)
234 "Headers to be deleted if they already exist and were generated by message previously."
235 :group 'message-headers
238 (defcustom message-ignored-news-headers
239 "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
240 "*Regexp of headers to be removed unconditionally before posting."
242 :group 'message-headers
245 (defcustom message-ignored-mail-headers
246 "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
247 "*Regexp of headers to be removed unconditionally before mailing."
249 :group 'message-headers
252 (defcustom message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-Complaints-To:\\|Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|^X-Complaints-To:\\|^Cancel-Lock:\\|^Cancel-Key:\\|^X-Hashcash:"
253 "*Header lines matching this regexp will be deleted before posting.
254 It's best to delete old Path and Date headers before posting to avoid
256 :group 'message-interface
259 (defcustom message-subject-re-regexp
260 "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*"
261 "*Regexp matching \"Re: \" in the subject line."
262 :group 'message-various
265 ;;; Start of variables adopted from `message-utils.el'.
267 (defcustom message-subject-trailing-was-query 'ask
268 ;; should it default to nil or ask?
269 "*What to do with trailing \"(was: <old subject>)\" in subject lines.
270 If nil, leave the subject unchanged. If it is the symbol `ask', query
271 the user what do do. In this case, the subject is matched against
272 `message-subject-trailing-was-ask-regexp'. If
273 `message-subject-trailing-was-query' is t, always strip the trailing
274 old subject. In this case, `message-subject-trailing-was-regexp' is
276 :type '(choice (const :tag "never" nil)
277 (const :tag "always strip" t)
279 :group 'message-various)
281 (defcustom message-subject-trailing-was-ask-regexp
282 "[ \t]*\\([[(]+[Ww][Aa][Ss][ \t]*.*[\])]+\\)"
283 "*Regexp matching \"(was: <old subject>)\" in the subject line.
285 The function `message-strip-subject-trailing-was' uses this regexp if
286 `message-subject-trailing-was-query' is set to the symbol `ask'. If
287 the variable is t instead of `ask', use
288 `message-subject-trailing-was-regexp' instead.
290 It is okay to create some false positives here, as the user is asked."
291 :group 'message-various
294 (defcustom message-subject-trailing-was-regexp
295 "[ \t]*\\((*[Ww][Aa][Ss]:[ \t]*.*)\\)"
296 "*Regexp matching \"(was: <old subject>)\" in the subject line.
298 If `message-subject-trailing-was-query' is set to t, the subject is
299 matched against `message-subject-trailing-was-regexp' in
300 `message-strip-subject-trailing-was'. You should use a regexp creating very
301 few false positives here."
302 :group 'message-various
305 ;;; marking inserted text
308 (defcustom message-mark-insert-begin
309 "--8<---------------cut here---------------start------------->8---\n"
310 "How to mark the beginning of some inserted text."
312 :group 'message-various)
315 (defcustom message-mark-insert-end
316 "--8<---------------cut here---------------end--------------->8---\n"
317 "How to mark the end of some inserted text."
319 :group 'message-various)
322 (defcustom message-archive-header
323 "X-No-Archive: Yes\n"
324 "Header to insert when you don't want your article to be archived.
325 Archives \(such as groups.googgle.com\) respect this header."
327 :group 'message-various)
330 (defcustom message-archive-note
331 "X-No-Archive: Yes - save http://groups.google.com/"
332 "Note to insert why you wouldn't want this posting archived.
333 If nil, don't insert any text in the body."
335 :group 'message-various)
337 ;;; Crossposts and Followups
338 ;; inspired by JoH-followup-to by Jochem Huhman <joh at gmx.de>
339 ;; new suggestions by R. Weikusat <rw at another.de>
341 (defvar message-cross-post-old-target nil
342 "Old target for cross-posts or follow-ups.")
343 (make-variable-buffer-local 'message-cross-post-old-target)
346 (defcustom message-cross-post-default t
347 "When non-nil `message-cross-post-followup-to' will perform a crosspost.
348 If nil, `message-cross-post-followup-to' will only do a followup. Note that
349 you can explicitly override this setting by calling
350 `message-cross-post-followup-to' with a prefix."
352 :group 'message-various)
355 (defcustom message-cross-post-note
356 "Crosspost & Followup-To: "
357 "Note to insert before signature to notify of cross-post and follow-up."
359 :group 'message-various)
362 (defcustom message-followup-to-note
364 "Note to insert before signature to notify of follow-up only."
366 :group 'message-various)
369 (defcustom message-cross-post-note-function
370 'message-cross-post-insert-note
371 "Function to use to insert note about Crosspost or Followup-To.
372 The function will be called with four arguments. The function should not only
373 insert a note, but also ensure old notes are deleted. See the documentation
374 for `message-cross-post-insert-note'."
376 :group 'message-various)
378 ;;; End of variables adopted from `message-utils.el'.
381 (defcustom message-signature-separator "^-- *$"
382 "Regexp matching the signature separator."
384 :group 'message-various)
386 (defcustom message-elide-ellipsis "\n[...]\n\n"
387 "*The string which is inserted for elided text."
389 :group 'message-various)
391 (defcustom message-interactive t
392 "Non-nil means when sending a message wait for and display errors.
393 nil means let mailer mail back a message to report errors."
394 :group 'message-sending
398 (defcustom message-generate-new-buffers 'unique
399 "*Non-nil means create a new message buffer whenever `message-setup' is called.
400 If this is a function, call that function with three parameters: The type,
401 the to address and the group name. (Any of these may be nil.) The function
402 should return the new buffer name."
403 :group 'message-buffers
404 :type '(choice (const :tag "off" nil)
405 (const :tag "unique" unique)
406 (const :tag "unsent" unsent)
409 (defcustom message-kill-buffer-on-exit nil
410 "*Non-nil means that the message buffer will be killed after sending a message."
411 :group 'message-buffers
415 (defvar gnus-local-organization))
416 (defcustom message-user-organization
417 (or (and (boundp 'gnus-local-organization)
418 (stringp gnus-local-organization)
419 gnus-local-organization)
420 (getenv "ORGANIZATION")
422 "*String to be used as an Organization header.
423 If t, use `message-user-organization-file'."
424 :group 'message-headers
425 :type '(choice string
426 (const :tag "consult file" t)))
429 (defcustom message-user-organization-file "/usr/lib/news/organization"
430 "*Local news organization file."
432 :group 'message-headers)
434 (defcustom message-make-forward-subject-function
435 'message-forward-subject-author-subject
436 "*List of functions called to generate subject headers for forwarded messages.
437 The subject generated by the previous function is passed into each
440 The provided functions are:
442 * `message-forward-subject-author-subject' (Source of article (author or
443 newsgroup)), in brackets followed by the subject
444 * `message-forward-subject-fwd' (Subject of article with 'Fwd:' prepended
446 :group 'message-forwarding
447 :type '(radio (function-item message-forward-subject-author-subject)
448 (function-item message-forward-subject-fwd)
449 (repeat :tag "List of functions" function)))
451 (defcustom message-forward-as-mime t
452 "*If non-nil, forward messages as an inline/rfc822 MIME section. Otherwise, directly inline the old message in the forwarded message."
454 :group 'message-forwarding
457 (defcustom message-forward-show-mml t
458 "*If non-nil, forward messages are shown as mml. Otherwise, forward messages are unchanged."
460 :group 'message-forwarding
463 (defcustom message-forward-before-signature t
464 "*If non-nil, put forwarded message before signature, else after."
465 :group 'message-forwarding
468 (defcustom message-wash-forwarded-subjects nil
469 "*If non-nil, try to remove as much old cruft as possible from the subject of messages before generating the new subject of a forward."
470 :group 'message-forwarding
473 (defcustom message-ignored-resent-headers "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From "
474 "*All headers that match this regexp will be deleted when resending a message."
475 :group 'message-interface
478 (defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus"
479 "*All headers that match this regexp will be deleted when forwarding a message."
481 :group 'message-forwarding
482 :type '(choice (const :tag "None" nil)
485 (defcustom message-ignored-cited-headers "."
486 "*Delete these headers from the messages you yank."
487 :group 'message-insertion
490 (defcustom message-cite-prefix-regexp
491 (if (string-match "[[:digit:]]" "1") ;; support POSIX?
492 "\\([ \t]*[-_.[:word:]]+>+\\|[ \t]*[]>|}+]\\)+"
493 ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
494 (let ((old-table (syntax-table))
495 non-word-constituents)
496 (set-syntax-table text-mode-syntax-table)
497 (setq non-word-constituents
499 (if (string-match "\\w" "-") "" "-")
500 (if (string-match "\\w" "_") "" "_")
501 (if (string-match "\\w" ".") "" ".")))
502 (set-syntax-table old-table)
503 (if (equal non-word-constituents "")
504 "\\([ \t]*\\(\\w\\)+>+\\|[ \t]*[]>|}+]\\)+"
505 (concat "\\([ \t]*\\(\\w\\|["
506 non-word-constituents
507 "]\\)+>+\\|[ \t]*[]>|}+]\\)+"))))
508 "*Regexp matching the longest possible citation prefix on a line."
509 :group 'message-insertion
512 (defcustom message-cancel-message "I am canceling my own article.\n"
513 "Message to be inserted in the cancel message."
514 :group 'message-interface
517 ;; Useful to set in site-init.el
519 (defcustom message-send-mail-function 'message-send-mail-with-sendmail
520 "Function to call to send the current buffer as mail.
521 The headers should be delimited by a line whose contents match the
522 variable `mail-header-separator'.
524 Valid values include `message-send-mail-with-sendmail' (the default),
525 `message-send-mail-with-mh', `message-send-mail-with-qmail',
526 `message-smtpmail-send-it', `smtpmail-send-it' and `feedmail-send-it'.
528 See also `send-mail-function'."
529 :type '(radio (function-item message-send-mail-with-sendmail)
530 (function-item message-send-mail-with-mh)
531 (function-item message-send-mail-with-qmail)
532 (function-item message-smtpmail-send-it)
533 (function-item smtpmail-send-it)
534 (function-item feedmail-send-it)
535 (function :tag "Other"))
536 :group 'message-sending
537 :group 'message-mail)
539 (defcustom message-send-news-function 'message-send-news
540 "Function to call to send the current buffer as news.
541 The headers should be delimited by a line whose contents match the
542 variable `mail-header-separator'."
543 :group 'message-sending
547 (defcustom message-reply-to-function nil
548 "If non-nil, function that should return a list of headers.
549 This function should pick out addresses from the To, Cc, and From headers
550 and respond with new To and Cc headers."
551 :group 'message-interface
552 :type '(choice function (const nil)))
554 (defcustom message-wide-reply-to-function nil
555 "If non-nil, function that should return a list of headers.
556 This function should pick out addresses from the To, Cc, and From headers
557 and respond with new To and Cc headers."
558 :group 'message-interface
559 :type '(choice function (const nil)))
561 (defcustom message-followup-to-function nil
562 "If non-nil, function that should return a list of headers.
563 This function should pick out addresses from the To, Cc, and From headers
564 and respond with new To and Cc headers."
565 :group 'message-interface
566 :type '(choice function (const nil)))
568 (defcustom message-use-followup-to 'ask
569 "*Specifies what to do with Followup-To header.
570 If nil, always ignore the header. If it is t, use its value, but
571 query before using the \"poster\" value. If it is the symbol `ask',
572 always query the user whether to use the value. If it is the symbol
573 `use', always use the value."
574 :group 'message-interface
575 :type '(choice (const :tag "ignore" nil)
576 (const :tag "use & query" t)
580 (defcustom message-use-mail-followup-to 'use
581 "*Specifies what to do with Mail-Followup-To header.
582 If nil, always ignore the header. If it is the symbol `ask', always
583 query the user whether to use the value. If it is the symbol `use',
584 always use the value."
585 :group 'message-interface
586 :type '(choice (const :tag "ignore" nil)
590 (defcustom message-subscribed-address-functions nil
591 "*Specifies functions for determining list subscription.
592 If nil, do not attempt to determine list subscribtion with functions.
593 If non-nil, this variable contains a list of functions which return
594 regular expressions to match lists. These functions can be used in
595 conjunction with `message-subscribed-regexps' and
596 `message-subscribed-addresses'."
597 :group 'message-interface
598 :type '(repeat sexp))
600 (defcustom message-subscribed-address-file nil
601 "*A file containing addresses the user is subscribed to.
602 If nil, do not look at any files to determine list subscriptions. If
603 non-nil, each line of this file should be a mailing list address."
604 :group 'message-interface
607 (defcustom message-subscribed-addresses nil
608 "*Specifies a list of addresses the user is subscribed to.
609 If nil, do not use any predefined list subscriptions. This list of
610 addresses can be used in conjuction with
611 `message-subscribed-address-functions' and `message-subscribed-regexps'."
612 :group 'message-interface
613 :type '(repeat string))
615 (defcustom message-subscribed-regexps nil
616 "*Specifies a list of addresses the user is subscribed to.
617 If nil, do not use any predefined list subscriptions. This list of
618 regular expressions can be used in conjuction with
619 `message-subscribed-address-functions' and `message-subscribed-addresses'."
620 :group 'message-interface
621 :type '(repeat regexp))
623 (defcustom message-allow-no-recipients 'ask
624 "Specifies what to do when there are no recipients other than Gcc/Fcc.
625 If it is the symbol `always', the posting is allowed. If it is the
626 symbol `never', the posting is not allowed. If it is the symbol
627 `ask', you are prompted."
628 :group 'message-interface
629 :type '(choice (const always)
633 (defcustom message-sendmail-f-is-evil nil
634 "*Non-nil means don't add \"-f username\" to the sendmail command line.
635 Doing so would be even more evil than leaving it out."
636 :group 'message-sending
639 ;; qmail-related stuff
640 (defcustom message-qmail-inject-program "/var/qmail/bin/qmail-inject"
641 "Location of the qmail-inject program."
642 :group 'message-sending
645 (defcustom message-qmail-inject-args nil
646 "Arguments passed to qmail-inject programs.
647 This should be a list of strings, one string for each argument. It
648 may also be a function.
650 For e.g., if you wish to set the envelope sender address so that bounces
651 go to the right place or to deal with listserv's usage of that address, you
652 might set this variable to '(\"-f\" \"you@some.where\")."
653 :group 'message-sending
654 :type '(choice (function)
657 (defvar message-cater-to-broken-inn t
658 "Non-nil means Gnus should not fold the `References' header.
659 Folding `References' makes ancient versions of INN create incorrect
663 (defvar gnus-post-method)
664 (defvar gnus-select-method))
665 (defcustom message-post-method
666 (cond ((and (boundp 'gnus-post-method)
667 (listp gnus-post-method)
670 ((boundp 'gnus-select-method)
673 "*Method used to post news.
674 Note that when posting from inside Gnus, for instance, this
675 variable isn't used."
677 :group 'message-sending
678 ;; This should be the `gnus-select-method' widget, but that might
679 ;; create a dependence to `gnus.el'.
682 (defcustom message-generate-headers-first nil
683 "*If non-nil, generate all required headers before composing.
684 The variables `message-required-news-headers' and
685 `message-required-mail-headers' specify which headers to generate.
686 This can also be a list of headers that should be generated before
689 Note that the variable `message-deletable-headers' specifies headers which
690 are to be deleted and then re-generated before sending, so this variable
691 will not have a visible effect for those headers."
692 :group 'message-headers
693 :type '(choice (const :tag "None" nil)
695 (repeat (sexp :tag "Header"))))
697 (defcustom message-setup-hook nil
698 "Normal hook, run each time a new outgoing message is initialized.
699 The function `message-setup' runs this hook."
700 :group 'message-various
703 (defcustom message-cancel-hook nil
704 "Hook run when cancelling articles."
705 :group 'message-various
708 (defcustom message-signature-setup-hook nil
709 "Normal hook, run each time a new outgoing message is initialized.
710 It is run after the headers have been inserted and before
711 the signature is inserted."
712 :group 'message-various
715 (defcustom message-mode-hook nil
716 "Hook run in message mode buffers."
717 :group 'message-various
720 (defcustom message-header-hook nil
721 "Hook run in a message mode buffer narrowed to the headers."
722 :group 'message-various
725 (defcustom message-header-setup-hook nil
726 "Hook called narrowed to the headers when setting up a message buffer."
727 :group 'message-various
730 (defcustom message-minibuffer-local-map
731 (let ((map (make-sparse-keymap 'message-minibuffer-local-map)))
732 (set-keymap-parent map minibuffer-local-map)
734 "Keymap for `message-read-from-minibuffer'.")
737 (defcustom message-citation-line-function 'message-insert-citation-line
738 "*Function called to insert the \"Whomever writes:\" line.
740 Note that Gnus provides a feature where the reader can click on
741 `writes:' to hide the cited text. If you change this line too much,
742 people who read your message will have to change their Gnus
743 configuration. See the variable `gnus-cite-attribution-suffix'."
745 :group 'message-insertion)
748 (defcustom message-yank-prefix "> "
749 "*Prefix inserted on the lines of yanked messages.
750 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
751 See also `message-yank-cited-prefix'."
753 :group 'message-insertion)
755 (defcustom message-yank-cited-prefix ">"
756 "*Prefix inserted on cited or empty lines of yanked messages.
757 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
758 See also `message-yank-prefix'."
760 :group 'message-insertion)
762 (defcustom message-indentation-spaces 3
763 "*Number of spaces to insert at the beginning of each cited line.
764 Used by `message-yank-original' via `message-yank-cite'."
765 :group 'message-insertion
769 (defcustom message-cite-function 'message-cite-original
770 "*Function for citing an original message.
771 Predefined functions include `message-cite-original' and
772 `message-cite-original-without-signature'.
773 Note that `message-cite-original' uses `mail-citation-hook' if that is non-nil."
774 :type '(radio (function-item message-cite-original)
775 (function-item message-cite-original-without-signature)
776 (function-item sc-cite-original)
777 (function :tag "Other"))
778 :group 'message-insertion)
781 (defcustom message-indent-citation-function 'message-indent-citation
782 "*Function for modifying a citation just inserted in the mail buffer.
783 This can also be a list of functions. Each function can find the
784 citation between (point) and (mark t). And each function should leave
785 point and mark around the citation text as modified."
787 :group 'message-insertion)
790 (defcustom message-signature t
791 "*String to be inserted at the end of the message buffer.
792 If t, the `message-signature-file' file will be inserted instead.
793 If a function, the result from the function will be used instead.
794 If a form, the result from the form will be used instead."
796 :group 'message-insertion)
799 (defcustom message-signature-file "~/.signature"
800 "*Name of file containing the text inserted at end of message buffer.
801 Ignored if the named file doesn't exist.
802 If nil, don't insert a signature."
803 :type '(choice file (const :tags "None" nil))
804 :group 'message-insertion)
807 (defcustom message-signature-insert-empty-line t
808 "*If non-nil, insert an empty line before the signature separator."
810 :group 'message-insertion)
812 (defcustom message-distribution-function nil
813 "*Function called to return a Distribution header."
815 :group 'message-headers
816 :type '(choice function (const nil)))
818 (defcustom message-expires 14
819 "Number of days before your article expires."
821 :group 'message-headers
822 :link '(custom-manual "(message)News Headers")
825 (defcustom message-user-path nil
826 "If nil, use the NNTP server name in the Path header.
827 If stringp, use this; if non-nil, use no host name (user name only)."
829 :group 'message-headers
830 :link '(custom-manual "(message)News Headers")
831 :type '(choice (const :tag "nntp" nil)
833 (sexp :tag "none" :format "%t" t)))
835 (defvar message-reply-buffer nil)
836 (defvar message-reply-headers nil
837 "The headers of the current replied article.
838 It is a vector of the following headers:
839 \[number subject from date id references chars lines xref extra].")
840 (defvar message-newsreader nil)
841 (defvar message-mailer nil)
842 (defvar message-sent-message-via nil)
843 (defvar message-checksum nil)
844 (defvar message-send-actions nil
845 "A list of actions to be performed upon successful sending of a message.")
846 (defvar message-exit-actions nil
847 "A list of actions to be performed upon exiting after sending a message.")
848 (defvar message-kill-actions nil
849 "A list of actions to be performed before killing a message buffer.")
850 (defvar message-postpone-actions nil
851 "A list of actions to be performed after postponing a message.")
853 (define-widget 'message-header-lines 'text
854 "All header lines must be LFD terminated."
855 :format "%{%t%}:%n%v"
857 :error "All header lines must be newline terminated")
859 (defcustom message-default-headers ""
860 "*A string containing header lines to be inserted in outgoing messages.
861 It is inserted before you edit the message, so you can edit or delete
863 :group 'message-headers
864 :type 'message-header-lines)
866 (defcustom message-default-mail-headers ""
867 "*A string of header lines to be inserted in outgoing mails."
868 :group 'message-headers
870 :type 'message-header-lines)
872 (defcustom message-default-news-headers ""
873 "*A string of header lines to be inserted in outgoing news articles."
874 :group 'message-headers
876 :type 'message-header-lines)
878 ;; Note: could use /usr/ucb/mail instead of sendmail;
879 ;; options -t, and -v if not interactive.
880 (defcustom message-mailer-swallows-blank-line
881 (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)"
882 system-configuration)
883 (file-readable-p "/etc/sendmail.cf")
884 (let ((buffer (get-buffer-create " *temp*")))
888 (insert-file-contents "/etc/sendmail.cf")
889 (goto-char (point-min))
890 (let ((case-fold-search nil))
891 (re-search-forward "^OR\\>" nil t)))
892 (kill-buffer buffer))))
893 ;; According to RFC822, "The field-name must be composed of printable
894 ;; ASCII characters (i. e., characters