Mercurial > emacs

changeset 5692:bb9b20ea092d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-make-in-reply-to-field): Discard text properties from the address before printing it.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 Jan 1994 23:56:27 +0000
parents a93fc56763fd
children e54c2697692b
files lisp/mail/rmail.el
diffstat 1 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Sat Jan 29 02:09:41 1994 +0000
+++ b/lisp/mail/rmail.el	Sat Jan 29 23:56:27 1994 +0000
@@ -1789,11 +1789,15 @@
                    ;; 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 *^&%*^&%$!!)