]> git.eshelyaron.com Git - emacs.git/commitdiff
Require rmail, mailalias when compiling.
authorDave Love <fx@gnu.org>
Sat, 8 Jan 2000 22:36:16 +0000 (22:36 +0000)
committerDave Love <fx@gnu.org>
Sat, 8 Jan 2000 22:36:16 +0000 (22:36 +0000)
(mail-setup-hook): Add :options.
(mail-mode-hook, mail-send-hook): Customize.

lisp/mail/sendmail.el

index e4da1dcddb4f6e8ed8b60ab27b2c8a68923b1b05..a2b74d0de5f59012176b9bc1c8952e997e66f324 100644 (file)
@@ -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
 ;; 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))
 \f
+(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