diff options
| author | Richard M. Stallman | 1994-04-28 03:01:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-28 03:01:49 +0000 |
| commit | 6875cf75e59086ca87d1d67c01fe2bf1da3cded1 (patch) | |
| tree | 4b9419854e9ca579bc49330cc048e92337bea95f | |
| parent | a6115fe24c3c796c21216ee3a01a1b7f46b49df9 (diff) | |
| download | emacs-6875cf75e59086ca87d1d67c01fe2bf1da3cded1.tar.gz emacs-6875cf75e59086ca87d1d67c01fe2bf1da3cded1.zip | |
Get the file's truename in case it is a link.
| -rw-r--r-- | lisp/mail/blessmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el index 2dcb2071ad9..25c888c6ecf 100644 --- a/lisp/mail/blessmail.el +++ b/lisp/mail/blessmail.el | |||
| @@ -36,7 +36,7 @@ | |||
| 36 | (load "paths.el") | 36 | (load "paths.el") |
| 37 | (load "site-init" t) | 37 | (load "site-init" t) |
| 38 | 38 | ||
| 39 | (let ((attr (file-attributes rmail-spool-directory)) | 39 | (let ((attr (file-attributes (file-truename rmail-spool-directory))) |
| 40 | modes) | 40 | modes) |
| 41 | (or (eq t (car attr)) | 41 | (or (eq t (car attr)) |
| 42 | (signal 'error | 42 | (signal 'error |