[Emacs-diffs] master a38f79a 1/3: Allow `mail-header-parse-address' to decode encoded words

[Lars Ingebrigtsen]

branch: master
commit a38f79a8fd9c48b8911cad34159a64e97811a0ee
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Allow `mail-header-parse-address' to decode encoded words
    
    * lisp/mail/ietf-drums.el (ietf-drums-parse-address): Take an
    optional parameter to decode the display name.
---
 lisp/mail/ietf-drums.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/mail/ietf-drums.el b/lisp/mail/ietf-drums.el
index 83042b4..9bdb945 100644
--- a/lisp/mail/ietf-drums.el
+++ b/lisp/mail/ietf-drums.el
@@ -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.