lisp/gnus/messcompat.el

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