mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail-make-in-reply-to-field): Discard text properties from

Browse Source 
the address before printing it.
This commit is contained in:
Richard M. Stallman 1994-01-29 23:56:27 +00:00
parent e58077c893
commit 1de48e7f1f
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/mail/rmail.el
View File

@ -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 *^&%*^&%$!!)