Re: DSN [PATCH]

[Joseph Barillari <jbarilla@princeton.edu>]

[-- Attachment #1: Type: text/plain, Size: 364 bytes --]

I've attached the DSN patch w.r.t. the latest Gnus source in CVS,
including documentation. How might I go about adding a control to
quickly switch the option on or off at composition time, as Simon
Josefsson suggested? I leave it on all the time, because I catch the
flood of receipts with procmail, but I assume this isn't everybody's
preferred behavior.

--Joe


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2.1: DSN patch --]
[-- Type: text/x-patch, Size: 3484 bytes --]

diff -urN -x CVS gnus/lisp/message.el mygnus/lisp/message.el
--- gnus/lisp/message.el	Sat Apr 20 22:42:45 2002
+++ mygnus/lisp/message.el	Tue Apr 23 16:06:03 2002
@@ -265,6 +265,26 @@
   :group 'message-mail
   :type 'boolean)
 
+(defcustom message-sendmail-use-dsn-failure nil
+  "If this variable is non-nil, ask the MTA for notification by mail
+   of failed delivery. Note that only some MTAs (namely recent versions 
+   of Sendmail) support Delivery Status Notification."
+  :group 'message-sending
+  :type 'boolean)
+
+(defcustom message-sendmail-use-dsn-delay nil
+  "If this variable is non-nil, ask the sendmail for notification by mail of
+ delayed delivery."
+  :group 'message-sending
+  :type 'boolean)
+
+(defcustom message-sendmail-use-dsn-success nil
+  "If this variable is non-nil, ask sendmail for notification by mail
+ of successful delivery."
+  :group 'message-sending
+  :type 'boolean)
+
+
 (defcustom message-generate-new-buffers 'unique
   "*Non-nil means create a new message buffer whenever `message-setup' is called.
 If this is a function, call that function with three parameters:  The type,
@@ -3005,6 +3025,20 @@
 		     ;; we'll let users override this.
 		     (if (null message-sendmail-f-is-evil)
 			 (list "-f" (message-make-address)))
+		     ;; Insert DSN-related command line arguments
+		     (if (or message-sendmail-use-dsn-failure
+			      message-sendmail-use-dsn-delay 
+			      message-sendmail-use-dsn-success)
+			  (list 
+			   (concat "-N" 
+			     (if message-sendmail-use-dsn-failure "failure") 
+			     (if (and message-sendmail-use-dsn-failure 
+				   message-sendmail-use-dsn-delay ) ",")
+			     (if message-sendmail-use-dsn-delay "delay")
+			     (if (and message-sendmail-use-dsn-success 
+				   message-sendmail-use-dsn-delay ) ",")
+			     (if message-sendmail-use-dsn-success "success")
+			  )))
 		     ;; These mean "report errors by mail"
 		     ;; and "deliver in background".
 		     (if (null message-interactive) '("-oem" "-odb"))
diff -urN -x CVS gnus/texi/message.texi mygnus/texi/message.texi
--- gnus/texi/message.texi	Mon Apr  8 17:58:00 2002
+++ mygnus/texi/message.texi	Tue Apr 23 15:56:57 2002
@@ -1242,6 +1242,27 @@
 The lower bound of message size in characters, beyond which the message 
 should be sent in several parts. If it is nil, the size is unlimited.
 
+@item message-sendmail-use-dsn-failure
+@vindex message-sendmail-use-dsn-failure
+Set this to non-@code{nil} to tell Sendmail to request downstream MTAs
+to generate DSN (RFC 1891) response messages if delivery fails. Note
+that this does not work with all versions of Sendmail. Support from
+downstream MTAs varies by vendor and product.
+
+@item message-sendmail-use-dsn-success
+@vindex message-sendmail-use-dsn-success
+Set this to non-@code{nil} to tell Sendmail to request downstream MTAs
+to generate DSN (RFC 1891) response messages if delivery
+succeeds. Note that this does not work with all versions of
+Sendmail. Support from downstream MTAs varies by vendor and product.
+
+@item message-sendmail-use-dsn-delay
+@vindex message-sendmail-use-dsn-delay
+Set this to non-@code{nil} to tell Sendmail to request downstream MTAs
+to generate DSN (RFC 1891) response messages if delivery is
+delayed. Note that this does not work with all versions of
+Sendmail. Support from downstream MTAs varies by vendor and product.
+
 @end table
 
 

[-- Attachment #2.2: Type: application/pgp-signature, Size: 268 bytes --]