diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-28 07:32:21 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-28 07:32:21 +0000 |
| commit | b207d6b3148e85dbb5a3c456015cc67004fb2e75 (patch) | |
| tree | d948996fb319a2a754c276f9444d107f1330f196 /lisp/mail/blessmail.el | |
| parent | f266485d3e280f7875164b694c5a9c5a9806a2f3 (diff) | |
| download | emacs-b207d6b3148e85dbb5a3c456015cc67004fb2e75.tar.gz | |
Drop the trailing slash.
Diffstat (limited to 'lisp/mail/blessmail.el')
| -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 @@ (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) |