Chase symlinks manually.

1 files changed, 7 insertions, 2 deletions

diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el
index 25c888c6ecf..85000a83bbc 100644
--- 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))))