# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767502109 0
# Node ID 979a0246101e6c3e6fff5b0c39a58f4941b388dc
# Parent  f5880d940db8c6c31904902300e6d3805493e349
Get the file's truename in case it is a link.

diff -r f5880d940db8 -r 979a0246101e lisp/mail/blessmail.el
--- a/lisp/mail/blessmail.el	Thu Apr 28 02:42:43 1994 +0000
+++ b/lisp/mail/blessmail.el	Thu Apr 28 03:01:49 1994 +0000
@@ -36,7 +36,7 @@
 (load "paths.el")
 (load "site-init" t)
 
-(let ((attr (file-attributes rmail-spool-directory))
+(let ((attr (file-attributes (file-truename rmail-spool-directory)))
       modes)
   (or (eq t (car attr))
       (signal 'error