mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-28 21:54:10 +01:00
emacs: Don't prompt the user to choose from zero matching addresses.
If the address matching function generates no matches, don't prompt the user to choose between them (!). Instead, generate a message to report that there were no matches.
This commit is contained in:
parent
d4c598dc9e
commit
0fc424a1f0
1 changed files with 14 additions and 7 deletions
|
@ -54,15 +54,22 @@ line."
|
|||
(completion-ignore-case t)
|
||||
(options (notmuch-address-options orig))
|
||||
(num-options (length options))
|
||||
(chosen (if (eq num-options 1)
|
||||
(car options)
|
||||
(chosen (cond
|
||||
((eq num-options 0)
|
||||
nil)
|
||||
((eq num-options 1)
|
||||
(car options))
|
||||
(t
|
||||
(completing-read (format "Address (%s matches): " num-options)
|
||||
(cdr options) nil nil (car options)
|
||||
'notmuch-address-history))))
|
||||
(when chosen
|
||||
'notmuch-address-history)))))
|
||||
(if chosen
|
||||
(progn
|
||||
(push chosen notmuch-address-history)
|
||||
(delete-region beg end)
|
||||
(insert chosen))))
|
||||
(insert chosen))
|
||||
(message "No matches.")
|
||||
(ding))))
|
||||
|
||||
;; Copied from `w3m-which-command'.
|
||||
(defun notmuch-address-locate-command (command)
|
||||
|
|
Loading…
Reference in a new issue