Mercurial > emacs
comparison lisp/mail/sendmail.el @ 38965:0c180a4e348d
(mail-send-hook): Remove a duplicate defcustom.
From Simon Josefsson <jas@extundo.com>.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 27 Aug 2001 08:06:58 +0000 |
| parents | 99a7b10f0164 |
| children | cd06bcf39556 |
comparison
equal
deleted
inserted
replaced
| 38964:1ca385d18841 | 38965:0c180a4e348d |
|---|---|
| 357 (4 font-lock-comment-face nil t))) | 357 (4 font-lock-comment-face nil t))) |
| 358 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" | 358 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" |
| 359 . font-lock-string-face)))) | 359 . font-lock-string-face)))) |
| 360 "Additional expressions to highlight in Mail mode.") | 360 "Additional expressions to highlight in Mail mode.") |
| 361 | 361 |
| 362 (defcustom mail-send-hook nil | |
| 363 "Normal hook run before sending mail, in Mail mode." | |
| 364 :type 'hook | |
| 365 :group 'sendmail) | |
| 366 | 362 |
| 367 (defun sendmail-sync-aliases () | 363 (defun sendmail-sync-aliases () |
| 368 (let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) | 364 (let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) |
| 369 (or (equal mail-alias-modtime modtime) | 365 (or (equal mail-alias-modtime modtime) |
| 370 (setq mail-alias-modtime modtime | 366 (setq mail-alias-modtime modtime |