From: ueno <ueno>
Date: Tue, 31 Oct 2000 13:36:42 +0000 (+0000)
Subject: (smtp-read-response): Don't use `push'.
X-Git-Tag: deisui-1_14_0-1~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c3cc5e1afec39c342bf63d34c4467f25f079d656;p=elisp%2Fflim.git

(smtp-read-response): Don't use `push'.
---

diff --git a/smtp.el b/smtp.el
index ab7a2fc..f55fd28 100644
--- a/smtp.el
+++ b/smtp.el
@@ -307,9 +307,9 @@ or `smtp-local-domain' correctly."))))))
       (goto-char
        (prog1 smtp-read-point
 	 (setq smtp-read-point (point))))
-      (when (looking-at "[1-5][0-9][0-9] ")
-	(setq response-continue nil)
-	(push (read (point-marker)) response)))
+      (if (looking-at "[1-5][0-9][0-9] ")
+	  (setq response (cons (read (point-marker)) response)
+		response-continue nil)))
     response))
 
 (defun smtp-send-command (process command)