From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Jan 1994 23:56:27 +0000 (+0000)
Subject: (rmail-make-in-reply-to-field): Discard text properties from
X-Git-Tag: emacs-19.34~10159
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1de48e7f1f95cb54d3981ecd1087a8bb5982004e;p=emacs.git

(rmail-make-in-reply-to-field): Discard text properties from
the address before printing it.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index bd788b78d8d..b496102a57a 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1789,11 +1789,15 @@ use \\[mail-yank-original] to yank the original message into it."
                    ;; Message-ID is sufficiently informative
                    message-id
                    (concat message-id " (" tem ")"))
-               ;; Use prin1 to fake RFC822 quoting
-               (let ((field (prin1-to-string tem)))
-                 (if date
-                     (concat field "'s message of " date)
-                     field)))))
+	     ;; Copy TEM, discarding text properties.
+	     (setq tem (copy-sequence tem))
+	     (set-text-properties 0 (length tem) nil tem)
+	     (setq tem (copy-sequence tem))
+	     ;; Use prin1 to fake RFC822 quoting
+	     (let ((field (prin1-to-string tem)))
+	       (if date
+		   (concat field "'s message of " date)
+		   field)))))
         ((let* ((foo "[^][\000-\037\177-\377()<>@,;:\\\" ]+")
                 (bar "[^][\000-\037\177-\377()<>@,;:\\\"]+"))
            ;; Can't use format because format loses on \000 (unix *^&%*^&%$!!)