From da1122aa6dd2831b644bc4819e6f852c671ae334 Mon Sep 17 00:00:00 2001 From: keiichi Date: Wed, 25 Nov 1998 11:57:14 +0000 Subject: [PATCH] (nnmail-move-inbox): Fix bug. (Could not use external `movemail' program.) --- lisp/nnmail.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index c17489c..372be82 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -676,7 +676,7 @@ If this variable is `t', do not use password cache.") (setq result 255)))) (let ((default-directory "/") (inbox-info (nnmail-parse-spool-file-name inbox))) - (setenv (nnmail-spool-mailhost inbox-info)) + (setenv "MAILHOST" (nnmail-spool-mailhost inbox-info)) (setq result (apply 'call-process @@ -685,7 +685,8 @@ If this variable is `t', do not use password cache.") (expand-file-name nnmail-movemail-program exec-directory) nil errors nil - (nnmail-spool-maildrop inbox-info) tofile) + (concat "po:" (nnmail-spool-maildrop inbox-info)) + tofile) (when nnmail-internal-password (list nnmail-internal-password))))))) (push inbox nnmail-moved-inboxes) -- 1.7.10.4