Mercurial > emacs
changeset 8234:8eea81545089
(rmail-movemail-program): New variable.
(rmail-insert-inbox-text): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Jul 1994 05:04:46 +0000 |
| parents | 5b063488f2f8 |
| children | bc485f942c5e |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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