simplify subject stripping in quote string

This commit is contained in:
petrucci4prez 2018-09-20 22:30:32 -07:00
parent f8326ea890
commit 7146ffc52a
1 changed files with 1 additions and 4 deletions

View File

@ -1786,10 +1786,7 @@ The quote string should enable history tabbing in modern viewers such as outlook
(from (concat "From: " (mail-header-from h))) (from (concat "From: " (mail-header-from h)))
(date (concat "Sent: " (mail-header-date h))) (date (concat "Sent: " (mail-header-date h)))
(to (concat "To: " user-full-name)) (to (concat "To: " user-full-name))
(subj (concat "Subject: " (replace-regexp-in-string (subj (concat "Subject: " (message-strip-subject-re (mail-header-subject h)))))
"Re: "
""
(mail-header-subject h)))))
(insert (string-join `("" ,sep ,from ,date ,to ,subj "") "\n")))) (insert (string-join `("" ,sep ,from ,date ,to ,subj "") "\n"))))
(setq message-citation-line-function 'nd/message-insert-citation-header) (setq message-citation-line-function 'nd/message-insert-citation-header)