X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fmesscompat.el;h=c9f0f7dc09522ab0291cbda395e6e435bd342315;hb=15709bdc36fd78a8f367a301e0ca5f4b579569df;hp=337ab6f0118a44b37f295fb0b8bfd57fc406c279;hpb=15cf2c08a64d2e909855d9a4e9d53cc595543c51;p=elisp%2Fgnus.git-

diff --git a/lisp/messcompat.el b/lisp/messcompat.el
index 337ab6f..c9f0f7d 100644
--- a/lisp/messcompat.el
+++ b/lisp/messcompat.el
@@ -1,5 +1,5 @@
 ;;; messcompat.el --- making message mode compatible with mail mode
-;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97,98,99 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: mail, news
@@ -82,6 +82,11 @@ 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)
 
 ;;; messcompat.el ends here