Mercurial > emacs

changeset 7149:b505aca567e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Chase symlinks manually.
author Karl Heuer <kwzh@gnu.org>
date Thu, 28 Apr 1994 03:34:14 +0000
parents 979a0246101e
children b78bfe054561
files lisp/mail/blessmail.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))))