mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-reply): If no resent-date, use ordinary date.

Browse source 
If no resent-to, use empty string for to.
This commit is contained in:
Richard M. Stallman 1994-02-04 22:59:05 +00:00
parent 384fc6ca30
commit 1f780b790f
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/mail/rmail.el
View file

@ -1740,11 +1740,11 @@ use \\[mail-yank-original] to yank the original message into it."
subject (or (and resent-reply-to
(mail-fetch-field "resent-subject" t))
(mail-fetch-field "subject"))
date (cond (resent-reply-to
(mail-fetch-field "resent-date" t))
((mail-fetch-field "date")))
date (or (and resent-reply-to
(mail-fetch-field "resent-date" t))
(mail-fetch-field "date"))
to (cond (resent-reply-to
(mail-fetch-field "resent-to" t))
(or (mail-fetch-field "resent-to" t)) "")
((mail-fetch-field "to" nil t))
;((mail-fetch-field "apparently-to")) ack gag barf
(t ""))