# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 798782987 0
# Node ID c20207bd74a82f65d3ed4cceebca141f952b30b8
# Parent  032725b727cdf37de7330e47acf749b1c02d3aa7
(rmail-insert-inbox-text): Get the truename of
the standard inbox name, not just of its directory.

diff -r 032725b727cd -r c20207bd74a8 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Apr 25 03:35:00 1995 +0000
+++ b/lisp/mail/rmail.el	Tue Apr 25 04:09:47 1995 +0000
@@ -930,8 +930,10 @@
       ;; If getting from mail spool directory,
       ;; use movemail to move rather than just renaming,
       ;; so as to interlock with the mailer.
-      (setq movemail (string= (file-name-directory file)
-			      (file-truename rmail-spool-directory))
+      (setq movemail (string= file
+			      (file-truename
+			       (concat rmail-spool-directory
+				       (file-name-nondirectory file))))
 	    popmail (string-match "^po:" (file-name-nondirectory file)))
       (if popmail (setq file (file-name-nondirectory file)
 			renamep t))