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 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., 51 Franklin Street, Fifth Floor, 24;; Boston, MA 02110-1301, USA. 25 26;;; Commentary: 27 28;; This file tries to provide backward compatibility 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 43If nil, they contain just the return address like: 44 king@grassland.com 45If `parens', they look like: 46 king@grassland.com (Elvis Parsley) 47If `angles', they look like: 48 Elvis Parsley <king@grassland.com> 49 50Otherwise, 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. 55nil 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. 59The 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. 67Used 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. 71If t, the `message-signature-file' file will be inserted instead. 72If a function, the result from the function will be used instead. 73If 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. 81It is inserted before you edit the message, so you can edit or delete 82these 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. 89The headers should be delimited by a line whose contents match the 90variable `mail-header-separator'.") 91 92(provide 'messcompat) 93 94;;; arch-tag: a76673be-905e-4bbd-8966-615370494a7b 95;;; messcompat.el ends here 96