emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e-utils: improve the dir-not-readable guard

This commit is contained in:
djcb 2012-08-23 10:59:03 +03:00
parent 11923c7755
commit b034936271
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mu4e/mu4e-utils.el
View File

@ -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."