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

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