Re: DSN [PATCH]

[Simon Josefsson <jas@extundo.com>]

Joseph Barillari <jbarilla@princeton.edu> writes:

>     SJ> Couldn't you simply set the (buffer local) variable
>     SJ> message-sendmail-use-dns-success in the message buffer for
>     SJ> that mail?
>
> Will a buffer-local variable be visible to message.el when it invokes
> sendmail?

Yup.  People are setting `sendmail-program',
`mail-specify-envelope-from' etc in message buffers for sendmail.el to
pick them up.

Come to think of it, it might make more sense to implement the DSN
support as a sendmail.el specific thing, as it really is.

What do you think of this patch instead?  The additional Gnus support
can consit of message.el commands to set the `mail-use-dsn' variable
buffer locally.

(Is there a better Custom :type for this?  There really should be.
The point is that you want the user to be able to chose any subset of
three elements.)

--- sendmail.el.~1.252.~	Wed Mar  6 19:42:59 2002
+++ sendmail.el	Wed Apr 24 19:47:12 2002
@@ -301,6 +301,15 @@
   :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))))
+
 ;; Note: could use /usr/ucb/mail instead of sendmail;
 ;; options -t, and -v if not interactive.
 (defvar mail-mailer-swallows-blank-line
@@ -991,6 +1000,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)))