# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 774075886 0
# Node ID 8eea815450890dacd26eeb11b0ee547899649e8f
# Parent  5b063488f2f8ce52dd6fd6a1f7e44a70a7a7a387
(rmail-movemail-program): New variable.
(rmail-insert-inbox-text): Use it.

diff -r 5b063488f2f8 -r 8eea81545089 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Wed Jul 13 04:15:52 1994 +0000
+++ b/lisp/mail/rmail.el	Wed Jul 13 05:04:46 1994 +0000
@@ -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 @@
 		     (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