From: okada <okada>
Date: Sun, 19 Nov 2000 20:20:41 +0000 (+0000)
Subject: fix typo
X-Git-Tag: wl-2_6-root~184
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=779f659836f21214777c331da5f391b809a48d2b;p=elisp%2Fwanderlust.git

fix typo
---

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 2d61a2e..daffa0b 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -257,7 +257,9 @@
 
 (luna-define-method elmo-network-authenticate-session ((session
 							elmo-pop3-session))
-  (let* ((process (elmo-network-session-process-internal session))
+  (with-current-buffer (process-buffer 
+			(elmo-network-session-process-internal session))
+    (let* ((process (elmo-network-session-process-internal session))
 	 (auth (elmo-network-session-auth-internal session))
 	 (auth (mapcar '(lambda (mechanism) (upcase (symbol-name mechanism)))
 		       (if (listp auth) auth (list auth))))
@@ -319,12 +321,12 @@
 	 step
 	 (elmo-base64-decode-string response))
 	(setq step (sasl-next-step client step))
-	(elmo-pop3-send-string
+	(elmo-pop3-send-command
 	 process
 	 (if (sasl-step-data step)
 	     (elmo-base64-encode-string (sasl-step-data step)
 					'no-line-break)
-	   ""))))))
+	   "")))))))
 
 (luna-define-method elmo-network-setup-session ((session
 						 elmo-pop3-session))