;;; 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-"
"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
(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.
(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