# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 767504054 0
# Node ID b505aca567e048cd05de548f77fc2ad39df6c267
# Parent  979a0246101e6c3e6fff5b0c39a58f4941b388dc
Chase symlinks manually.

diff -r 979a0246101e -r b505aca567e0 lisp/mail/blessmail.el
--- a/lisp/mail/blessmail.el	Thu Apr 28 03:01:49 1994 +0000
+++ b/lisp/mail/blessmail.el	Thu Apr 28 03:34:14 1994 +0000
@@ -36,8 +36,13 @@
 (load "paths.el")
 (load "site-init" t)
 
-(let ((attr (file-attributes (file-truename rmail-spool-directory)))
-      modes)
+(let ((dirname rmail-spool-directory) linkname attr modes)
+  ;; Check for symbolic link
+  (while (setq linkname (file-symlink-p dirname))
+    (setq dirname (if (file-name-absolute-p linkname)
+		      linkname
+		    (concat (file-name-directory dirname) linkname))))
+  (setq attr (file-attributes dirname))
   (or (eq t (car attr))
       (signal 'error
 	      (list (format "%s is not a directory" rmail-spool-directory))))