From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 13 Jul 1994 05:04:46 +0000 (+0000)
Subject: (rmail-movemail-program): New variable.
X-Git-Tag: emacs-19.34~7619
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=745620536328bd27f8774a0770e471940d42af6d;p=emacs.git

(rmail-movemail-program): New variable.
(rmail-insert-inbox-text): Use it.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 0562dd00740..3be5eea6795 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -50,6 +50,9 @@
 ;  (expand-file-name "~/RMAIL")
 ;  "")
 
+(defvar rmail-movemail-program nil
+  "If non-nil, name of program for fetching new mail.")
+
 ;;;###autoload
 (defvar rmail-dont-reply-to-names nil "\
 *A regexp specifying names to prune of reply to messages.
@@ -856,8 +859,9 @@ argument causes us to read a file name and use that file as the inbox."
 		     (setq errors (generate-new-buffer " *rmail loss*"))
 		     (buffer-disable-undo errors)
 		     (call-process
-		       (expand-file-name "movemail" exec-directory)
-		       nil errors nil file tofile)
+		      (or rmail-movemail-program
+			  (expand-file-name "movemail" exec-directory))
+		      nil errors nil file tofile)
 		     (if (not (buffer-modified-p errors))
 			 ;; No output => movemail won
 			 nil