changeset 27245:7958d9720d8f

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

--- a/lisp/mail/sendmail.el	Sat Jan 08 15:20:57 2000 +0000
+++ b/lisp/mail/sendmail.el	Sat Jan 08 22:36:16 2000 +0000
@@ -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 @@
   "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 @@
       (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 @@
 	      (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