From 745620536328bd27f8774a0770e471940d42af6d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 Jul 1994 05:04:46 +0000 Subject: [PATCH] (rmail-movemail-program): New variable. (rmail-insert-inbox-text): Use it. --- lisp/mail/rmail.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 -- 2.39.5