From: okazaki <okazaki>
Date: Sat, 27 Mar 2004 22:07:20 +0000 (+0000)
Subject: (elmo-pop3-send-command): Combine `process-send-string' calls.
X-Git-Tag: wl-2_11_25~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6409544f77927dbab303f0b193a1a2a8852a17e2;p=elisp%2Fwanderlust.git

(elmo-pop3-send-command): Combine `process-send-string' calls.
---

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index cc4405b..5752b63 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -197,8 +197,7 @@ If IF-EXISTS is `any-exists', get BIFF session or normal session if exists."
     (goto-char (point-min))
     (setq elmo-pop3-read-point (point))
     (elmo-pop3-debug "SEND: %s\n" (if no-log "<NO LOGGING>" command))
-    (process-send-string process command)
-    (process-send-string process "\r\n")))
+    (process-send-string process (concat command "\r\n"))))
 
 (defun elmo-pop3-read-response (process &optional not-command)
   ;; buffer is in case for process is dead.