* net/browse-url.el (browse-url):
[emacs.git] / lisp / gnus / messcompat.el
blobfed18238b2056a95908c95350ae87305124dd9c0
1 ;;; messcompat.el --- making message mode compatible with mail mode
3 ;; Copyright (C) 1996-2014 Free Software Foundation, Inc.
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6 ;; Keywords: mail, news
8 ;; This file is part of GNU Emacs.
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.
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.
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/>.
23 ;;; Commentary:
25 ;; This file tries to provide backward compatibility with sendmail.el
26 ;; for Message mode. It should be used by simply adding
28 ;; (require 'messcompat)
30 ;; to the .emacs file. Loading it after Message mode has been
31 ;; loaded will have no effect.
33 ;;; Code:
35 (require 'sendmail)
37 (defvar message-from-style mail-from-style
38 "*Specifies how \"From\" headers look.
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>
47 Otherwise, most addresses look like `angles', but they look like
48 `parens' if `angles' would need quoting and `parens' would not.")
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.")
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.")
58 (if (boundp 'mail-mode-hook)
59 (defvar message-mode-hook mail-mode-hook
60 "Hook run in message mode buffers."))
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'.")
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.")
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.")
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.")
81 (defvar message-send-hook mail-send-hook
82 "Hook run before sending messages.")
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'.")
89 (provide 'messcompat)
91 ;;; messcompat.el ends here