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

Allow `mail-header-parse-address' to decode encoded words

Browse source 
* lisp/mail/ietf-drums.el (ietf-drums-parse-address): Take an
optional parameter to decode the display name.
This commit is contained in:
Lars Ingebrigtsen 2018-04-15 19:42:10 +02:00
parent a3a9d5434d
commit a38f79a8fd
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -185,7 +185,7 @@ STRING is assumed to be a string that is extracted from
the Content-Transfer-Encoding header of a mail."
(ietf-drums-remove-garbage (inline (ietf-drums-strip string))))
(defun ietf-drums-parse-address (string)
(defun ietf-drums-parse-address (string &optional decode)
"Parse STRING and return a MAILBOX / DISPLAY-NAME pair."
(with-temp-buffer
(let (display-name mailbox c display-string)
@ -236,7 +236,9 @@ the Content-Transfer-Encoding header of a mail."
(cons
(mapconcat 'identity (nreverse display-name) "")
(ietf-drums-get-comment string)))
(cons mailbox display-string)))))
(cons mailbox (if decode
(rfc2047-decode-string display-string)
display-string))))))
(defun ietf-drums-parse-addresses (string &optional rawp)
"Parse STRING and return a list of MAILBOX / DISPLAY-NAME pairs.