mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

nnimap.el: Fix inloop if the server dies before the async -finish is called

Browse source
This commit is contained in:
Lars Ingebrigtsen 2012-02-05 06:31:38 +00:00 • committed by Katsumi Yamaoka
parent 649f602cd6
commit 98366438c7
2 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/gnus/nnimap.el
View file

@ -269,14 +269,16 @@ textual parts.")
result))
(mapconcat #'identity (nreverse result) ",")))))
(deffoo nnimap-open-server (server &optional defs)
(deffoo nnimap-open-server (server &optional defs no-reconnect)
(if (nnimap-server-opened server)
t
(unless (assq 'nnimap-address defs)
(setq defs (append defs (list (list 'nnimap-address server)))))
(nnoo-change-server 'nnimap server defs)
(or (nnimap-find-connection nntp-server-buffer)
(nnimap-open-connection nntp-server-buffer))))
(if no-reconnect
(nnimap-find-connection nntp-server-buffer)
(or (nnimap-find-connection nntp-server-buffer)
(nnimap-open-connection nntp-server-buffer)))))
(defun nnimap-make-process-buffer (buffer)
(with-current-buffer
@ -1278,7 +1280,7 @@ textual parts.")
(deffoo nnimap-finish-retrieve-group-infos (server infos sequences)
(when (and sequences
(nnimap-possibly-change-group nil server)
(nnimap-possibly-change-group nil server t)
;; Check that the process is still alive.
(get-buffer-process (nnimap-buffer))
(memq (process-status (get-buffer-process (nnimap-buffer)))
@ -1633,11 +1635,11 @@ textual parts.")
(cdr (assoc "SEARCH" (cdr result))))))
nil t))))))
(defun nnimap-possibly-change-group (group server)
(defun nnimap-possibly-change-group (group server &optional no-reconnect)
(let ((open-result t))
(when (and server
(not (nnimap-server-opened server)))
(setq open-result (nnimap-open-server server)))
(setq open-result (nnimap-open-server server nil no-reconnect)))
(cond
((not open-result)
nil)