From: ueno <ueno>
Date: Thu, 2 Nov 2000 19:20:48 +0000 (+0000)
Subject: (smtp-primitive-rcptto): Fix typo.
X-Git-Tag: deisui-1_14_0-1~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=68dbb49e269d55e26a6a074da7231c7a4efb3545;p=elisp%2Fflim.git

(smtp-primitive-rcptto): Fix typo.
---

diff --git a/smtp.el b/smtp.el
index 61d493d..3f8324a 100644
--- a/smtp.el
+++ b/smtp.el
@@ -464,10 +464,10 @@ of the host to connect to.  SERVICE is name of the service desired."
 	 response)
     (while recipients
       (smtp-send-command
-       process (format "RCPT TO:<%s>" (pop recipients))))
-    (setq response (smtp-read-response process))
-    (unless (memq (car response) '(250 251))
-      (smtp-response-error response))))
+       process (format "RCPT TO:<%s>" (pop recipients)))
+      (setq response (smtp-read-response process))
+      (unless (memq (car response) '(250 251))
+	(smtp-response-error response)))))
 
 (defun smtp-primitive-data (package)
   (let* ((connection