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 | 745620536328bd27f8774a0770e471940d42af6d (patch) | |
| tree | 3d651c05d51ec9c07b4275e3aad2826e4ce3e2d2 /lisp/mail | |
| parent | 4c8888a0c8e3372eb2a4c3389c9258ca6b81ed5e (diff) | |
| download | emacs-745620536328bd27f8774a0770e471940d42af6d.tar.gz | |
(rmail-movemail-program): New variable.
(rmail-insert-inbox-text): Use it.
Diffstat (limited to 'lisp/mail')
| -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 |