branch: externals/minimail
commit 6e14dd37e6ec9b65cc8f8a302653c18a4a2e261b
Author: Augusto Stoffel <[email protected]>
Commit: Augusto Stoffel <[email protected]>
Don't offer \NonExistent mailboxes for completion
---
minimail.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/minimail.el b/minimail.el
index 5bb703d56a..ea52ecffcd 100644
--- a/minimail.el
+++ b/minimail.el
@@ -1079,7 +1079,8 @@ Return a cons cell consisting of the account symbol and
mailbox name."
(athunk-run
(athunk-let*
((mkcand (pcase-lambda (`(,mbx . ,props))
- (unless (memq '\\Noselect (alist-get 'attributes
props))
+ (unless (-key-match-p '(or \\Noselect
\\NonExistent)
+ (alist-get 'attributes
props))
(propertize (-mailbox-display-name acct mbx)
'minimail `(,props ,acct . ,mbx)))))
(mailboxes <- (athunk-condition-case err
