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
   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-list-identifiers))       ; gnus-sum is required where necessary
  36
  37 (require 'mailheader)
  38 (require 'nnheader)
  39 ;; This is apparently necessary even though things are autoloaded:
  40 (if (featurep 'xemacs)
  41     (require 'mail-abbrevs))
  42 (require 'mail-parse)
  43 (require 'mml)
  44
  45 (defgroup message '((user-mail-address custom-variable)
  46                     (user-full-name custom-variable))
  47   "Mail and news message composing."
  48   :link '(custom-manual "(message)Top")
  49   :group 'mail
  50   :group 'news)
  51
  52 (put 'user-mail-address 'custom-type 'string)
  53 (put 'user-full-name 'custom-type 'string)
  54
  55 (defgroup message-various nil
  56   "Various Message Variables"
  57   :link '(custom-manual "(message)Various Message Variables")
  58   :group 'message)
  59
  60 (defgroup message-buffers nil
  61   "Message Buffers"
  62   :link '(custom-manual "(message)Message Buffers")
  63   :group 'message)
  64
  65 (defgroup message-sending nil
  66   "Message Sending"
  67   :link '(custom-manual "(message)Sending Variables")
  68   :group 'message)
  69
  70 (defgroup message-interface nil
  71   "Message Interface"
  72   :link '(custom-manual "(message)Interface")
  73   :group 'message)
  74
  75 (defgroup message-forwarding nil
  76   "Message Forwarding"
  77   :link '(custom-manual "(message)Forwarding")
  78   :group 'message-interface)
  79
  80 (defgroup message-insertion nil
  81   "Message Insertion"
  82   :link '(custom-manual "(message)Insertion")
  83   :group 'message)
  84
  85 (defgroup message-headers nil
  86   "Message Headers"
  87   :link '(custom-manual "(message)Message Headers")
  88   :group 'message)
  89
  90 (defgroup message-news nil
  91   "Composing News Messages"
  92   :group 'message)
  93
  94 (defgroup message-mail nil
  95   "Composing Mail Messages"
  96   :group 'message)
  97
  98 (defgroup message-faces nil
  99   "Faces used for message composing."
 100   :group 'message
 101   :group 'faces)
 102
 103 (defcustom message-directory "~/Mail/"
 104   "*Directory from which all other mail file variables are derived."
 105   :group 'message-various
 106   :type 'directory)
 107
 108 (defcustom message-max-buffers 10
 109   "*How many buffers to keep before starting to kill them off."
 110   :group 'message-buffers
 111   :type 'integer)
 112
 113 (defcustom message-send-rename-function nil
 114   "Function called to rename the buffer after sending it."
 115   :group 'message-buffers
 116   :type 'function)
 117
 118 (defcustom message-fcc-handler-function 'message-output
 119   "*A function called to save outgoing articles.
 120 This function will be called with the name of the file to store the
 121 article in.  The default function is `message-output' which saves in Unix
 122 mailbox format."
 123   :type '(radio (function-item message-output)
 124                 (function :tag "Other"))
 125   :group 'message-sending)
 126
 127 (defcustom message-courtesy-message
 128   "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
 129   "*This is inserted at the start of a mailed copy of a posted message.
 130 If the string contains the format spec \"%s\", the Newsgroups
 131 the article has been posted to will be inserted there.
 132 If this variable is nil, no such courtesy message will be added."
 133   :group 'message-sending
 134   :type 'string)
 135
 136 (defcustom message-ignored-bounced-headers "^\\(Received\\|Return-Path\\):"
 137   "*Regexp that matches headers to be removed in resent bounced mail."
 138   :group 'message-interface
 139   :type 'regexp)
 140
 141 ;;;###autoload
 142 (defcustom message-from-style 'default
 143   "*Specifies how \"From\" headers look.
 144
 145 If `nil', they contain just the return address like:
 146         king@grassland.com
 147 If `parens', they look like:
 148         king@grassland.com (Elvis Parsley)
 149 If `angles', they look like:
 150         Elvis Parsley <king@grassland.com>
 151
 152 Otherwise, most addresses look like `angles', but they look like
 153 `parens' if `angles' would need quoting and `parens' would not."
 154   :type '(choice (const :tag "simple" nil)
 155                  (const parens)
 156                  (const angles)
 157                  (const default))
 158   :group 'message-headers)
 159
 160 (defcustom message-syntax-checks nil
 161   ;; Guess this one shouldn't be easy to customize...
 162   "*Controls what syntax checks should not be performed on outgoing posts.
 163 To disable checking of long signatures, for instance, add
 164  `(signature . disabled)' to this list.
 165
 166 Don't touch this variable unless you really know what you're doing.
 167
 168 Checks include subject-cmsg multiple-headers sendsys message-id from
 169 long-lines control-chars size new-text quoting-style
 170 redirected-followup signature approved sender empty empty-headers
 171 message-id from subject shorten-followup-to existing-newsgroups
 172 buffer-file-name unchanged newsgroups."
 173   :group 'message-news
 174   :type '(repeat sexp))
 175
 176 (defcustom message-required-news-headers
 177   '(From Newsgroups Subject Date Message-ID
 178          (optional . Organization) Lines
 179          (optional . User-Agent))
 180   "*Headers to be generated or prompted for when posting an article.
 181 RFC977 and RFC1036 require From, Date, Newsgroups, Subject,
 182 Message-ID.  Organization, Lines, In-Reply-To, Expires, and
 183 User-Agent are optional.  If don't you want message to insert some
 184 header, remove it from this list."
 185   :group 'message-news
 186   :group 'message-headers
 187   :type '(repeat sexp))
 188
 189 (defcustom message-required-mail-headers
 190   '(From Subject Date (optional . In-Reply-To) Message-ID Lines
 191          (optional . User-Agent))
 192   "*Headers to be generated or prompted for when mailing a message.
 193 RFC822 required that From, Date, To, Subject and Message-ID be
 194 included.  Organization, Lines and User-Agent are optional."
 195   :group 'message-mail
 196   :group 'message-headers
 197   :type '(repeat sexp))
 198
 199 (defcustom message-deletable-headers '(Message-ID Date Lines)
 200   "Headers to be deleted if they already exist and were generated by message previously."
 201   :group 'message-headers
 202   :type 'sexp)
 203
 204 (defcustom message-ignored-news-headers
 205   "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:"
 206   "*Regexp of headers to be removed unconditionally before posting."
 207   :group 'message-news
 208   :group 'message-headers
 209   :type 'regexp)
 210
 211 (defcustom message-ignored-mail-headers "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:"
 212   "*Regexp of headers to be removed unconditionally before mailing."
 213   :group 'message-mail
 214   :group 'message-headers
 215   :type 'regexp)
 216
 217 (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:"
 218   "*Header lines matching this regexp will be deleted before posting.
 219 It's best to delete old Path and Date headers before posting to avoid
 220 any confusion."
 221   :group 'message-interface
 222   :type 'regexp)
 223
 224 (defcustom message-subject-re-regexp "^[ \t]*\\([Rr][Ee]:[ \t]*\\)*[ \t]*"
 225   "*Regexp matching \"Re: \" in the subject line."
 226   :group 'message-various
 227   :type 'regexp)
 228
 229 ;;;###autoload
 230 (defcustom message-signature-separator "^-- *$"
 231   "Regexp matching the signature separator."
 232   :type 'regexp
 233   :group 'message-various)
 234
 235 (defcustom message-elide-ellipsis "\n[...]\n\n"
 236   "*The string which is inserted for elided text."
 237   :type 'string
 238   :group 'message-various)
 239
 240 (defcustom message-interactive nil
 241   "Non-nil means when sending a message wait for and display errors.
 242 nil means let mailer mail back a message to report errors."
 243   :group 'message-sending
 244   :group 'message-mail
 245   :type 'boolean)
 246
 247 (defcustom message-generate-new-buffers 'unique
 248   "*Non-nil means that a new message buffer will be created whenever `message-setup' is called.
 249 If this is a function, call that function with three parameters:  The type,
 250 the to address and the group name.  (Any of these may be nil.)  The function
 251 should return the new buffer name."
 252   :group 'message-buffers