diff options
| -rw-r--r-- | lisp/mail/rmail.el | 14 |
1 files 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." | |||
| 1789 | ;; Message-ID is sufficiently informative | 1789 | ;; Message-ID is sufficiently informative |
| 1790 | message-id | 1790 | message-id |
| 1791 | (concat message-id " (" tem ")")) | 1791 | (concat message-id " (" tem ")")) |
| 1792 | ;; Use prin1 to fake RFC822 quoting | 1792 | ;; Copy TEM, discarding text properties. |
| 1793 | (let ((field (prin1-to-string tem))) | 1793 | (setq tem (copy-sequence tem)) |
| 1794 | (if date | 1794 | (set-text-properties 0 (length tem) nil tem) |
| 1795 | (concat field "'s message of " date) | 1795 | (setq tem (copy-sequence tem)) |
| 1796 | field))))) | 1796 | ;; Use prin1 to fake RFC822 quoting |
| 1797 | (let ((field (prin1-to-string tem))) | ||
| 1798 | (if date | ||
| 1799 | (concat field "'s message of " date) | ||
| 1800 | field))))) | ||
| 1797 | ((let* ((foo "[^][\000-\037\177-\377()<>@,;:\\\" ]+") | 1801 | ((let* ((foo "[^][\000-\037\177-\377()<>@,;:\\\" ]+") |
| 1798 | (bar "[^][\000-\037\177-\377()<>@,;:\\\"]+")) | 1802 | (bar "[^][\000-\037\177-\377()<>@,;:\\\"]+")) |
| 1799 | ;; Can't use format because format loses on \000 (unix *^&%*^&%$!!) | 1803 | ;; Can't use format because format loses on \000 (unix *^&%*^&%$!!) |