Mercurial > emacs
changeset 7166:4110118519d6
Drop the trailing slash.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 28 Apr 1994 07:32:21 +0000 |
| parents | d53c76129763 |
| children | 2fa74c48e4e5 |
| files | lisp/mail/blessmail.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/blessmail.el Thu Apr 28 07:32:04 1994 +0000 +++ b/lisp/mail/blessmail.el Thu Apr 28 07:32:21 1994 +0000 @@ -36,7 +36,8 @@ (load "paths.el") (load "site-init" t) -(let ((dirname rmail-spool-directory) linkname attr modes) +(let ((dirname (directory-file-name 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)