lisp/gnus/messcompat.el

   1 ;;; messcompat.el --- making message mode compatible with mail mode
   2
   3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   4 ;;   2005, 2006, 2007, 2008, 2009, 2010 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 3 of the License, or
  14 ;; (at your option) 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.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  26 ;; This file tries to provide backward compatibility with sendmail.el
  27 ;; for Message mode.  It should be used by simply adding
  28 ;;
  29 ;; (require 'messcompat)
  30 ;;
  31 ;; to the .emacs file.  Loading it after Message mode has been
  32 ;; loaded will have no effect.
  33
  34 ;;; Code:
  35
  36 (require 'sendmail)
  37
  38 (defvar message-from-style mail-from-style
  39   "*Specifies how \"From\" headers look.
  40
  41 If nil, they contain just the return address like:
  42         king@grassland.com
  43 If `parens', they look like:
  44         king@grassland.com (Elvis Parsley)
  45 If `angles', they look like:
  46         Elvis Parsley <king@grassland.com>
  47
  48 Otherwise, most addresses look like `angles', but they look like
  49 `parens' if `angles' would need quoting and `parens' would not.")
  50
  51 (defvar message-interactive mail-interactive
  52   "Non-nil means when sending a message wait for and display errors.
  53 nil means let mailer mail back a message to report errors.")
  54
  55 (defvar message-setup-hook mail-setup-hook
  56   "Normal hook, run each time a new outgoing message is initialized.
  57 The function `message-setup' runs this hook.")
  58
  59 (if (boundp 'mail-mode-hook)
  60     (defvar message-mode-hook mail-mode-hook
  61       "Hook run in message mode buffers."))
  62
  63 (defvar message-indentation-spaces mail-indentation-spaces
  64   "*Number of spaces to insert at the beginning of each cited line.
  65 Used by `message-yank-original' via `message-yank-cite'.")
  66
  67 (defvar message-signature mail-signature
  68   "*String to be inserted at the end of the message buffer.
  69 If t, the `message-signature-file' file will be inserted instead.
  70 If a function, the result from the function will be used instead.
  71 If a form, the result from the form will be used instead.")
  72
  73 ;; Deleted the autoload cookie because this crashes in loaddefs.el.
  74 (defvar message-signature-file mail-signature-file
  75   "*File containing the text inserted at end of the message buffer.")
  76
  77 (defvar message-default-headers mail-default-headers
  78   "*A string containing header lines to be inserted in outgoing messages.
  79 It is inserted before you edit the message, so you can edit or delete
  80 these lines.")
  81
  82 (defvar message-send-hook mail-send-hook
  83   "Hook run before sending messages.")
  84
  85 (defvar message-send-mail-function send-mail-function
  86   "Function to call to send the current buffer as mail.
  87 The headers should be delimited by a line whose contents match the
  88 variable `mail-header-separator'.")
  89
  90 (provide 'messcompat)
  91
  92 ;;; messcompat.el ends here