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