diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-07-13 05:04:46 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-07-13 05:04:46 +0000 |
commit | 21827479ba58d4ce81494e398fbfd0176abb56bc (patch) | |
tree | 2b824ebc8d17dc7859bb354c4467a6229b95e9c9 /lisp/mail/rmail.el | |
parent | 86c0d301b2677238e20d45473d7f3d121abbe530 (diff) | |
download | emacs-21827479ba58d4ce81494e398fbfd0176abb56bc.tar.gz |
(rmail-movemail-program): New variable.
(rmail-insert-inbox-text): Use it.
Diffstat (limited to 'lisp/mail/rmail.el')
-rw-r--r-- | lisp/mail/rmail.el | 8 |
1 files 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 |