cgit.sxemacs.org Git - gnus/blob - lisp/message.el

   1 ;;; message.el --- composing mail and news messages
   2
   3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   4 ;;   2005, 2006 Free Software Foundation, Inc.
   5
   6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   7 ;; Keywords: mail, news
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  24 ;; Boston, MA 02110-1301, USA.
  25
  26 ;;; Commentary:
  27
  28 ;; This mode provides mail-sending facilities from within Emacs.  It
  29 ;; consists mainly of large chunks of code from the sendmail.el,
  30 ;; gnus-msg.el and rnewspost.el files.
  31
  32 ;;; Code:
  33
  34 (eval-when-compile
  35   (require 'cl)
  36   (defvar gnus-message-group-art)
  37   (defvar gnus-list-identifiers)) ; gnus-sum is required where necessary
  38 (require 'hashcash)
  39 (require 'canlock)
  40 (require 'mailheader)
  41 (require 'gmm-utils)
  42 (require 'nnheader)
  43 ;; This is apparently necessary even though things are autoloaded.
  44 ;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better
  45 ;; require mailabbrev here.
  46 (if (featurep 'xemacs)
  47     (require 'mail-abbrevs)
  48   (require 'mailabbrev))
  49 (require 'mail-parse)
  50 (require 'mml)
  51 (require 'rfc822)
  52 (require 'ecomplete)
  53
  54 (defgroup message '((user-mail-address custom-variable)
  55                     (user-full-name custom-variable))
  56   "Mail and news message composing."
  57   :link '(custom-manual "(message)Top")
  58   :group 'mail
  59   :group 'news)
  60
  61 (put 'user-mail-address 'custom-type 'string)
  62 (put 'user-full-name 'custom-type 'string)
  63
  64 (defgroup message-various nil
  65   "Various Message Variables."
  66   :link '(custom-manual "(message)Various Message Variables")
  67   :group 'message)
  68
  69 (defgroup message-buffers nil
  70   "Message Buffers."
  71   :link '(custom-manual "(message)Message Buffers")
  72   :group 'message)
  73
  74 (defgroup message-sending nil
  75   "Message Sending."
  76   :link '(custom-manual "(message)Sending Variables")
  77   :group 'message)
  78
  79 (defgroup message-interface nil
  80   "Message Interface."
  81   :link '(custom-manual "(message)Interface")
  82   :group 'message)
  83
  84 (defgroup message-forwarding nil
  85   "Message Forwarding."
  86   :link '(custom-manual "(message)Forwarding")
  87   :group 'message-interface)
  88
  89 (defgroup message-insertion nil
  90   "Message Insertion."
  91   :link '(custom-manual "(message)Insertion")
  92   :group 'message)
  93
  94 (defgroup message-headers nil
  95   "Message Headers."
  96   :link '(custom-manual "(message)Message Headers")
  97   :group 'message)
  98
  99 (defgroup message-news nil
 100   "Composing News Messages."
 101   :group 'message)
 102
 103 (defgroup message-mail nil
 104   "Composing Mail Messages."
 105   :group 'message)
 106
 107 (defgroup message-faces nil
 108   "Faces used for message composing."
 109   :group 'message
 110   :group 'faces)
 111
 112 (defcustom message-directory "~/Mail/"
 113   "*Directory from which all other mail file variables are derived."
 114   :group 'message-various
 115   :type 'directory)
 116
 117 (defcustom message-max-buffers 10
 118   "*How many buffers to keep before starting to kill them off."
 119   :group 'message-buffers
 120   :type 'integer)
 121
 122 (defcustom message-send-rename-function nil
 123   "Function called to rename the buffer after sending it."
 124   :group 'message-buffers
 125   :type '(choice function (const nil)))
 126
 127 (defcustom message-fcc-handler-function 'message-output
 128   "*A function called to save outgoing articles.
 129 This function will be called with the name of the file to store the
 130 article in.  The default function is `message-output' which saves in Unix
 131 mailbox format."
 132   :type '(radio (function-item message-output)
 133                 (function :tag "Other"))
 134   :group 'message-sending)
 135
 136 (defcustom message-fcc-externalize-attachments nil
 137   "If non-nil, attachments are included as external parts in Fcc copies."
 138   :version "22.1"
 139   :type 'boolean
 140   :group 'message-sending)
 141
 142 (defcustom message-courtesy-message
 143   "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
 144   "*This is inserted at the start of a mailed copy of a posted message.
 145 If the string contains the format spec \"%s\", the Newsgroups
 146 the article has been posted to will be inserted there.
 147 If this variable is nil, no such courtesy message will be added."
 148   :group 'message-sending
 149   :type '(radio string (const nil)))
 150
 151 (defcustom message-ignored-bounced-headers
 152   "^\\(Received\\|Return-Path\\|Delivered-To\\):"
 153   "*Regexp that matches headers to be removed in resent bounced mail."
 154   :group 'message-interface
 155   :type 'regexp)
 156
 157 (defcustom message-from-style 'default
 158   "*Specifies how \"From\" headers look.
 159
 160 If nil, they contain just the return address like:
 161         king@grassland.com
 162 If `parens', they look like:
 163         king@grassland.com (Elvis Parsley)
 164 If `angles', they look like:
 165         Elvis Parsley <king@grassland.com>
 166
 167 Otherwise, most addresses look like `angles', but they look like
 168 `parens' if `angles' would need quoting and `parens' would not."
 169   :type '(choice (const :tag "simple" nil)
 170                  (const parens)
 171                  (const angles)
 172                  (const default))
 173   :group 'message-headers)
 174
 175 (defcustom message-insert-canlock t
 176   "Whether to insert a Cancel-Lock header in news postings."
 177   :version "22.1"
 178   :group 'message-headers
 179   :type 'boolean)
 180
 181 (defcustom message-syntax-checks
 182   (if message-insert-canlock '((sender . disabled)) nil)
 183   ;; Guess this one shouldn't be easy to customize...
 184   "*Controls what syntax checks should not be performed on outgoing posts.
 185 To disable checking of long signatures, for instance, add
 186  `(signature . disabled)' to this list.
 187
 188 Don't touch this variable unless you really know what you're doing.
 189
 190 Checks include `approved', `continuation-headers', `control-chars',
 191 `empty', `existing-newsgroups', `from', `illegible-text',
 192 `invisible-text', `long-header-lines', `long-lines', `message-id',
 193 `multiple-headers', `new-text', `newsgroups', `quoting-style',
 194 `repeated-newsgroups', `reply-to', `sender', `sendsys', `shoot',
 195 `shorten-followup-to', `signature', `size', `subject', `subject-cmsg'
 196 and `valid-newsgroups'."
 197   :group 'message-news
 198   :type '(repeat sexp))                 ; Fixme: improve this
 199
 200 (defcustom message-required-headers '((optional . References)
 201                                       From)
 202   "*Headers to be generated or prompted for when sending a message.
 203 Also see `message-required-news-headers' and
 204 `message-required-mail-headers'."
 205   :version "22.1"
 206   :group 'message-news
 207   :group 'message-headers
 208   :link '(custom-manual "(message)Message Headers")
 209   :type '(repeat sexp))
 210
 211 (defcustom message-draft-headers '(References From)
 212   "*Headers to be generated when saving a draft message."
 213   :version "22.1"
 214   :group 'message-news
 215   :group 'message-headers
 216   :link '(custom-manual "(message)Message Headers")
 217   :type '(repeat sexp))
 218
 219 (defcustom message-required-news-headers
 220   '(From Newsgroups Subject Date Message-ID
 221          (optional . Organization)
 222          (optional . User-Agent))
 223   "*Headers to be generated or prompted for when posting an article.
 224 RFC977 and RFC1036 require From, Date, Newsgroups, Subject,
 225 Message-ID.  Organization, Lines, In-Reply-To, Expires, and
 226 User-Agent are optional.  If don't you want message to insert some
 227 header, remove it from this list."
 228   :group 'message-news
 229   :group 'message-headers
 230   :link '(custom-manual "(message)Message Headers")
 231   :type '(repeat sexp))
 232
 233 (defcustom message-required-mail-headers
 234   '(From Subject Date (optional . In-Reply-To) Message-ID
 235          (optional . User-Agent))
 236   "*Headers to be generated or prompted for when mailing a message.
 237 It is recommended that From, Date, To, Subject and Message-ID be
 238 included.  Organization and User-Agent are optional."
 239   :group 'message-mail
 240   :group 'message-headers
 241   :link '(custom-manual "(message)Message Headers")
 242   :type '(repeat sexp))
 243
 244 (defcustom message-deletable-headers '(Message-ID Date Lines)
 245   "Headers to be deleted if they already exist and were generated by message previously."
 246   :group 'message-headers
 247   :link '(custom-manual "(message)Message Headers")
 248   :type 'sexp)
 249
 250 (defcustom message-ignored-news-headers
 251   "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
 252   "*Regexp of headers to be removed unconditionally before posting."
 253   :group 'message-news
 254   :group 'message-headers
 255   :link '(custom-manual "(message)Message Headers")
 256   :type '(repeat :value-to-internal (lambda (widget value)
 257                                       (custom-split-regexp-maybe value))
 258                  :match (lambda (widget value)
 259                           (or (stringp value)
 260                               (widget-editable-list-match widget value)))
 261                  regexp))
 262
 263 (defcustom message-ignored-mail-headers
 264   "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
 265   "*Regexp of headers to be removed unconditionally before mailing."
 266   :group 'message-mail
 267   :group 'message-headers
 268   :link '(custom-manual "(message)Mail Headers")
 269   :type 'regexp)
 270
 271 (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:\\|^X-Payment:\\|^Approved:"
 272   "*Header lines matching this regexp will be deleted before posting.
 273 It's best to delete old Path and Date headers before posting to avoid
 274 any confusion."
 275   :group 'message-interface
 276   :link '(custom-manual "(message)Superseding")
 277   :type '(repeat :value-to-internal (lambda (widget value)
 278                                       (custom-split-regexp-maybe value))
 279                  :match (lambda (widget value)
 280                           (or (stringp value)
 281                               (widget-editable-list-match widget value)))
 282                  regexp))
 283
 284 (defcustom message-subject-re-regexp
 285   "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*"
 286   "*Regexp matching \"Re: \" in the subject line."
 287   :group 'message-various
 288   :link '(custom-manual "(message)Message Headers")
 289   :type 'regexp)
 290
 291 ;;; Start of variables adopted from `message-utils.el'.
 292
 293 (defcustom message-subject-trailing-was-query 'ask
 294   "*What to do with trailing \"(was: <old subject>)\" in subject lines.
 295 If nil, leave the subject unchanged.  If it is the symbol `ask', query
 296 the user what do do.  In this case, the subject is matched against
 297 `message-subject-trailing-was-ask-regexp'.  If
 298 `message-subject-trailing-was-query' is t, always strip the trailing
 299 old subject.  In this case, `message-subject-trailing-was-regexp' is
 300 used."
 301   :version "22.1"
 302   :type '(choice (const :tag "never" nil)
 303                  (const :tag "always strip" t)
 304                  (const ask))
 305   :link '(custom-manual "(message)Message Headers")
 306   :group 'message-various)
 307
 308 (defcustom message-subject-trailing-was-ask-regexp
 309   "[ \t]*\\([[(]+[Ww][Aa][Ss][ \t]*.*[\])]+\\)"
 310   "*Regexp matching \"(was: <old subject>)\" in the subject line.
 311
 312 The function `message-strip-subject-trailing-was' uses this regexp if
 313 `message-subject-trailing-was-query' is set to the symbol `ask'.  If
 314 the variable is t instead of `ask', use
 315 `message-subject-trailing-was-regexp' instead.
 316
 317 It is okay to create some false positives here, as the user is asked."
 318   :version "22.1"
 319   :group 'message-various
 320   :link '(custom-manual "(message)Message Headers")
 321   :type 'regexp)
 322
 323 (defcustom message-subject-trailing-was-regexp
 324   "[ \t]*\\((*[Ww][Aa][Ss]:[ \t]*.*)\\)"
 325   "*Regexp matching \"(was: <old subject>)\" in the subject line.
 326
 327 If `message-subject-trailing-was-query' is set to t, the subject is
 328 matched against `message-subject-trailing-was-regexp' in
 329 `message-strip-subject-trailing-was'.  You should use a regexp creating very
 330 few false positives here."
 331   :version "22.1"
 332   :group 'message-various
 333   :link '(custom-manual "(message)Message Headers")
 334   :type 'regexp)
 335
 336 ;;; marking inserted text
 337
 338 (defcustom message-mark-insert-begin
 339   "--8<---------------cut here---------------start------------->8---\n"
 340   "How to mark the beginning of some inserted text."
 341   :version "22.1"
 342   :type 'string
 343   :link '(custom-manual "(message)Insertion Variables")
 344   :group 'message-various)
 345
 346 (defcustom message-mark-insert-end
 347   "--8<---------------cut here---------------end--------------->8---\n"
 348   "How to mark the end of some inserted text."
 349   :version "22.1"
 350   :type 'string
 351   :link '(custom-manual "(message)Insertion Variables")
 352   :group 'message-various)
 353
 354 (defcustom message-archive-header "X-No-Archive: Yes\n"
 355   "Header to insert when you don't want your article to be archived.
 356 Archives \(such as groups.google.com\) respect this header."
 357   :version "22.1"
 358   :type 'string
 359   :link '(custom-manual "(message)Header Commands")
 360   :group 'message-various)
 361
 362 (defcustom message-archive-note
 363   "X-No-Archive: Yes - save http://groups.google.com/"
 364   "Note to insert why you wouldn't want this posting archived.
 365 If nil, don't insert any text in the body."
 366   :version "22.1"
 367   :type '(radio string (const nil))
 368   :link '(custom-manual "(message)Header Commands")
 369   :group 'message-various)
 370
 371 ;;; Crossposts and Followups
 372 ;; inspired by JoH-followup-to by Jochem Huhman <joh  at gmx.de>
 373 ;; new suggestions by R. Weikusat <rw at another.de>
 374
 375 (defvar message-cross-post-old-target nil
 376   "Old target for cross-posts or follow-ups.")
 377 (make-variable-buffer-local 'message-cross-post-old-target)
 378
 379 (defcustom message-cross-post-default t
 380   "When non-nil `message-cross-post-followup-to' will perform a crosspost.
 381 If nil, `message-cross-post-followup-to' will only do a followup.  Note that
 382 you can explicitly override this setting by calling
 383 `message-cross-post-followup-to' with a prefix."
 384   :version "22.1"
 385   :type 'boolean
 386   :group 'message-various)
 387
 388 (defcustom message-cross-post-note "Crosspost & Followup-To: "
 389   "Note to insert before signature to notify of cross-post and follow-up."
 390   :version "22.1"
 391   :type 'string
 392   :group 'message-various)
 393
 394 (defcustom message-followup-to-note "Followup-To: "
 395   "Note to insert before signature to notify of follow-up only."
 396   :version "22.1"
 397   :type 'string
 398   :group 'message-various)
 399
 400 (defcustom message-cross-post-note-function 'message-cross-post-insert-note
 401   "Function to use to insert note about Crosspost or Followup-To.
 402 The function will be called with four arguments.  The function should not only
 403 insert a note, but also ensure old notes are deleted.  See the documentation
 404 for `message-cross-post-insert-note'."
 405   :version "22.1"
 406   :type 'function
 407   :group 'message-various)
 408
 409 ;;; End of variables adopted from `message-utils.el'.
 410
 411 (defcustom message-signature-separator "^-- *$"
 412   "Regexp matching the signature separator."
 413   :type 'regexp
 414   :link '(custom-manual "(message)Various Message Variables")
 415   :group 'message-various)
 416
 417 (defcustom message-elide-ellipsis "\n[...]\n\n"
 418   "*The string which is inserted for elided text."
 419   :type 'string
 420   :link '(custom-manual "(message)Various Commands")
 421   :group 'message-various)
 422
 423 (defcustom message-interactive t
 424   "Non-nil means when sending a message wait for and display errors.
 425 nil means let mailer mail back a message to report errors."
 426   :group 'message-sending
 427   :group 'message-mail
 428   :link '(custom-manual "(message)Sending Variables")
 429   :type 'boolean)
 430
 431 (defcustom message-generate-new-buffers 'unique
 432   "*Non-nil means create a new message buffer whenever `message-setup' is called.
 433 If this is a function, call that function with three parameters:  The type,
 434 the to address and the group name.  (Any of these may be nil.)  The function
 435 should return the new buffer name."
 436   :group 'message-buffers
 437   :link '(custom-manual "(message)Message Buffers")
 438   :type '(choice (const :tag "off" nil)
 439                  (const :tag "unique" unique)
 440                  (const :tag "unsent" unsent)
 441                  (function fun)))
 442
 443 (defcustom message-kill-buffer-on-exit nil
 444   "*Non-nil means that the message buffer will be killed after sending a message."
 445   :group 'message-buffers
 446   :link '(custom-manual "(message)Message Buffers")
 447   :type 'boolean)
 448
 449 (defcustom message-kill-buffer-query t
 450   "*Non-nil means that killing a modified message buffer has to be confirmed.
 451 This is used by `message-kill-buffer'."
 452   :version "23.0" ;; No Gnus
 453   :group 'message-buffers
 454   :type 'boolean)
 455
 456 (eval-when-compile
 457   (defvar gnus-local-organization))
 458 (defcustom message-user-organization
 459   (or (and (boundp 'gnus-local-organization)
 460            (stringp gnus-local-organization)
 461            gnus-local-organization)
 462       (getenv "ORGANIZATION")
 463       t)
 464   "*String to be used as an Organization header.
 465 If t, use `message-user-organization-file'."
 466   :group 'message-headers
 467   :type '(choice string
 468                  (const :tag "consult file" t)))
 469
 470 (defcustom message-user-organization-file
 471   (let (orgfile)
 472     (dolist (f (list "/etc/organization"
 473                      "/etc/news/organization"
 474                      "/usr/lib/news/organization"))
 475       (when (file-readable-p f)
 476         (setq orgfile f)))
 477     orgfile)
 478   "*Local news organization file."
 479   :type 'file
 480   :link '(custom-manual "(message)News Headers")
 481   :group 'message-headers)
 482
 483 (defcustom message-make-forward-subject-function
 484   #'message-forward-subject-name-subject
 485   "*List of functions called to generate subject headers for forwarded messages.
 486 The subject generated by the previous function is passed into each
 487 successive function.
 488
 489 The provided functions are:
 490
 491 * `message-forward-subject-author-subject' Source of article (author or
 492       newsgroup), in brackets followed by the subject
 493 * `message-forward-subject-name-subject' Source of article (name of author
 494       or newsgroup), in brackets followed by the subject
 495 * `message-forward-subject-fwd' Subject of article with 'Fwd:' prepended
 496       to it."
 497   :group 'message-forwarding
 498   :link '(custom-manual "(message)Forwarding")
 499   :type '(radio (function-item message-forward-subject-author-subject)
 500                 (function-item message-forward-subject-fwd)
 501                 (function-item message-forward-subject-name-subject)
 502                 (repeat :tag "List of functions" function)))
 503
 504 (defcustom message-forward-as-mime t
 505   "*Non-nil means forward messages as an inline/rfc822 MIME section.
 506 Otherwise, directly inline the old message in the forwarded message."
 507   :version "21.1"
 508   :group 'message-forwarding
 509   :link '(custom-manual "(message)Forwarding")
 510   :type 'boolean)
 511
 512 (defcustom message-forward-show-mml 'best
 513   "*Non-nil means show forwarded messages as MML (decoded from MIME).
 514 Otherwise, forwarded messages are unchanged.
 515 Can also be the symbol `best' to indicate that MML should be
 516 used, except when it is a bad idea to use MML.  One example where
 517 it is a bad idea is when forwarding a signed or encrypted
 518 message, because converting MIME to MML would invalidate the
 519 digital signature."
 520   :version "21.1"
 521   :group 'message-forwarding
 522   :type '(choice (const :tag "use MML" t)
 523                  (const :tag "don't use MML " nil)
 524                  (const :tag "use MML when appropriate" best)))
 525
 526 (defcustom message-forward-before-signature t
 527   "*Non-nil means put forwarded message before signature, else after."
 528   :group 'message-forwarding
 529   :type 'boolean)
 530
 531 (defcustom message-wash-forwarded-subjects nil
 532   "*Non-nil means try to remove as much cruft as possible from the subject.
 533 Done before generating the new subject of a forward."
 534   :group 'message-forwarding
 535   :link '(custom-manual "(message)Forwarding")
 536   :type 'boolean)
 537
 538 (defcustom message-ignored-resent-headers "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From "
 539   "*All headers that match this regexp will be deleted when resending a message."
 540   :group 'message-interface
 541   :link '(custom-manual "(message)Resending")
 542   :type '(repeat :value-to-internal (lambda (widget value)
 543                                       (custom-split-regexp-maybe value))
 544                  :match (lambda (widget value)
 545                           (or (stringp value)
 546                               (widget-editable-list-match widget value)))
 547                  regexp))
 548
 549 (defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus"
 550   "*All headers that match this regexp will be deleted when forwarding a message."
 551   :version "21.1"
 552   :group 'message-forwarding
 553   :type '(repeat :value-to-internal (lambda (widget value)
 554                                       (custom-split-regexp-maybe value))
 555                  :match (lambda (widget value)
 556                           (or (stringp value)
 557                               (widget-editable-list-match widget value)))
 558                  regexp))
 559
 560 (defcustom message-ignored-cited-headers "."
 561   "*Delete these headers from the messages you yank."
 562   :group 'message-insertion
 563   :link '(custom-manual "(message)Insertion Variables")
 564   :type 'regexp)
 565
 566 (defcustom message-cite-prefix-regexp
 567   (if (string-match "[[:digit:]]" "1") ;; support POSIX?
 568       "\\([ \t]*[-_.[:word:]]+>+\\|[ \t]*[]>|}+]\\)+"
 569     ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
 570     (let (non-word-constituents)
 571       (with-syntax-table text-mode-syntax-table
 572         (setq non-word-constituents
 573               (concat
 574                (if (string-match "\\w" "-")  "" "-")
 575                (if (string-match "\\w" "_")  "" "_")
 576                (if (string-match "\\w" ".")  "" "."))))
 577       (if (equal non-word-constituents "")
 578           "\\([ \t]*\\(\\w\\)+>+\\|[ \t]*[]>|}+]\\)+"
 579         (concat "\\([ \t]*\\(\\w\\|["
 580                 non-word-constituents
 581                 "]\\)+>+\\|[ \t]*[]>|}+]\\)+"))))
 582   "*Regexp matching the longest possible citation prefix on a line."
 583   :version "22.1"
 584   :group 'message-insertion
 585   :link '(custom-manual "(message)Insertion Variables")
 586   :type 'regexp)
 587
 588 (defcustom message-cancel-message "I am canceling my own article.\n"
 589   "Message to be inserted in the cancel message."
 590   :group 'message-interface
 591   :link '(custom-manual "(message)Canceling News")
 592   :type 'string)
 593
 594 ;; Useful to set in site-init.el
 595 (defcustom message-send-mail-function
 596   (let ((program (if (boundp 'sendmail-program)
 597                      ;; see paths.el
 598                      sendmail-program)))
 599     (cond
 600      ((and program
 601            (string-match "/" program) ;; Skip path
 602            (file-executable-p program))
 603       'message-send-mail-with-sendmail)
 604      ((and program
 605            (executable-find program))
 606       'message-send-mail-with-sendmail)
 607      (t
 608       'smtpmail-send-it)))
 609   "Function to call to send the current buffer as mail.
 610 The headers should be delimited by a line whose contents match the
 611 variable `mail-header-separator'.
 612
 613 Valid values include `message-send-mail-with-sendmail' (the default),
 614 `message-send-mail-with-mh', `message-send-mail-with-qmail',
 615 `message-smtpmail-send-it', `smtpmail-send-it' and `feedmail-send-it'.
 616
 617 See also `send-mail-function'."
 618   :type '(radio (function-item message-send-mail-with-sendmail)
 619                 (function-item message-send-mail-with-mh)
 620                 (function-item message-send-mail-with-qmail)
 621                 (function-item message-smtpmail-send-it)
 622                 (function-item smtpmail-send-it)
 623                 (function-item feedmail-send-it)
 624                 (function :tag "Other"))
 625   :group 'message-sending
 626   :link '(custom-manual "(message)Mail Variables")
 627   :group 'message-mail)
 628
 629 (defcustom message-send-news-function 'message-send-news
 630   "Function to call to send the current buffer as news.
 631 The headers should be delimited by a line whose contents match the
 632 variable `mail-header-separator'."
 633   :group 'message-sending
 634   :group 'message-news
 635   :link '(custom-manual "(message)News Variables")
 636   :type 'function)
 637
 638 (defcustom message-reply-to-function nil
 639   "If non-nil, function that should return a list of headers.
 640 This function should pick out addresses from the To, Cc, and From headers
 641 and respond with new To and Cc headers."
 642   :group 'message-interface