From: keiichi <keiichi>
Date: Wed, 25 Nov 1998 11:57:14 +0000 (+0000)
Subject: (nnmail-move-inbox): Fix bug. (Could not use external `movemail' program.)
X-Git-Tag: keiichi-199811302358~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=da1122aa6dd2831b644bc4819e6f852c671ae334;p=elisp%2Fgnus.git-

(nnmail-move-inbox): Fix bug. (Could not use external `movemail' program.)
---

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)