* cosmetic

This commit is contained in:
djcb 2012-04-12 09:02:43 +03:00
parent 47467726d4
commit a3a5d1a6ca
1 changed files with 2 additions and 3 deletions

View File

@ -101,10 +101,9 @@ Function returns the CHAR typed."
(ignore-errors
(read-char
(concat prompt optionsstr
" [or press " (propertize "C-g" 'face 'highlight) " to quit]")))))
" [" (propertize "C-g" 'face 'highlight) " to quit]")))))
;; if the input is not one of the options, try again
(unless (member response optionkars)
(mu4e-read-option prompt options))
(unless (member response optionkars) (mu4e-read-option prompt options))
;; otherwise, return the response char
response))