* mu4e-utils: when completing a maildir, put the initial / there already

This commit is contained in:
djcb
2012-12-20 23:32:37 +02:00
parent 10ad5ce2ca
commit 4dd81e5b7f

View File

@ -299,7 +299,7 @@ maildirs under `mu4e-maildir'."
mlist ", ")) mlist ", "))
(kar (read-char (concat prompt fnames)))) (kar (read-char (concat prompt fnames))))
(if (member kar '(?/ ?o)) ;; user chose 'other'? (if (member kar '(?/ ?o)) ;; user chose 'other'?
(ido-completing-read prompt (mu4e-get-maildirs)) (ido-completing-read prompt (mu4e-get-maildirs) nil nil "/")
(or (car-safe (or (car-safe
(find-if (lambda (item) (= kar (cdr item))) mu4e-maildir-shortcuts)) (find-if (lambda (item) (= kar (cdr item))) mu4e-maildir-shortcuts))
(mu4e-warn "Unknown shortcut '%c'" kar))))))) (mu4e-warn "Unknown shortcut '%c'" kar)))))))