mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/lisp-mnt.el (lm-crack-address): Right-trim name.

Browse source 
The addresses might be aligned in which case we have to trim the
extra whitespace at the end of the names.
This commit is contained in:
Jonas Bernoulli 2021-05-22 21:58:53 +02:00
parent 1439e9bfad
commit 0e3668b233
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/lisp-mnt.el
View file

@ -360,10 +360,10 @@ Return argument is of the form (\"HOLDER\" \"YEAR1\" ... \"YEARN\")"
"Split up an email address X into full name and real email address. "Split up an email address X into full name and real email address.
The value is a cons of the form (FULLNAME . ADDRESS)." The value is a cons of the form (FULLNAME . ADDRESS)."
(cond ((string-match "\\(.+\\) [(<]\\(\\S-+@\\S-+\\)[>)]" x) (cond ((string-match "\\(.+\\) [(<]\\(\\S-+@\\S-+\\)[>)]" x)
(cons (match-string 1 x) (cons (string-trim-right (match-string 1 x))
(match-string 2 x))) (match-string 2 x)))
((string-match "\\(\\S-+@\\S-+\\) [(<]\\(.*\\)[>)]" x) ((string-match "\\(\\S-+@\\S-+\\) [(<]\\(.*\\)[>)]" x)
(cons (match-string 2 x) (cons (string-trim-right (match-string 2 x))
(match-string 1 x))) (match-string 1 x)))
((string-match "\\S-+@\\S-+" x) ((string-match "\\S-+@\\S-+" x)
(cons nil x)) (cons nil x))