Re: closing all inactive server connections

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> Ted Zlatanov wrote:

TZ> That's fine.  So it should be imap-logout-timeouts, an alist of
TZ> (server-regex seconds) cells.  Agreed?

Isn't it much better that it is a server variable?  I mean, we leave
`imap-logout-timeout' as is, but bind it by `nnimap-logout-timeout'.
Because this is a server variable, you can specify it per server in
its select-method.  We can probably make it come true in nnimap.el
as follows:

#v+
(defvoo nnimap-logout-timeout nil
  "Close server immediately if it can't logout in this number of seconds.
If it is nil, never close server until logout completes.")

[...]

  (let ((imap-logout-timeout nnimap-logout-timeout))
    (imap-open ...))

  (let ((imap-logout-timeout nnimap-logout-timeout))
    (imap-close ...))
#v-

Note that `imap-open' will run `imap-logout' when opening a server
fails.

Another similar way is to pass the value of `nnimap-logout-timeout'
to `imap-open' and `imap-close' by way of the new optional argument
`logout-timeout' as follows:

#v+
;; imap.el
(defun imap-open (server &optional port stream auth buffer logout-timeout)...
(defun imap-close (&optional buffer logout-timeout)...

;; nnimap.el
  (imap-open ... nnimap-logout-timeout)
  (imap-close ... nnimap-logout-timeout)
#v-