(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 bd788b78d8d446533384be309cea9bd206f3fca6..b496102a57a706ef0e24a91a733a6d4a9950da44 100644 (file)
--- 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 *^&%*^&%$!!)