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

   1 ;;; message.el --- composing mail and news messages
   2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
   3 ;;        Free Software Foundation, Inc.
   4
   5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   6 ;; Keywords: mail, news
   7
   8 ;; This file is part of GNU Emacs.
   9
  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)
  13 ;; any later version.
  14
  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.
  19
  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.
  24
  25 ;;; Commentary:
  26
  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.
  30
  31 ;;; Code:
  32
  33 (eval-when-compile
  34   (require 'cl)
  35   (defvar gnus-message-group-art)
  36   (defvar gnus-list-identifiers) ; gnus-sum is required where necessary
  37   (require 'hashcash))
  38 (require 'canlock)
  39 (require 'mailheader)
  40 (require 'nnheader)
  41 ;; This is apparently necessary even though things are autoloaded.
  42 ;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better
  43 ;; require mailabbrev here.
  44 (if (featurep 'xemacs)
  45     (require 'mail-abbrevs)
  46   (require 'mailabbrev))
  47 (require 'mail-parse)
  48 (require 'mml)
  49 (require 'rfc822)
  50
  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")
  55   :group 'mail
  56   :group 'news)
  57
  58 (put 'user-mail-address 'custom-type 'string)
  59 (put 'user-full-name 'custom-type 'string)
  60
  61 (defgroup message-various nil
  62   "Various Message Variables"
  63   :link '(custom-manual "(message)Various Message Variables")
  64   :group 'message)
  65
  66 (defgroup message-buffers nil
  67   "Message Buffers"
  68   :link '(custom-manual "(message)Message Buffers")
  69   :group 'message)
  70
  71 (defgroup message-sending nil
  72   "Message Sending"
  73   :link '(custom-manual "(message)Sending Variables")
  74   :group 'message)
  75
  76 (defgroup message-interface nil
  77   "Message Interface"
  78   :link '(custom-manual "(message)Interface")
  79   :group 'message)
  80
  81 (defgroup message-forwarding nil
  82   "Message Forwarding"
  83   :link '(custom-manual "(message)Forwarding")
  84   :group 'message-interface)
  85
  86 (defgroup message-insertion nil
  87   "Message Insertion"
  88   :link '(custom-manual "(message)Insertion")
  89   :group 'message)
  90
  91 (defgroup message-headers nil
  92   "Message Headers"
  93   :link '(custom-manual "(message)Message Headers")
  94   :group 'message)
  95
  96 (defgroup message-news nil
  97   "Composing News Messages"
  98   :group 'message)
  99
 100 (defgroup message-mail nil
 101   "Composing Mail Messages"
 102   :group 'message)
 103
 104 (defgroup message-faces nil
 105   "Faces used for message composing."
 106   :group 'message
 107   :group 'faces)
 108
 109 (defcustom message-directory "~/Mail/"
 110   "*Directory from which all other mail file variables are derived."
 111   :group 'message-various
 112   :type 'directory)
 113
 114 (defcustom message-max-buffers 10
 115   "*How many buffers to keep before starting to kill them off."
 116   :group 'message-buffers
 117   :type 'integer)
 118
 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)))
 123
 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
 128 mailbox format."
 129   :type '(radio (function-item message-output)
 130                 (function :tag "Other"))
 131   :group 'message-sending)
 132
 133 (defcustom message-fcc-externalize-attachments nil
 134   "If non-nil, attachments are included as external parts in Fcc copies."
 135   :version "22.1"
 136   :type 'boolean
 137   :group 'message-sending)
 138
 139 (defcustom message-courtesy-message
 140   "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
 141   "*This is inserted at the start of a mailed copy of a posted message.
 142 If the string contains the format spec \"%s\", the Newsgroups
 143 the article has been posted to will be inserted there.
 144 If this variable is nil, no such courtesy message will be added."
 145   :group 'message-sending
 146   :type '(radio string (const nil)))
 147
 148 (defcustom message-ignored-bounced-headers
 149   "^\\(Received\\|Return-Path\\|Delivered-To\\):"
 150   "*Regexp that matches headers to be removed in resent bounced mail."
 151   :group 'message-interface
 152   :type 'regexp)
 153
 154 ;;;###autoload
 155 (defcustom message-from-style 'default
 156   "*Specifies how \"From\" headers look.
 157
 158 If nil, they contain just the return address like:
 159         king@grassland.com
 160 If `parens', they look like:
 161         king@grassland.com (Elvis Parsley)
 162 If `angles', they look like:
 163         Elvis Parsley <king@grassland.com>
 164
 165 Otherwise, most addresses look like `angles', but they look like
 166 `parens' if `angles' would need quoting and `parens' would not."
 167   :type '(choice (const :tag "simple" nil)
 168                  (const parens)
 169                  (const angles)
 170                  (const default))
 171   :group 'message-headers)
 172
 173 (defcustom message-insert-canlock t
 174   "Whether to insert a Cancel-Lock header in news postings."
 175   :version "22.1"
 176   :group 'message-headers
 177   :type 'boolean)
 178
 179 (defcustom message-syntax-checks
 180   (if message-insert-canlock '((sender . disabled)) nil)
 181   ;; Guess this one shouldn't be easy to customize...
 182   "*Controls what syntax checks should not be performed on outgoing posts.
 183 To disable checking of long signatures, for instance, add
 184  `(signature . disabled)' to this list.
 185
 186 Don't touch this variable unless you really know what you're doing.
 187
 188 Checks include `subject-cmsg', `multiple-headers', `sendsys',
 189 `message-id', `from', `long-lines', `control-chars', `size',
 190 `new-text', `quoting-style', `redirected-followup', `signature',
 191 `approved', `sender', `empty', `empty-headers', `message-id', `from',
 192 `subject', `shorten-followup-to', `existing-newsgroups',
 193 `buffer-file-name', `unchanged', `newsgroups', `reply-to',
 194 `continuation-headers', `long-header-lines', `invisible-text' and
 195 `illegible-text'."
 196   :group 'message-news
 197   :type '(repeat sexp))                 ; Fixme: improve this
 198
 199 (defcustom message-required-headers '((optional . References)
 200                                       From)
 201   "*Headers to be generated or prompted for when sending a message.
 202 Also see `message-required-news-headers' and
 203 `message-required-mail-headers'."
 204   :version "22.1"
 205   :group 'message-news
 206   :group 'message-headers
 207   :link '(custom-manual "(message)Message Headers")
 208   :type '(repeat sexp))
 209
 210 (defcustom message-draft-headers '(References From)
 211   "*Headers to be generated when saving a draft message."
 212   :version "22.1"
 213   :group 'message-news
 214   :group 'message-headers
 215   :link '(custom-manual "(message)Message Headers")
 216   :type '(repeat sexp))
 217
 218 (defcustom message-required-news-headers
 219   '(From Newsgroups Subject Date Message-ID
 220          (optional . Organization)
 221          (optional . User-Agent))
 222   "*Headers to be generated or prompted for when posting an article.
 223 RFC977 and RFC1036 require From, Date, Newsgroups, Subject,
 224 Message-ID.  Organization, Lines, In-Reply-To, Expires, and
 225 User-Agent are optional.  If don't you want message to insert some
 226 header, remove it from this list."
 227   :group 'message-news
 228   :group 'message-headers
 229   :link '(custom-manual "(message)Message Headers")
 230   :type '(repeat sexp))
 231
 232 (defcustom message-required-mail-headers
 233   '(From Subject Date (optional . In-Reply-To) Message-ID
 234          (optional . User-Agent))
 235   "*Headers to be generated or prompted for when mailing a message.
 236 It is recommended that From, Date, To, Subject and Message-ID be
 237 included.  Organization and User-Agent are optional."
 238   :group 'message-mail
 239   :group 'message-headers
 240   :link '(custom-manual "(message)Message Headers")
 241   :type '(repeat sexp))
 242
 243 (defcustom message-deletable-headers '(Message-ID Date Lines)
 244   "Headers to be deleted if they already exist and were generated by message previously."
 245   :group 'message-headers
 246   :link '(custom-manual "(message)Message Headers")
 247   :type 'sexp)
 248
 249 (defcustom message-ignored-news-headers
 250   "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
 251   "*Regexp of headers to be removed unconditionally before posting."
 252   :group 'message-news
 253   :group 'message-headers
 254   :link '(custom-manual "(message)Message Headers")
 255   :type '(repeat :value-to-internal (lambda (widget value)
 256                                       (custom-split-regexp-maybe value))
 257                  :match (lambda (widget value)
 258                           (or (stringp value)
 259                               (widget-editable-list-match widget value)))
 260                  regexp))
 261
 262 (defcustom message-ignored-mail-headers
 263   "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
 264   "*Regexp of headers to be removed unconditionally before mailing."
 265   :group 'message-mail
 266   :group 'message-headers
 267   :link '(custom-manual "(message)Mail Headers")
 268   :type 'regexp)
 269
 270 (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:"
 271   "*Header lines matching this regexp will be deleted before posting.
 272 It's best to delete old Path and Date headers before posting to avoid
 273 any confusion."
 274   :group 'message-interface
 275   :link '(custom-manual "(message)Superseding")
 276   :type '(repeat :value-to-internal (lambda (widget value)
 277                                       (custom-split-regexp-maybe value))
 278                  :match (lambda (widget value)
 279                           (or (stringp value)
 280                               (widget-editable-list-match widget value)))
 281                  regexp))
 282
 283 (defcustom message-subject-re-regexp
 284   "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*"
 285   "*Regexp matching \"Re: \" in the subject line."
 286   :group 'message-various
 287   :link '(custom-manual "(message)Message Headers")
 288   :type 'regexp)
 289
 290 ;;; Start of variables adopted from `message-utils.el'.
 291
 292 (defcustom message-subject-trailing-was-query 'ask
 293   "*What to do with trailing \"(was: <old subject>)\" in subject lines.
 294 If nil, leave the subject unchanged.  If it is the symbol `ask', query
 295 the user what do do.  In this case, the subject is matched against
 296 `message-subject-trailing-was-ask-regexp'.  If
 297 `message-subject-trailing-was-query' is t, always strip the trailing
 298 old subject.  In this case, `message-subject-trailing-was-regexp' is
 299 used."
 300   :version "22.1"
 301   :type '(choice (const :tag "never" nil)
 302                  (const :tag "always strip" t)
 303                  (const ask))
 304   :link '(custom-manual "(message)Message Headers")
 305   :group 'message-various)
 306
 307 (defcustom message-subject-trailing-was-ask-regexp
 308   "[ \t]*\\([[(]+[Ww][Aa][Ss][ \t]*.*[\])]+\\)"
 309   "*Regexp matching \"(was: <old subject>)\" in the subject line.
 310
 311 The function `message-strip-subject-trailing-was' uses this regexp if
 312 `message-subject-trailing-was-query' is set to the symbol `ask'.  If
 313 the variable is t instead of `ask', use
 314 `message-subject-trailing-was-regexp' instead.
 315
 316 It is okay to create some false positives here, as the user is asked."
 317   :version "22.1"
 318   :group 'message-various
 319   :link '(custom-manual "(message)Message Headers")
 320   :type 'regexp)
 321
 322 (defcustom message-subject-trailing-was-regexp
 323   "[ \t]*\\((*[Ww][Aa][Ss]:[ \t]*.*)\\)"
 324   "*Regexp matching \"(was: <old subject>)\" in the subject line.
 325
 326 If `message-subject-trailing-was-query' is set to t, the subject is
 327 matched against `message-subject-trailing-was-regexp' in
 328 `message-strip-subject-trailing-was'.  You should use a regexp creating very
 329 few false positives here."
 330   :version "22.1"
 331   :group 'message-various
 332   :link '(custom-manual "(message)Message Headers")
 333   :type 'regexp)
 334
 335 ;;; marking inserted text
 336
 337 (defcustom message-mark-insert-begin
 338   "--8<---------------cut here---------------start------------->8---\n"
 339   "How to mark the beginning of some inserted text."
 340   :version "22.1"
 341   :type 'string
 342   :link '(custom-manual "(message)Insertion Variables")
 343   :group 'message-various)
 344
 345 (defcustom message-mark-insert-end
 346   "--8<---------------cut here---------------end--------------->8---\n"
 347   "How to mark the end of some inserted text."
 348   :version "22.1"
 349   :type 'string
 350   :link '(custom-manual "(message)Insertion Variables")
 351   :group 'message-various)
 352
 353 (defcustom message-archive-header "X-No-Archive: Yes\n"
 354   "Header to insert when you don't want your article to be archived.
 355 Archives \(such as groups.google.com\) respect this header."
 356   :version "22.1"
 357   :type 'string
 358   :link '(custom-manual "(message)Header Commands")
 359   :group 'message-various)
 360
 361 (defcustom message-archive-note
 362   "X-No-Archive: Yes - save http://groups.google.com/"
 363   "Note to insert why you wouldn't want this posting archived.
 364 If nil, don't insert any text in the body."
 365   :version "22.1"
 366   :type '(radio string (const nil))
 367   :link '(custom-manual "(message)Header Commands")
 368   :group 'message-various)
 369
 370 ;;; Crossposts and Followups
 371 ;; inspired by JoH-followup-to by Jochem Huhman <joh  at gmx.de>
 372 ;; new suggestions by R. Weikusat <rw at another.de>
 373
 374 (defvar message-cross-post-old-target nil
 375   "Old target for cross-posts or follow-ups.")
 376 (make-variable-buffer-local 'message-cross-post-old-target)
 377
 378 (defcustom message-cross-post-default t
 379   "When non-nil `message-cross-post-followup-to' will perform a crosspost.
 380 If nil, `message-cross-post-followup-to' will only do a followup.  Note that
 381 you can explicitly override this setting by calling
 382 `message-cross-post-followup-to' with a prefix."
 383   :version "22.1"
 384   :type 'boolean
 385   :group 'message-various)
 386
 387 (defcustom message-cross-post-note "Crosspost & Followup-To: "
 388   "Note to insert before signature to notify of cross-post and follow-up."
 389   :version "22.1"
 390   :type 'string
 391   :group 'message-various)
 392
 393 (defcustom message-followup-to-note "Followup-To: "
 394   "Note to insert before signature to notify of follow-up only."
 395   :version "22.1"
 396   :type 'string
 397   :group 'message-various)
 398
 399 (defcustom message-cross-post-note-function 'message-cross-post-insert-note
 400   "Function to use to insert note about Crosspost or Followup-To.
 401 The function will be called with four arguments.  The function should not only
 402 insert a note, but also ensure old notes are deleted.  See the documentation
 403 for `message-cross-post-insert-note'."
 404   :version "22.1"
 405   :type 'function
 406   :group 'message-various)
 407
 408 ;;; End of variables adopted from `message-utils.el'.
 409
 410 ;;;###autoload
 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 ;;;###autoload
 471 (defcustom message-user-organization-file "/usr/lib/news/organization"
 472   "*Local news organization file."
 473   :type 'file
 474   :link '(custom-manual "(message)News Headers")
 475   :group 'message-headers)
 476
 477 (defcustom message-make-forward-subject-function
 478   #'message-forward-subject-name-subject
 479   "*List of functions called to generate subject headers for forwarded messages.
 480 The subject generated by the previous function is passed into each
 481 successive function.
 482
 483 The provided functions are:
 484
 485 * `message-forward-subject-author-subject' Source of article (author or
 486       newsgroup), in brackets followed by the subject
 487 * `message-forward-subject-name-subject' Source of article (name of author
 488       or newsgroup), in brackets followed by the subject
 489 * `message-forward-subject-fwd' Subject of article with 'Fwd:' prepended
 490       to it."
 491   :group 'message-forwarding
 492   :link '(custom-manual "(message)Forwarding")
 493   :type '(radio (function-item message-forward-subject-author-subject)
 494                 (function-item message-forward-subject-fwd)
 495                 (function-item message-forward-subject-name-subject)
 496                 (repeat :tag "List of functions" function)))
 497
 498 (defcustom message-forward-as-mime t
 499   "*Non-nil means forward messages as an inline/rfc822 MIME section.
 500 Otherwise, directly inline the old message in the forwarded message."
 501   :version "21.1"
 502   :group 'message-forwarding
 503   :link '(custom-manual "(message)Forwarding")
 504   :type 'boolean)
 505
 506 (defcustom message-forward-show-mml 'best
 507   "*Non-nil means show forwarded messages as MML (decoded from MIME).
 508 Otherwise, forwarded messages are unchanged.
 509 Can also be the symbol `best' to indicate that MML should be
 510 used, except when it is a bad idea to use MML.  One example where
 511 it is a bad idea is when forwarding a signed or encrypted
 512 message, because converting MIME to MML would invalidate the
 513 digital signature."
 514   :version "21.1"
 515   :group 'message-forwarding
 516   :type '(choice (const :tag "use MML" t)
 517                  (const :tag "don't use MML " nil)
 518                  (const :tag "use MML when appropriate" best)))
 519
 520 (defcustom message-forward-before-signature t
 521   "*Non-nil means put forwarded message before signature, else after."
 522   :group 'message-forwarding
 523   :type 'boolean)
 524
 525 (defcustom message-wash-forwarded-subjects nil
 526   "*Non-nil means try to remove as much cruft as possible from the subject.
 527 Done before generating the new subject of a forward."
 528   :group 'message-forwarding
 529   :link '(custom-manual "(message)Forwarding")
 530   :type 'boolean)
 531
 532 (defcustom message-ignored-resent-headers "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From "
 533   "*All headers that match this regexp will be deleted when resending a message."
 534   :group 'message-interface
 535   :link '(custom-manual "(message)Resending")
 536   :type '(repeat :value-to-internal (lambda (widget value)
 537                                       (custom-split-regexp-maybe value))
 538                  :match (lambda (widget value)
 539                           (or (stringp value)
 540                               (widget-editable-list-match widget value)))
 541                  regexp))
 542
 543 (defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus"
 544   "*All headers that match this regexp will be deleted when forwarding a message."
 545   :version "21.1"
 546   :group 'message-forwarding
 547   :type '(repeat :value-to-internal (lambda (widget value)
 548                                       (custom-split-regexp-maybe value))
 549                  :match (lambda (widget value)
 550                           (or (stringp value)
 551                               (widget-editable-list-match widget value)))
 552                  regexp))
 553
 554 (defcustom message-ignored-cited-headers "."
 555   "*Delete these headers from the messages you yank."
 556   :group 'message-insertion
 557   :link '(custom-manual "(message)Insertion Variables")
 558   :type 'regexp)
 559
 560 (defcustom message-cite-prefix-regexp
 561   (if (string-match "[[:digit:]]" "1") ;; support POSIX?
 562       "\\([ \t]*[-_.[:word:]]+>+\\|[ \t]*[]>|}+]\\)+"
 563     ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
 564     (let (non-word-constituents)
 565       (with-syntax-table text-mode-syntax-table
 566         (setq non-word-constituents
 567               (concat
 568                (if (string-match "\\w" "-")  "" "-")
 569                (if (string-match "\\w" "_")  "" "_")
 570                (if (string-match "\\w" ".")  "" "."))))
 571       (if (equal non-word-constituents "")
 572           "\\([ \t]*\\(\\w\\)+>+\\|[ \t]*[]>|}+]\\)+"
 573         (concat "\\([ \t]*\\(\\w\\|["
 574                 non-word-constituents
 575                 "]\\)+>+\\|[ \t]*[]>|}+]\\)+"))))
 576   "*Regexp matching the longest possible citation prefix on a line."
 577   :version "22.1"
 578   :group 'message-insertion
 579   :link '(custom-manual "(message)Insertion Variables")
 580   :type 'regexp)
 581
 582 (defcustom message-cancel-message "I am canceling my own article.\n"
 583   "Message to be inserted in the cancel message."
 584   :group 'message-interface
 585   :link '(custom-manual "(message)Canceling News")
 586   :type 'string)
 587
 588 ;; Useful to set in site-init.el
 589 ;;;###autoload
 590 (defcustom message-send-mail-function
 591   (let ((program (if (boundp 'sendmail-program)
 592                      ;; see paths.el
 593                      sendmail-program)))
 594     (cond
 595      ((and program
 596            (string-match "/" program) ;; Skip path
 597            (file-executable-p program))
 598       'message-send-mail-with-sendmail)
 599      ((and program
 600            (executable-find program))
 601       'message-send-mail-with-sendmail)
 602      (t
 603       'smtpmail-send-it)))
 604   "Function to call to send the current buffer as mail.
 605 The headers should be delimited by a line whose contents match the
 606 variable `mail-header-separator'.
 607
 608 Valid values include `message-send-mail-with-sendmail' (the default),
 609 `message-send-mail-with-mh', `message-send-mail-with-qmail',
 610 `message-smtpmail-send-it', `smtpmail-send-it' and `feedmail-send-it'.
 611
 612 See also `send-mail-function'."
 613   :type '(radio (function-item message-send-mail-with-sendmail)
 614                 (function-item message-send-mail-with-mh)
 615                 (function-item message-send-mail-with-qmail)
 616                 (function-item message-smtpmail-send-it)
 617                 (function-item smtpmail-send-it)
 618                 (function-item feedmail-send-it)
 619                 (function :tag "Other"))
 620   :group 'message-sending
 621   :link '(custom-manual "(message)Mail Variables")
 622   :group 'message-mail)
 623
 624 (defcustom message-send-news-function 'message-send-news
 625   "Function to call to send the current buffer as news.
 626 The headers should be delimited by a line whose contents match the
 627 variable `mail-header-separator'."
 628   :group 'message-sending
 629   :group 'message-news
 630   :link '(custom-manual "(message)News Variables")
 631   :type 'function)
 632
 633 (defcustom message-reply-to-function nil
 634   "If non-nil, function that should return a list of headers.
 635 This function should pick out addresses from the To, Cc, and From headers
 636 and respond with new To and Cc headers."
 637   :group 'message-interface
 638   :link '(custom-manual "(message)Reply")
 639   :type '(choice function (const nil)))
 640
 641 (defcustom message-wide-reply-to-function nil
 642   "If non-nil, function that should return a list of headers.
 643 This function should pick out addresses from the To, Cc, and From headers
 644 and respond with new To and Cc headers."
 645   :group 'message-interface
 646   :link '(custom-manual "(message)Wide Reply")
 647   :type '(choice function (const nil)))
 648
 649 (defcustom message-followup-to-function nil
 650   "If non-nil, function that should return a list of headers.
 651 This function should pick out addresses from the To, Cc, and From headers
 652 and respond with new To and Cc headers."
 653   :group 'message-interface
 654   :link '(custom-manual "(message)Followup")
 655   :type '(choice function (const nil)))
 656
 657 (defcustom message-extra-wide-headers nil
 658   "If non-nil, a list of additional address headers.
 659 These are used when composing a wide reply."
 660   :group 'message-sending
 661   :type '(repeat string))
 662
 663 (defcustom message-use-followup-to 'ask
 664   "*Specifies what to do with Followup-To header.
 665 If nil, always ignore the header.  If it is t, use its value, but
 666 query before using the \"poster\" value.  If it is the symbol `ask',
 667 always query the user whether to use the value.  If it is the symbol
 668 `use', always use the value."
 669   :group 'message-interface
 670   :link '(custom-manual "(message)Followup")
 671   :type '(choice (const :tag "ignore" nil)
 672                  (const :tag "use & query" t)
 673                  (const use)
 674                  (const ask)))
 675
 676 (defcustom message-use-mail-followup-to 'use
 677   "*Specifies what to do with Mail-Followup-To header.
 678 If nil, always ignore the header.  If it is the symbol `ask', always
 679 query the user whether to use the value.  If it is the symbol `use',
 680 always use the value."
 681   :version "22.1"
 682   :group 'message-interface
 683   :link '(custom-manual "(message)Mailing Lists")
 684   :type '(choice (const :tag "ignore" nil)
 685                  (const use)
 686                  (const ask)))
 687
 688 (defcustom message-subscribed-address-functions nil
 689   "*Specifies functions for determining list subscription.
 690 If nil, do not attempt to determine list subscription with functions.
 691 If non-nil, this variable contains a list of functions which return
 692 regular expressions to match lists.  These functions can be used in
 693 conjunction with `message-subscribed-regexps' and
 694 `message-subscribed-addresses'."
 695   :version "22.1"
 696   :group 'message-interface
 697   :link '(custom-manual "(message)Mailing Lists")
 698   :type '(repeat sexp))
 699
 700 (defcustom message-subscribed-address-file nil
 701   "*A file containing addresses the user is subscribed to.
 702 If nil, do not look at any files to determine list subscriptions.  If
 703 non-nil, each line of this file should be a mailing list address."
 704   :version "22.1"
 705   :group 'message-interface
 706   :link '(custom-manual "(message)Mailing Lists")
 707   :type '(radio file (const nil)))
 708
 709 (defcustom message-subscribed-addresses nil
 710   "*Specifies a list of addresses the user is subscribed to.
 711 If nil, do not use any predefined list subscriptions.  This list of
 712 addresses can be used in conjunction with
 713 `message-subscribed-address-functions' and `message-subscribed-regexps'."
 714   :version "22.1"
 715   :group 'message-interface
 716   :link '(custom-manual "(message)Mailing Lists")
 717   :type '(repeat string))
 718
 719 (defcustom message-subscribed-regexps nil
 720   "*Specifies a list of addresses the user is subscribed to.
 721 If nil, do not use any predefined list subscriptions.  This list of
 722 regular expressions can be used in conjunction with
 723 `message-subscribed-address-functions' and `message-subscribed-addresses'."
 724   :version "22.1"
 725   :group 'message-interface
 726   :link '(custom-manual "(message)Mailing Lists")
 727   :type '(repeat regexp))
 728
 729 (defcustom message-allow-no-recipients 'ask
 730   "Specifies what to do when there are no recipients other than Gcc/Fcc.
 731 If it is the symbol `always', the posting is allowed.  If it is the
 732 symbol `never', the posting is not allowed.  If it is the symbol
 733 `ask', you are prompted."
 734   :version "22.1"