alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #2376 from markk/mk/maildir-initial-input-master

Browse Source 
Add variable for initial input to maildir selection
This commit is contained in:
Dirk-Jan C. Binnema
2022-12-12 23:48:56 +02:00
committed by GitHub
parent 5acb824181 6a7d48c854
commit ec7f9b1466
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
mu4e/mu4e-folders.el
View File

@ -119,6 +119,11 @@ NOT be quoted, since mu4e does this for you."
:version "1.3.9" :version "1.3.9"
:group 'mu4e-folders) :group 'mu4e-folders)
(defcustom mu4e-maildir-initial-input "/"
"Initial input for `mu4e-completing-completing-read' function."
:type 'string
:group 'mu4e-folders)
(defcustom mu4e-maildir-info-delimiter (defcustom mu4e-maildir-info-delimiter
(if (member system-type '(ms-dos windows-nt cygwin)) (if (member system-type '(ms-dos windows-nt cygwin))
";" ":") ";" ":")
@ -301,7 +306,8 @@ from all maildirs under `mu4e-maildir'."
(if (member kar '(?/ ?o)) ;; user chose 'other'? (if (member kar '(?/ ?o)) ;; user chose 'other'?
(substring-no-properties (substring-no-properties
(funcall mu4e-completing-read-function prompt (funcall mu4e-completing-read-function prompt
(mu4e-get-maildirs) nil nil "/")) (mu4e-get-maildirs) nil nil
mu4e-maildir-initial-input))
(or (plist-get (or (plist-get
(seq-find (lambda (item) (= kar (plist-get item :key))) (seq-find (lambda (item) (= kar (plist-get item :key)))
(mu4e-maildir-shortcuts)) :maildir) (mu4e-maildir-shortcuts)) :maildir)