Re: rmail pop error

[Tim Hesterberg]

The one-line fix works.
The patch works!
Thanks!

Tim

Glenn Morris wrote:
>Tim Hesterberg wrote:
>
>> (rmail-autodetect)
>> returns nil in both 22.1.90 and 22.1.1  (after M-x rmail)
>[...]
>> This does exist, and is executable
>> d:/emacs/emacs-22.1.90/bin/movemail.exe
>
>Thanks; I think I see what's going on now. Does it work in 22.1.90 if
>you add:
>
>(setq rmail-movemail-program "d:/emacs/emacs-22.1.90/bin/movemail.exe")
>
>to your setup?
>
>Without doing that, does this patch fix it? (Apply to rmail.el in
>22.1.90, recompile the file, restart Emacs.)
>
>
>*** rmail.el   31 Jan 2008 10:39:19 -0000      1.433.2.9
>--- rmail.el   20 Feb 2008 02:11:19 -0000
>***************
>*** 214,220 ****
>        (dolist (dir (append rmail-movemail-search-path exec-path
>                          (list exec-directory)))
>       (when (and dir (file-accessible-directory-p dir))
>!        (let ((progname (expand-file-name "movemail" dir)))
>           (when (and (not (file-directory-p progname))
>                      (file-executable-p progname))
>             (let ((x (rmail-probe progname)))
>--- 214,227 ----
>        (dolist (dir (append rmail-movemail-search-path exec-path
>                          (list exec-directory)))
>       (when (and dir (file-accessible-directory-p dir))
>!        ;; Previously this used to work on Windows by luck (?),
>!        ;; because rmail-insert-inbox-text fell back to
>!        ;; (expand-file-name "movemail" exec-directory).
>!        ;; 
>http://lists.gnu.org/archive/html/bug-gnu-emacs/2008-02/msg00087.html
>!        (let ((progname (expand-file-name
>!                         (concat "movemail"
>!                                 (if (memq system-type '(ms-dos windows-nt))
>!                                     ".exe")) dir)))
>           (when (and (not (file-directory-p progname))
>                      (file-executable-p progname))
>             (let ((x (rmail-probe progname)))