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

View File

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