From 1de48e7f1f95cb54d3981ecd1087a8bb5982004e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 29 Jan 1994 23:56:27 +0000 Subject: [PATCH] (rmail-make-in-reply-to-field): Discard text properties from the address before printing it. --- lisp/mail/rmail.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) 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 *^&%*^&%$!!) -- 2.39.5