From b207d6b3148e85dbb5a3c456015cc67004fb2e75 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 28 Apr 1994 07:32:21 +0000 Subject: [PATCH] Drop the trailing slash. --- lisp/mail/blessmail.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.5