(mh-get-new-mail): Always use mh-inc-prog, never `inc'.

diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el
index 67cb9a1a96064a9c26035033d517fe69ca48e8aa..502e42c5870bff9a4ec54ca7a0feb61c817d78db 100644 (file)
--- a/lisp/mail/mh-e.el
+++ b/lisp/mail/mh-e.el
@@ -52,7 +52,7 @@
 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
 ;;; Rewritten for GNU Emacs, James Larus 1985.  larus@ginger.berkeley.edu
 ;;; Modified by Stephen Gildea 1988.  gildea@lcs.mit.edu
-(defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.2 1994/04/13 20:42:10 rms Exp rms $")
+(defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.3 1994/07/18 18:04:45 rms Exp rms $")
 
 ;;; Code:
 
@@ -850,8 +850,8 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
                                "-file" (expand-file-name maildrop-name)
                                "-width" (window-width)
                                "-truncate")
-           (mh-exec-cmd-output "inc" nil
-                               "-width" (window-width)))
+         (mh-exec-cmd-output mh-inc-prog nil
+                             "-width" (window-width)))
        (message
         (if maildrop-name
             (format "inc %s -file %s...done" folder maildrop-name)