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

* lisp/emacs-lisp/lisp-mnt.el (lm-crack-address): Handle multi-addresses

Browse source 
(lm-authors, lm-maintainers): Adjust accordingly.
This commit is contained in:
Stefan Monnier 2021-08-12 13:55:38 -04:00
parent 1d60a25541
commit 5809728bc5
2 changed files with 53 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -357,18 +357,21 @@ Return argument is of the form (\"HOLDER\" \"YEAR1\" ... \"YEARN\")"
summary)))))
(defun lm-crack-address (x)
"Split up an email address X into full name and real email address.
The value is a cons of the form (FULLNAME . ADDRESS)."
(cond ((string-match "\\(.+\\) [(<]\\(\\S-+@\\S-+\\)[>)]" x)
(cons (string-trim-right (match-string 1 x))
(match-string 2 x)))
((string-match "\\(\\S-+@\\S-+\\) [(<]\\(.*\\)[>)]" x)
(cons (string-trim-right (match-string 2 x))
(match-string 1 x)))
((string-match "\\S-+@\\S-+" x)
(cons nil x))
(t
(cons x nil))))
"Split up email address(es) X into full name and real email address.
The value is a list of elements of the form (FULLNAME . ADDRESS)."
(cond ((string-match
(concat "[,\s\t]*\\(?:"
"\\(.+?\\) +[(<]\\(\\S-+@\\S-+\\)[>)]"
"\\|"
"\\(?2:\\S-+@\\S-+\\) +[(<]\\(?1:[^,]*\\)[>)]"
"\\|"
"\\(?2:\\S-+@\\S-+\\)"
"\\)")
x)
`((,(string-trim-right (match-string 1 x)) . ,(match-string 2 x))
. ,(lm-crack-address (substring x (match-end 0)))))
((string-match "\\`[,\s\t]*\\'" x) nil)
(t `((,x)))))
(defun lm-authors (&optional file)
"Return the author list of file FILE, or current buffer if FILE is nil.
@ -376,7 +379,7 @@ Each element of the list is a cons; the car is the full name,
the cdr is an email address."
(lm-with-file file
(let ((authorlist (lm-header-multiline "author")))
(mapcar #'lm-crack-address authorlist))))
(mapcan #'lm-crack-address authorlist))))
(defun lm-maintainers (&optional file)
"Return the maintainer list of file FILE, or current buffer if FILE is nil.
@ -384,7 +387,7 @@ If the maintainers are unspecified, then return the authors.
Each element of the list is a cons; the car is the full name,
the cdr is an email address."
(lm-with-file file
(mapcar #'lm-crack-address
(mapcan #'lm-crack-address
(or (lm-header-multiline "maintainer")
(lm-header-multiline "author")))))