From: teranisi <teranisi>
Date: Fri, 15 Jun 2001 03:52:56 +0000 (+0000)
Subject: (elmo-network-initialize-session): Call elmo-pop3-lock.
X-Git-Tag: wl-2_6-root~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=46b78d195741a2fcf63cdaaf09382506a3a1fd0c;p=elisp%2Fwanderlust.git

(elmo-network-initialize-session): Call elmo-pop3-lock.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index cade251..5b2bd23 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -14,6 +14,7 @@
 	(elmo-pop3-read-msg): Ditto.
 	(elmo-pop3-locked-p): Call elmo-pop3-debug.
 	(elmo-pop3-read-body): Call elmo-pop3-unlock.
+	(elmo-network-initialize-session): Call elmo-pop3-lock.
 
 2001-06-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 3bd9729..05033f2 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -217,6 +217,7 @@ Debug information is inserted in the buffer \"*POP3 DEBUG*\"")
   (let ((process (elmo-network-session-process-internal session))
 	response mechanism)
     (with-current-buffer (process-buffer process)
+      (elmo-pop3-lock)
       (set-process-filter process 'elmo-pop3-process-filter)
       (setq elmo-pop3-read-point (point-min))
       ;; Skip garbage output from process before greeting.