From: morioka <morioka>
Date: Thu, 12 Aug 1999 02:42:14 +0000 (+0000)
Subject: From Mikio Nakajima <minakaji@osaka.email.ne.jp> [tm-ja:4872,4877]:
X-Git-Tag: flim-1_13_2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9e0f2f131ce79111a7bcc53e58015d54b3b35ba8;p=elisp%2Fflim.git

From Mikio Nakajima <minakaji@osaka.email.ne.jp> [tm-ja:4872,4877]:

1999-08-03  Yuuichi Teranishi <teranisi@gohome.org>

	* smtp.el (smtp-notify-success): New option.
	* (smtp-via-smtp): Request return receipt (defined in RFC1891) to
	SMTP server if `smtp-notify-success' is non-nil.
---

diff --git a/smtp.el b/smtp.el
index 47d082a..532bb14 100644
--- a/smtp.el
+++ b/smtp.el
@@ -72,6 +72,12 @@ don't define this value."
   :type 'boolean
   :group 'smtp)
 
+(defcustom smtp-notify-success nil
+  "*If non-nil, notification for successful mail delivery is returned 
+ to user (RFC1891)."
+  :type 'boolean
+  :group 'smtp)
+ 
 (defvar smtp-read-point nil)
 
 (defun smtp-make-fqdn ()
@@ -202,7 +208,11 @@ don't define this value."
 	    ;; RCPT TO:<recipient>
 	    (while recipients
 	      (smtp-send-command process
-				 (format "RCPT TO:<%s>" (car recipients)))
+				 (format
+				  (if smtp-notify-success
+				      "RCPT TO:<%s> NOTIFY=SUCCESS" 
+				    "RCPT TO:<%s>")
+				  (car recipients)))
 	      (setq recipients (cdr recipients))
 	      (setq response (smtp-read-response process))
 	      (if (or (null (car response))