X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=smtp.el;h=532bb14ad73de2411fe1014fda8d30dd95daec4c;hb=be4d87c2747c3766fe3c7fb1a466ec4cd3dd52a8;hp=c2c99374db906f3f27dfffe09ba52cc90aa9ac40;hpb=41fe6bdf8523a73c43e73612b5df85caa5622081;p=elisp%2Fflim.git

diff --git a/smtp.el b/smtp.el
index c2c9937..532bb14 100644
--- a/smtp.el
+++ b/smtp.el
@@ -1,10 +1,10 @@
 ;;; smtp.el --- basic functions to send mail with SMTP server
 
-;; Copyright (C) 1995, 1996, 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 1998, 1999 Free Software Foundation, Inc.
 
 ;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>
 ;;         Simon Leinen <simon@switch.ch> (ESMTP support)
-;;         Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+;;         Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
 ;; Keywords: SMTP, mail
 
 ;; This file is part of FLIM (Faithful Library about Internet Message).
@@ -20,13 +20,18 @@
 ;; General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; along with this program; see the file COPYING.  If not, write to the
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Code:
 
-(require 'mail-utils) ; pick up mail-strip-quoted-names
+(require 'poe)
+(require 'poem)
+(require 'pcustom)
+(require 'mail-utils)			; mail-strip-quoted-names
+
+(eval-when-compile (require 'cl))	; push
 
 (defgroup smtp nil
   "SMTP protocol for sending mail."
@@ -62,7 +67,17 @@ don't define this value."
   :type '(choice (const nil) string)
   :group 'smtp)
 
-(defvar smtp-debug-info nil)
+(defcustom smtp-debug-info nil
+  "*smtp debug info printout. messages and process buffer."
+  :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 ()
@@ -193,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))