From: Dave Love <fx@gnu.org>
Date: Sat, 8 Jan 2000 22:36:16 +0000 (+0000)
Subject: Require rmail, mailalias when compiling.
X-Git-Tag: emacs-pretest-21.0.90~5415
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be0b8d69651fd9fd97f05c824e6084fe18f0cb39;p=emacs.git

Require rmail, mailalias when compiling.
(mail-setup-hook): Add :options.
(mail-mode-hook, mail-send-hook): Customize.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index e4da1dcddb4..a2b74d0de5f 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1,6 +1,6 @@
 ;;; sendmail.el --- mail sending commands for Emacs.
 
-;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 86, 92-96, 98, 2000 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: mail
@@ -28,6 +28,10 @@
 ;; documented in the Emacs user's manual.
 
 ;;; Code:
+(eval-when-compile
+  (require 'rmail)
+  (require 'mailalias))
+
 (defgroup sendmail nil
   "Mail sending commands for Emacs."
   :prefix "mail-"
@@ -146,6 +150,7 @@ This file need not actually exist."
   "Normal hook, run each time a new outgoing mail message is initialized.
 The function `mail-setup' runs this hook."
   :type 'hook
+  :options '(fortune-to-signature spook)
   :group 'sendmail)
 
 (defvar mail-aliases t
@@ -424,6 +429,12 @@ actually occur.")
       (set-buffer-modified-p nil))
   (run-hooks 'mail-setup-hook))
 
+(defcustom mail-mode-hook nil
+  "Hook run by Mail mode."
+  :group 'sendmail
+  :type 'hook
+  :options '(footnote-mode))
+
 ;;;###autoload
 (defun mail-mode ()
   "Major mode for editing mail to be sent.
@@ -677,6 +688,12 @@ Prefix arg means don't delete this window."
 	      (delete-window))
 	  (switch-to-buffer newbuf))))))
 
+(defcustom mail-send-hook nil
+  "Hook run just before sending mail with `mail-send'."
+  :type 'hook
+  :options '(flyspell-mode-off)
+  :group 'sendmail)
+
 (defun mail-send ()
   "Send the message in the current buffer.
 If `mail-interactive' is non-nil, wait for success indication