procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix parsing of mail address headers (bug#64296)

Browse source 
RFC5322 specifies that an address header may be a list of both
individual mailboxes and mailbox groups.  This patch introduces
support for parsing headers that include groups.

* lisp/mail/ietf-drums.el (ietf-drums-parse-addresses): Allow message
address headers to include both mailboxes and groups.
This commit is contained in:
Andrew G Cohen 2023-06-27 21:11:35 +08:00
parent cb674ab40c
commit e37b96432b
1 changed files with 22 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/mail/ietf-drums.el
View file

@ -272,6 +272,21 @@ a list of address strings."
(while (not (eobp))
(setq c (char-after))
(cond
((eq c ?:)
(setq beg (1+ (point)))
(skip-chars-forward "^;")
(when-let ((address
(condition-case nil
(ietf-drums-parse-addresses
(buffer-substring beg (point)) rawp)
(error nil))))
(if (listp address)
(setq pairs (append address pairs))
(push address pairs)))
(condition-case nil
(forward-char 1)
(error nil))
(setq beg (point)))
((memq c '(?\" ?< ?\())
(condition-case nil
(forward-sexp 1)
@ -285,10 +300,12 @@ a list of address strings."
(ietf-drums-parse-address
(buffer-substring beg (point)))
(error nil))))
(if address (push address pairs))
(when (or (consp address)
(and (stringp address) (< 0 (length address))))
(push address pairs))
(forward-char 1)
(setq beg (point)))
(t
((not (eobp))
(forward-char 1))))
(setq address
(if rawp
@ -297,7 +314,9 @@ a list of address strings."
(ietf-drums-parse-address
(buffer-substring beg (point)))
(error nil))))
(if address (push address pairs))
(when (or (consp address)
(and (stringp address) (< 0 (length address))))
(push address pairs))
(nreverse pairs)))))
(defun ietf-drums-unfold-fws ()