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
   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 'canlock)
  38 (require 'mailheader)
  39 (require 'nnheader)
  40 ;; This is apparently necessary even though things are autoloaded.
  41 ;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better
  42 ;; require mailabbrev here.
  43 (if (featurep 'xemacs)
  44     (require 'mail-abbrevs)
  45   (require 'mailabbrev))
  46 (require 'mail-parse)
  47 (require 'mml)
  48 (require 'rfc822)
  49 (eval-and-compile
  50   (autoload 'sha1 "sha1-el")
  51   (autoload 'gnus-find-method-for-group "gnus")
  52   (autoload 'nnvirtual-find-group-art "nnvirtual")
  53   (autoload 'gnus-group-decoded-name "gnus-group"))
  54
  55 (defgroup message '((user-mail-address custom-variable)
  56                     (user-full-name custom-variable))
  57   "Mail and news message composing."
  58   :link '(custom-manual "(message)Top")
  59   :group 'mail
  60   :group 'news)
  61
  62 (put 'user-mail-address 'custom-type 'string)
  63 (put 'user-full-name 'custom-type 'string)
  64
  65 (defgroup message-various nil
  66   "Various Message Variables"
  67   :link '(custom-manual "(message)Various Message Variables")
  68   :group 'message)
  69
  70 (defgroup message-buffers nil
  71   "Message Buffers"
  72   :link '(custom-manual "(message)Message Buffers")
  73   :group 'message)
  74
  75 (defgroup message-sending nil
  76   "Message Sending"
  77   :link '(custom-manual "(message)Sending Variables")
  78   :group 'message)
  79
  80 (defgroup message-interface nil
  81   "Message Interface"
  82   :link '(custom-manual "(message)Interface")
  83   :group 'message)
  84
  85 (defgroup message-forwarding nil
  86   "Message Forwarding"
  87   :link '(custom-manual "(message)Forwarding")
  88   :group 'message-interface)
  89
  90 (defgroup message-insertion nil
  91   "Message Insertion"
  92   :link '(custom-manual "(message)Insertion")
  93   :group 'message)
  94
  95 (defgroup message-headers nil
  96   "Message Headers"
  97   :link '(custom-manual "(message)Message Headers")
  98   :group 'message)
  99
 100 (defgroup message-news nil
 101   "Composing News Messages"
 102   :group 'message)
 103
 104 (defgroup message-mail nil
 105   "Composing Mail Messages"
 106   :group 'message)
 107
 108 (defgroup message-faces nil
 109   "Faces used for message composing."
 110   :group 'message
 111   :group 'faces)
 112
 113 (defcustom message-directory "~/Mail/"
 114   "*Directory from which all other mail file variables are derived."
 115   :group 'message-various
 116   :type 'directory)
 117
 118 (defcustom message-max-buffers 10
 119   "*How many buffers to keep before starting to kill them off."
 120   :group 'message-buffers
 121   :type 'integer)
 122
 123 (defcustom message-send-rename-function nil
 124   "Function called to rename the buffer after sending it."
 125   :group 'message-buffers
 126   :type '(choice function (const nil)))
 127
 128 (defcustom message-fcc-handler-function 'message-output
 129   "*A function called to save outgoing articles.
 130 This function will be called with the name of the file to store the
 131 article in.  The default function is `message-output' which saves in Unix
 132 mailbox format."
 133   :type '(radio (function-item message-output)
 134                 (function :tag "Other"))
 135   :group 'message-sending)
 136
 137 (defcustom message-fcc-externalize-attachments nil
 138   "If non-nil, attachments are included as external parts in Fcc copies."
 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 :format "%t: %v\n" :size 0) (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 ;;;###autoload
 158 (defcustom message-from-style 'default
 159   "*Specifies how \"From\" headers look.
 160
 161 If nil, they contain just the return address like:
 162         king@grassland.com
 163 If `parens', they look like:
 164         king@grassland.com (Elvis Parsley)
 165 If `angles', they look like:
 166         Elvis Parsley <king@grassland.com>
 167
 168 Otherwise, most addresses look like `angles', but they look like
 169 `parens' if `angles' would need quoting and `parens' would not."
 170   :type '(choice (const :tag "simple" nil)
 171                  (const parens)
 172                  (const angles)
 173                  (const default))
 174   :group 'message-headers)
 175
 176 (defcustom message-insert-canlock t
 177   "Whether to insert a Cancel-Lock header in news postings."
 178   :version "21.3"
 179   :group 'message-headers
 180   :type 'boolean)
 181
 182 (defcustom message-syntax-checks
 183   (if message-insert-canlock '((sender . disabled)) nil)
 184   ;; Guess this one shouldn't be easy to customize...
 185   "*Controls what syntax checks should not be performed on outgoing posts.
 186 To disable checking of long signatures, for instance, add
 187  `(signature . disabled)' to this list.
 188
 189 Don't touch this variable unless you really know what you're doing.
 190