diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-03-22 20:13:31 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-03-22 20:13:31 +0100 |
| commit | 5334e726d02473ecf441acb1501f44feb42a7325 (patch) | |
| tree | 471de860f1105a316baf210d813d017ad6f7ca0f /lisp/mail | |
| parent | 29e310d60f7327f177bbaaa7fdaf14101cd0476f (diff) | |
| download | emacs-5334e726d02473ecf441acb1501f44feb42a7325.tar.gz emacs-5334e726d02473ecf441acb1501f44feb42a7325.tar.bz2 emacs-5334e726d02473ecf441acb1501f44feb42a7325.zip | |
Make mail-header-parse-addresses-lax more lax
* lisp/mail/mail-parse.el (mail-header-parse-addresses-lax): Be
more resilient (bug#54523).
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mail-parse.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/mail-parse.el b/lisp/mail/mail-parse.el index 23894e59b77..ec719850e2e 100644 --- a/lisp/mail/mail-parse.el +++ b/lisp/mail/mail-parse.el @@ -76,7 +76,8 @@ The return value is a list with mail/name pairs." (delq nil (mapcar (lambda (elem) - (or (mail-header-parse-address elem) + (or (ignore-errors + (mail-header-parse-address elem)) (mail-header-parse-address-lax elem))) (mail-header-parse-addresses string t)))) |