simplify subject stripping in quote string
This commit is contained in:
parent
f8326ea890
commit
7146ffc52a
5
conf.org
5
conf.org
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue