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

   1 ;;; messcompat.el --- making message mode compatible with mail mode
   2 ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
   3
   4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   5 ;; Keywords: mail, news
   6
   7 ;; This file is part of GNU Emacs.
   8
   9 ;; GNU Emacs is free software; you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation; either version 2, or (at your option)
  12 ;; any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  22 ;; Boston, MA 02111-1307, USA.
  23
  24 ;;; Commentary:
  25
  26 ;; This file tries to provide backward compatability 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 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 (provide 'messcompat)
  86
  87 ;;; messcompat.el ends here