mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +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") ; (expand-file-name "~/RMAIL")
; "") ; "")
(defvar rmail-movemail-program nil
"If non-nil, name of program for fetching new mail.")
;;;###autoload ;;;###autoload
(defvar rmail-dont-reply-to-names nil "\ (defvar rmail-dont-reply-to-names nil "\
*A regexp specifying names to prune of reply to messages. *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*")) (setq errors (generate-new-buffer " *rmail loss*"))
(buffer-disable-undo errors) (buffer-disable-undo errors)
(call-process (call-process
(expand-file-name "movemail" exec-directory) (or rmail-movemail-program
nil errors nil file tofile) (expand-file-name "movemail" exec-directory))
nil errors nil file tofile)
(if (not (buffer-modified-p errors)) (if (not (buffer-modified-p errors))
;; No output => movemail won ;; No output => movemail won
nil nil