Re: Process imap not running

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Mon, Jan 14 2008, Ralf Angeli wrote:

> * Knut Anders Hatlen (2008-01-10) writes:
>> Ralf Angeli <angeli@caeruleus.net> writes:
>>> Debugger entered--Lisp error: (error "Process imap not running")
>>>   process-send-string(#<process imap> "37 EXAMINE \"INBOX\"
> [...]
>> I used to have the same problem, but I managed to work around it with a
>> simple fix. See this article for the details:
>>
>> http://article.gmane.org/gmane.emacs.gnus.general/63692
[ Date: Tue, 05 Sep 2006 23:06:33 +0200
  Message-ID: <86d5aa81ly.fsf@ugle.hatlen.net> ]

> Thanks!  I've been using this patch for three days now and haven't got
> the error during this time.

Does anyone see a problem with it?  Simon?  (There was no response to
the original message.)

--- lisp/imap.el	26 Jun 2006 12:08:33 -0000	7.29
+++ lisp/imap.el	4 Sep 2006 17:45:39 -0000
@@ -1142,7 +1142,16 @@
        (buffer-live-p buffer)
        (with-current-buffer buffer
 	 (and imap-process
-	      (memq (process-status imap-process) '(open run))))))
+	      (memq (process-status imap-process) '(open run))
+	      (imap-ping-server)))))
+
+(defun imap-ping-server (&optional buffer)
+  "Ping the imap server in BUFFER with a noop command. Return non-nil
+if the server responds, and nil if it does not respond. If BUFFER is
+nil, the current buffer is used."
+  (condition-case ()
+      (imap-ok-p (imap-send-command-wait "NOOP" buffer))
+    (error nil)))

 (defun imap-authenticate (&optional user passwd buffer)
   "Authenticate to server in BUFFER, using current buffer if nil.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/