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

Merge pull request #2488 from RuijieYu/fix-docstring-mu4e-personal-address-p

Browse Source 
Updates to mu4e-contacts.el
This commit is contained in:
Dirk-Jan C. Binnema
2023-05-10 19:07:04 +03:00
committed by GitHub
parent 91eeed2a27 1ed1e486d4
commit 3756938b82
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
mu4e/mu4e-contacts.el
View File

@ -137,21 +137,21 @@ The address are either plain e-mail address or /regular
address patterns (if any)."
(seq-remove
(lambda (addr) (and no-regexp (string-match-p "^/.*/" addr)))
(when (mu4e-server-properties)
(plist-get (mu4e-server-properties) :personal-addresses))))
(when-let ((props (mu4e-server-properties)))
(plist-get props :personal-addresses))))
(defun mu4e-personal-address-p (addr)
"Is ADDR a personal address?
Evaluate to nil if ADDR matches any of the personal addresses.
Uses (mu4e-personal-addresses) for the addresses with both the plain
addresses and /regular expressions/."
Evaluate to nil if ADDR does not match any of the personal
addresses. Uses \\=(mu4e-personal-addresses) for the addresses
with both the plain addresses and /regular expressions/."
(when addr
(seq-find
(lambda (m)
(if (string-match "/\\(.*\\)/" m)
(let ((rx (match-string 1 m))
(case-fold-search t))
(if (string-match rx addr) t nil))
(string-match rx addr))
(eq t (compare-strings addr nil nil m nil nil 'case-insensitive))))
(mu4e-personal-addresses))))