Re: nnimap with openssl stopping up after connecting in Windows

[Steinar Bang <sb@dod.no>]

>>>>> Steinar Bang <sb@dod.no>:

> I'm probably running a hook that us run too late...?  It's now running
> in gnus-started-hook.  I tried gnus-open-hook and gnus-starting-hook,
> but both are too late.

> Does anyone know of a good hook candidate for me to use...?

I'm now running it from gnus-load-hook, and have added a (require 'imap)
to ensure that imap-ssl-program is defined before running the function
that modifies the list elements.

Then it works for the initial Gnus startup as well.

The code now looks like this:
(if windows-emacs
    (progn
      (defun use-cygwin-openssl-for-nnimap ()
        (let ((cygwin-openssl "C:\\cygwin\\bin\\openssl.exe"))
          (if (file-exists-p cygwin-openssl)
              (progn
                (require 'imap)
                (setq imap-ssl-program
                      (mapcar '(lambda (element)
                                 (let ((newelement element))
                                   (if (string-match "openssl " element)
                                       (setq newelement (replace-match (concat cygwin-openssl " ") t t element))
                                     newelement)))
                              imap-ssl-program))))))
          (add-hook 'gnus-load-hook 'use-cygwin-openssl-for-nnimap)))


The windows-emacs variable is defined like this:

(defvar windows-emacs (string-match "mingw" (emacs-version))
  "Hold a numerical value if this is an Emacs running on Windows, and
nil if this isn't windows")