2001-10-04 Simon Josefsson <jas@extundo.com>

	* mail-source.el (mail-source-movemail-program): New variable.
	(mail-source-movemail): Use it.  Suggested by Taylor Hutt
	<thutt@thutt.vmware.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d336f20..9fff7bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-04  Simon Josefsson  <jas@extundo.com>
+
+       * mail-source.el (mail-source-movemail-program): New variable.
+       (mail-source-movemail): Use it.  Suggested by Taylor Hutt
+       <thutt@thutt.vmware.com>.
+
 2001-10-03  Simon Josefsson  <jas@extundo.com>
 
        * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): New param.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 3f1f220..af00b43 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -264,6 +264,11 @@ If non-nil, this maildrop will be checked periodically for new mail."
   :group 'mail-source
   :type 'number)
 
+(defcustom mail-source-movemail-program nil
+  "If non-nil, name of program for fetching new mail."
+  :group 'mail-source
+  :type '(choice (const nil) string))
+
 ;;; Internal variables.
 
 (defvar mail-source-string ""
@@ -523,7 +528,8 @@ Pass INFO on to CALLBACK."
                       'call-process
                       (append
                        (list
-                        (expand-file-name "movemail" exec-directory)
+                        (or mail-source-movemail-program
+                            (expand-file-name "movemail" exec-directory))
                         nil errors nil from to)))))
              (when (file-exists-p to)
                (set-file-modes to mail-source-default-file-modes))