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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index cade251..5b2bd23 100644 (file)
--- 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 (file)
--- 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.