Mercurial > hg > xemacs-beta

comparison lisp/gnus/messcompat.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents ac2d302a0011
children ec9a17fef872
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
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.