also try to avoid unnecessary quotes when replying (see issue #217)

This commit is contained in:
joost 2013-06-05 10:26:22 +02:00
parent aefa144421
commit c511ae7f1f
1 changed files with 1 additions and 1 deletions

View File

@ -102,7 +102,7 @@ e-mail addresses. If LST is nil, returns nil."
(let ((name (car addrcell))
(email (cdr addrcell)))
(if name
(format "\"%s\" <%s>" name email)
(format "%s <%s>" (rfc822-quoteit name) email)
(format "%s" email))))
lst ", ")))