mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail-movemail-program): New variable.

Browse Source 
(rmail-insert-inbox-text): Use it.
This commit is contained in:
Richard M. Stallman 1994-07-13 05:04:46 +00:00
parent 4c8888a0c8
commit 7456205363
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/rmail.el
View File

@ -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