aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--piem.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/piem.el b/piem.el
index 0efae9e..6546615 100644
--- a/piem.el
+++ b/piem.el
@@ -376,7 +376,7 @@ If INBOX is nil, use the inbox returned by `piem-inbox'."
(defun piem-inbox-coderepo (&optional inbox)
"Return the code repository of current buffer's inbox."
(when-let ((repo (piem-inbox-get :coderepo inbox)))
- (expand-file-name repo)))
+ (file-name-as-directory (expand-file-name repo))))
(defun piem-inbox-maildir-directory (&optional inbox)
"Return the maildir for INBOX's entry in `piem-inboxes'.
@@ -421,7 +421,7 @@ INBOX doesn't have a maildir configured, return the value of
(read-directory-name "Git repository: "))))
(if (equal repo "")
(user-error "No code repository specified")
- repo)))
+ (file-name-as-directory repo))))
(defun piem-mid ()
"Return the current buffer's message ID."