mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Chase symlinks manually.

Browse source
This commit is contained in:
Karl Heuer 1994-04-28 03:34:14 +00:00
parent 6875cf75e5
commit 8f3016f5c3
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/blessmail.el
View file

@ -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))))