Re: nnimap with openssl stopping up after connecting in Windows

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

On Sun, Jan 11 2009, Steinar Bang wrote:

>>>>>> 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.

Doesn't it work if you put the stuff in ~/.gnus.el?

> The code now looks like this:
> (if windows-emacs
>     (progn
>       (defun use-cygwin-openssl-for-nnimap ()
>         (let ((cygwin-openssl "C:\\cygwin\\bin\\openssl.exe"))

You may use "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))

What's wrong with the variable `system-type'.  Typically use:
  (memq system-type '(windows-nt ms-dos))

,----[ <f1> v system-type RET ]
| system-type is a variable defined in `src/emacs.c'.
| Its value is gnu/linux
| 
| Documentation:
| Value is symbol indicating type of operating system you are using.
| Special values:
|   `gnu/linux'   compiled for a GNU/Linux system.
|   `darwin'      compiled for Darwin (GNU-Darwin, Mac OS X, ...).
|   `macos'       compiled for Mac OS 9.
|   `ms-dos'      compiled as an MS-DOS application.
|   `windows-nt'  compiled as a native W32 application.
|   `cygwin'      compiled using the Cygwin library.
|   `vax-vms' or
|   `axp-vms'     compiled for a (Open)VMS system.
| Anything else indicates some sort of Unix system.
`----

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