diff options
| author | Karl Heuer | 1994-04-28 07:32:21 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-04-28 07:32:21 +0000 |
| commit | b207d6b3148e85dbb5a3c456015cc67004fb2e75 (patch) | |
| tree | d948996fb319a2a754c276f9444d107f1330f196 | |
| parent | f266485d3e280f7875164b694c5a9c5a9806a2f3 (diff) | |
| download | emacs-b207d6b3148e85dbb5a3c456015cc67004fb2e75.tar.gz emacs-b207d6b3148e85dbb5a3c456015cc67004fb2e75.zip | |
Drop the trailing slash.
| -rw-r--r-- | lisp/mail/blessmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el index 85000a83bbc..58974552396 100644 --- a/lisp/mail/blessmail.el +++ b/lisp/mail/blessmail.el | |||
| @@ -36,7 +36,8 @@ | |||
| 36 | (load "paths.el") | 36 | (load "paths.el") |
| 37 | (load "site-init" t) | 37 | (load "site-init" t) |
| 38 | 38 | ||
| 39 | (let ((dirname rmail-spool-directory) linkname attr modes) | 39 | (let ((dirname (directory-file-name rmail-spool-directory)) |
| 40 | linkname attr modes) | ||
| 40 | ;; Check for symbolic link | 41 | ;; Check for symbolic link |
| 41 | (while (setq linkname (file-symlink-p dirname)) | 42 | (while (setq linkname (file-symlink-p dirname)) |
| 42 | (setq dirname (if (file-name-absolute-p linkname) | 43 | (setq dirname (if (file-name-absolute-p linkname) |