From: Glenn Morris Date: Wed, 20 Feb 2008 06:00:13 +0000 (+0000) Subject: (rmail-autodetect): Add .exe extension to movemail on Windows. X-Git-Tag: emacs-pretest-23.0.90~7844 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6052846bdd817ea512afd3eb52bb2d6aa4689d6f;p=emacs.git (rmail-autodetect): Add .exe extension to movemail on Windows. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ddf4553c13c..3f0efc0aa66 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-02-20 Glenn Morris + + * mail/rmail.el (rmail-autodetect): Add .exe extension to movemail + on Windows. + 2008-02-20 Kenichi Handa * international/latin1-disp.el (latin1-display): Don't use diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 5f8815bc787..e36b9885841 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -219,7 +219,15 @@ Otherwise, look for `movemail' in the directories in (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))) + ;; Previously, this didn't have to work on Windows, because + ;; rmail-insert-inbox-text before r1.439 fell back to using + ;; (expand-file-name "movemail" exec-directory) and just + ;; assuming it would work. + ;; 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)))