Mercurial > emacs
diff lisp/mail/rmail.el @ 5692:bb9b20ea092d
(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 | 16c603bdc2a3 |
| children | f3b8ec718c67 |
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 *^&%*^&%$!!)