Mercurial > hg > xemacs-beta

comparison lisp/gnus/messcompat.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children 360340f9fd5f
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; messcompat.el --- making message mode compatible with mail mode 1 ;;; messcompat.el --- making message mode compatible with mail mode
2 ;; Copyright (C) 1996 Free Software Foundation, Inc. 2 ;; Copyright (C) 1996,97 Free Software Foundation, Inc.
3 3
4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
5 ;; Keywords: mail, news 5 ;; Keywords: mail, news
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
61 61
62 (defvar message-indentation-spaces mail-indentation-spaces 62 (defvar message-indentation-spaces mail-indentation-spaces
63 "*Number of spaces to insert at the beginning of each cited line. 63 "*Number of spaces to insert at the beginning of each cited line.
64 Used by `message-yank-original' via `message-yank-cite'.") 64 Used by `message-yank-original' via `message-yank-cite'.")
65 65
66 (defvar message-cite-function (car mail-citation-hook)
67 "*Function for citing an original message.")
68
69 (defvar message-signature mail-signature 66 (defvar message-signature mail-signature
70 "*String to be inserted at the end of the message buffer. 67 "*String to be inserted at the end of the message buffer.
71 If t, the `message-signature-file' file will be inserted instead. 68 If t, the `message-signature-file' file will be inserted instead.
72 If a function, the result from the function will be used instead. 69 If a function, the result from the function will be used instead.
73 If a form, the result from the form will be used instead.") 70 If a form, the result from the form will be used instead.")
74 71
72 ;;;###autoload
75 (defvar message-signature-file mail-signature-file 73 (defvar message-signature-file mail-signature-file
76 "*File containing the text inserted at end of message. buffer.") 74 "*File containing the text inserted at end of message. buffer.")
77 75
78 (defvar message-default-headers mail-default-headers 76 (defvar message-default-headers mail-default-headers
79 "*A string containing header lines to be inserted in outgoing messages. 77 "*A string containing header lines to be inserted in outgoing messages.