Mercurial > emacs
changeset 44861:de1bcec6e403
(mail-use-dsn): New variable to request delivery status notification from MTA.
(sendmail-send-it): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Apr 2002 21:33:14 +0000 |
| parents | 72ec4ee68d47 |
| children | cedfc838268a |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Thu Apr 25 21:12:09 2002 +0000 +++ b/lisp/mail/sendmail.el Thu Apr 25 21:33:14 2002 +0000 @@ -1,6 +1,6 @@ ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- -;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001 +;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -301,6 +301,16 @@ :type '(choice (const t) (const nil) (const query) (const mime)) :group 'sendmail) +(defcustom mail-use-dsn nil + "*Ask MTA for notification of failed, delayed or successful delivery. +Note that only some MTAs (currently only recent versions of Sendmail) +support Delivery Status Notification." + :group 'sendmail + :type '(repeat (radio (const :tag "Failure" failure) + (const :tag "Delay" delay) + (const :tag "Success" success))) + :version "21.3") + ;; Note: could use /usr/ucb/mail instead of sendmail; ;; options -t, and -v if not interactive. (defvar mail-mailer-swallows-blank-line @@ -991,6 +1001,9 @@ ;;; (or resend-to-addresses '("-t") ;;; ) + (if mail-use-dsn + (list "-N" (mapconcat 'symbol-name + mail-use-dsn ","))) ) ) (exit-value (apply 'call-process-region args)))