From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 25 Apr 2002 21:33:38 +0000 (+0000)
Subject: (mail-use-dsn): New variable to request delivery status notification from MTA.
X-Git-Tag: ttn-vms-21-2-B4~15397
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b0b4ce761b6425a952e49a1f23c3adfbf3f0ff8;p=emacs.git

(mail-use-dsn): New variable to request delivery status notification from MTA.
(sendmail-send-it): Use it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8142aa3fcce..824b5544032 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-25  Simon Josefsson  <jas@extundo.com>
+
+	* mail/sendmail.el (mail-use-dsn): New variable to request
+	delivery status notification from MTA.
+	(sendmail-send-it): Use it.
+
 2002-04-25  Colin Walters  <walters@verbum.org>
 
 	* replace.el (multi-occur-by-filename-regexp): Doc fix.
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 9097fd3e3d0..a4610ed13e9 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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 @@ for the recipient, who may not know how to decode them properly."
   :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 @@ external program defined by `sendmail-program'."
 ;;;			      (or resend-to-addresses
 				  '("-t")
 ;;;				  )
+			      (if mail-use-dsn
+				  (list "-N" (mapconcat 'symbol-name
+							mail-use-dsn ",")))
 			      )
 		      )
 		     (exit-value (apply 'call-process-region args)))