Re: after upgrade from wl-2.14 to wl-2.15.6.20090322 Auto plugged off at imap.web.de:993 :elmo-network-initialize-session

[Marko Schütz <markoschuetz@googlemail.com>]

2011/3/11 Marko Schütz <markoschuetz@googlemail.com>:
> Dear All,
>
> I just upgraded to a little more recent version from my old version. Now I get
>
> Auto plugged off at imap.server.tld:993 :elmo-network-initialize-session
>
> for all my accounts. At first I was suspecting imap folders of the form
>
> %INBOX:UserName@mail-address.tld/clear@imap.realserver.tld:993!
>
> to be the culprits, but I just noticed that the same problem exists
> for a folder of the form
>
> %INBOX:UserName/clear@imap.realserver.tld:993!
>
> In my customizations I have
>
> (custom-set-variables
>  ...
>  '(ssl-certificate-verification-policy 3)
>  '(ssl-program-arguments (quote ("s_client" "-quiet" "-host" host
> "-port" port "-verify" (int-to-string
> ssl-certificate-verification-policy) "-CApath"
> ssl-certificate-directory)))
>  '(ssl-program-name "openssl")
> )
>
> Any hints are appreciated!
>
> Best regards,
>
> Marko
>

here is what I get with debug-on-error turned on:
Debugger entered--Lisp error: (elmo-open-error elmo-network-initialize-session)
  signal(elmo-open-error (elmo-network-initialize-session))
  (condition-case err (progn (if biff ...) (if ... ... ...))
(elmo-open-error (signal ... ...)) (error (if ... ... ...)))
  (let* ((folder ...) (nums ...) (new ...) (unread ...) (all ...)) (if
(and ... ...) (progn ... ...) (unless wl-folder-notify-deleted ...)
(setq unread ...) (wl-folder-entity-hashtb-set wl-folder-entity-hashtb
entity ... ...)) (setq wl-folder-info-alist-modified t) (sit-for 0)
(list new unread all))
  wl-folder-check-one-entity(#("*%INBOX:UserName@mailserver.tld/clear@imap.realserver.tld:993!,%INBOX:User.Name@mailserver2.tld/clear@imap.realserver.tld:993!,%name@org:UserName@mailserver.tld/clear@imap.realserver.tld:993!"
0 170 (wl-folder-entity-id 269 wl-folder-is-group nil)))
  (setq ret-val (wl-folder-check-one-entity entity))
  (cond ((consp entity) (let ... ...)) ((stringp entity) (message
"Checking \"%s\"" entity) (setq ret-val ...) (goto-char start-pos)
(sit-for 0)) (t (message "Uncheck(unplugged) \"%s\"" entity)))
  (save-excursion (cond (... ...) (... ... ... ... ...) (t ...)))
  (if (and (consp entity) wl-folder-check-async) (setq ret-val
(wl-folder-check-entity-async entity auto)) (save-excursion (cond ...
... ...)))
  (let ((start-pos ...) ret-val) (run-hooks (quote
wl-folder-check-entity-pre-hook)) (if (and ... wl-folder-check-async)
(setq ret-val ...) (save-excursion ...)) (if ret-val (message
"Checking \"%s\" is done" ...)) (run-hooks (quote
wl-folder-check-entity-hook)) ret-val)
  wl-folder-check-entity(#("*%INBOX:UserName@mailserver.tld/clear@imap.realserver.tld:993!,%INBOX:User.Name@mailserver2.tld/clear@imap.realserver.tld:993!,%name@org:UserName@mailserver.tld/clear@imap.realserver.tld:993!"
0 170 (wl-folder-entity-id 269 wl-folder-is-group nil)) nil)
  (progn (wl-folder-check-entity (if group ... entity-name) desktop))
  (if entity-name (progn (wl-folder-check-entity ... desktop)))
  (when entity-name (wl-folder-check-entity (if group ... entity-name) desktop))
  (let* ((entity-name ...) (group ...) (desktop ...)) (when
entity-name (wl-folder-check-entity ... desktop)))
  wl-folder-check-current-entity()
  call-interactively(wl-folder-check-current-entity nil nil)

Best regards,

Marko