[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el

[Richard M. Stallman]

Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.252 emacs/lisp/mail/sendmail.el:1.253
*** emacs/lisp/mail/sendmail.el:1.252   Sun Mar  3 17:18:12 2002
--- emacs/lisp/mail/sendmail.el Thu Apr 25 17:33:14 2002
***************
*** 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
  ;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
--- 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, 2002
  ;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
***************
*** 301,306 ****
--- 301,316 ----
    :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,996 ****
--- 1001,1009 ----
  ;;;                         (or resend-to-addresses
                                  '("-t")
  ;;;                             )
+                             (if mail-use-dsn
+                                 (list "-N" (mapconcat 'symbol-name
+                                                       mail-use-dsn ",")))
                              )
                      )
                     (exit-value (apply 'call-process-region args)))