-(defun elmo-pop3-lock ()
- "Lock pop3 process."
- (setq elmo-pop3-lock t))
-
-(defun elmo-pop3-unlock ()
- "Unlock pop3 process."
- (setq elmo-pop3-lock nil))
-
-(defun elmo-pop3-locked-p (process)
- "Return t if pop3 PROCESS is locked."
- (with-current-buffer (process-buffer process)
- (if elmo-pop3-lock
- (progn
- (elmo-pop3-debug "POP3 is LOCKED!")
- t)
- nil)))
-