From 9e0f2f131ce79111a7bcc53e58015d54b3b35ba8 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 12 Aug 1999 02:42:14 +0000 Subject: [PATCH] From Mikio Nakajima [tm-ja:4872,4877]: 1999-08-03 Yuuichi Teranishi * 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. --- smtp.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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: (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)) -- 1.7.10.4