[Emacs-diffs] Changes to emacs/lisp/gnus/messcompat.el [gnus-5_10-branch]

[Andreas Schwab]

Index: emacs/lisp/gnus/messcompat.el
diff -c /dev/null emacs/lisp/gnus/messcompat.el:1.6.2.1
*** /dev/null   Thu Jul 22 16:47:03 2004
--- emacs/lisp/gnus/messcompat.el       Thu Jul 22 16:45:50 2004
***************
*** 0 ****
--- 1,95 ----
+ ;;; messcompat.el --- making message mode compatible with mail mode
+ 
+ ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003
+ ;;    Free Software Foundation, Inc.
+ 
+ ;; Author: Lars Magne Ingebrigtsen <address@hidden>
+ ;; Keywords: mail, news
+ 
+ ;; This file is part of GNU Emacs.
+ 
+ ;; GNU Emacs is free software; you can redistribute it and/or modify
+ ;; it under the terms of the GNU General Public License as published by
+ ;; the Free Software Foundation; either version 2, or (at your option)
+ ;; any later version.
+ 
+ ;; GNU Emacs is distributed in the hope that it will be useful,
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.        See the
+ ;; GNU General Public License for more details.
+ 
+ ;; You should have received a copy of the GNU General Public License
+ ;; along with GNU Emacs; see the file COPYING.  If not, write to the
+ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+ 
+ ;;; Commentary:
+ 
+ ;; This file tries to provide backward compatibility with sendmail.el
+ ;; for Message mode.  It should be used by simply adding
+ ;;
+ ;; (require 'messcompat)
+ ;;
+ ;; to the .emacs file.  Loading it after Message mode has been
+ ;; loaded will have no effect.
+ 
+ ;;; Code:
+ 
+ (require 'sendmail)
+ 
+ (defvar message-from-style mail-from-style
+   "*Specifies how \"From\" headers look.
+ 
+ If nil, they contain just the return address like:
+       address@hidden
+ If `parens', they look like:
+       address@hidden (Elvis Parsley)
+ If `angles', they look like:
+       Elvis Parsley <address@hidden>
+ 
+ Otherwise, most addresses look like `angles', but they look like
+ `parens' if `angles' would need quoting and `parens' would not.")
+ 
+ (defvar message-interactive mail-interactive
+   "Non-nil means when sending a message wait for and display errors.
+ nil means let mailer mail back a message to report errors.")
+ 
+ (defvar message-setup-hook mail-setup-hook
+   "Normal hook, run each time a new outgoing message is initialized.
+ The function `message-setup' runs this hook.")
+ 
+ (if (boundp 'mail-mode-hook)
+     (defvar message-mode-hook mail-mode-hook
+       "Hook run in message mode buffers."))
+ 
+ (defvar message-indentation-spaces mail-indentation-spaces
+   "*Number of spaces to insert at the beginning of each cited line.
+ Used by `message-yank-original' via `message-yank-cite'.")
+ 
+ (defvar message-signature mail-signature
+   "*String to be inserted at the end of the message buffer.
+ If t, the `message-signature-file' file will be inserted instead.
+ If a function, the result from the function will be used instead.
+ If a form, the result from the form will be used instead.")
+ 
+ ;; Deleted the autoload cookie because this crashes in loaddefs.el.
+ (defvar message-signature-file mail-signature-file
+   "*File containing the text inserted at end of the message buffer.")
+ 
+ (defvar message-default-headers mail-default-headers
+   "*A string containing header lines to be inserted in outgoing messages.
+ It is inserted before you edit the message, so you can edit or delete
+ these lines.")
+ 
+ (defvar message-send-hook mail-send-hook
+   "Hook run before sending messages.")
+ 
+ (defvar message-send-mail-function send-mail-function
+   "Function to call to send the current buffer as mail.
+ The headers should be delimited by a line whose contents match the
+ variable `mail-header-separator'.")
+ 
+ (provide 'messcompat)
+ 
+ ;;; arch-tag: a76673be-905e-4bbd-8966-615370494a7b
+ ;;; messcompat.el ends here