From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.bugs Subject: support DSN in sendmail.el Date: Wed, 24 Apr 2002 22:33:59 +0200 Sender: bug-gnu-emacs-admin@gnu.org Message-ID: NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1019680772 5567 127.0.0.1 (24 Apr 2002 20:39:32 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 24 Apr 2002 20:39:32 +0000 (UTC) Return-path: Original-Received: from fencepost.gnu.org ([199.232.76.164]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 170TY3-0001Rg-00 for ; Wed, 24 Apr 2002 22:39:32 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 170TY5-0006r8-00; Wed, 24 Apr 2002 16:39:33 -0400 Original-Received: from 178.230.13.217.in-addr.dgcsystems.net ([217.13.230.178] helo=yxa.extundo.com) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 170TT6-0006ZZ-00 for ; Wed, 24 Apr 2002 16:34:24 -0400 Original-Received: from localhost.localdomain (yxa.extundo.com [217.13.230.178]) (authenticated bits=0) by yxa.extundo.com (8.12.2/8.12.2) with ESMTP id g3OKYLKg003650 for ; Wed, 24 Apr 2002 22:34:21 +0200 Original-To: bug-gnu-emacs@gnu.org Original-Lines: 48 User-Agent: Gnus/5.090006 (Oort Gnus v0.06) Emacs/21.2 (i686-pc-linux-gnu) Errors-To: bug-gnu-emacs-admin@gnu.org X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.bugs:922 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:922 This implements DSN support for sendmail.el, if the MTA can handle it. I have not tested it at all, but it looks good. Note :version "21.3" again. 2002-04-24 Simon Josefsson * mail/sendmail.el (mail-use-dsn): New variable to request delivery status notification from MTA. (sendmail-send-it): Use it. --- sendmail.el.~1.252.~ Wed Mar 6 19:42:59 2002 +++ sendmail.el Wed Apr 24 22:31:31 2002 @@ -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 @@ :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 @@ ;;; (or resend-to-addresses '("-t") ;;; ) + (if mail-use-dsn + (list "-N" (mapconcat 'symbol-name + mail-use-dsn ","))) ) ) (exit-value (apply 'call-process-region args)))