Chase symlinks manually.

diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el
index 25c888c6ecf85228ecc85b7b38c8cd6e1dec6536..85000a83bbc7ed6364d9f91163bc4d5b0dc55639 100644 (file)
--- a/lisp/mail/blessmail.el
+++ b/lisp/mail/blessmail.el
@@ -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))))