diff --git a/mu4e/mu4e-utils.el b/mu4e/mu4e-utils.el index 82eff695..38f7dbf7 100644 --- a/mu4e/mu4e-utils.el +++ b/mu4e/mu4e-utils.el @@ -146,7 +146,7 @@ paths." ;; directory 'cur' as leaf; then we we remove from that list all of those that ;; don't have tmp, new sister dirs. And there we're done! ;; 1. get all proper subdirs of the current dir, if it is readable - (when (file-accessible-directory-p path) + (when (file-accessible-directory-p (concat path mdir)) (let* ((subdirs (remove-if (lambda (de) @@ -260,6 +260,7 @@ provided, function asks for it." (kar (read-char (concat prompt bmarks)))) (mu4e-get-bookmark-query kar))) + (defun mu4e-get-bookmark-query (kar) "Get the corresponding bookmarked query for shortcut character KAR, or raise an error if none is found."