# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754346543 0
# Node ID 3fb665ab94c1e8e3ee0acece95a1d64cefaa87e1
# Parent  414da6a99f69f973df8c2cd57c614e6ee1a5214c
(rmail-variables): Abbreviate truename for comparison.

diff -r 414da6a99f69 -r 3fb665ab94c1 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Nov 26 20:14:14 1993 +0000
+++ b/lisp/mail/rmail.el	Fri Nov 26 20:42:23 1993 +0000
@@ -563,7 +563,8 @@
   ;; Provide default set of inboxes for primary mail file ~/RMAIL.
   (and (null rmail-inbox-list)
        (or (equal buffer-file-name (expand-file-name rmail-file-name))
-	   (equal buffer-file-truename (file-truename rmail-file-name)))
+	   (equal buffer-file-truename
+		  (abbreviate-file-name (file-truename rmail-file-name))))
        (setq rmail-inbox-list
 	     (or rmail-primary-inbox-list
 		 (list (or (getenv "MAIL")