From 8f3016f5c3dc019faaea9cd38063bb5895fa38ee Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 28 Apr 1994 03:34:14 +0000 Subject: [PATCH] Chase symlinks manually. --- lisp/mail/blessmail.el | 9 +++++++-- 1 file 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)))) -- 2.39.5