Mercurial > emacs
diff lisp/mail/rmail.el @ 5782:f3b8ec718c67
(rmail-reply): If no resent-date, use ordinary date.
If no resent-to, use empty string for to.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 04 Feb 1994 22:59:05 +0000 |
parents | bb9b20ea092d |
children | dc5249a23957 |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Feb 04 21:24:31 1994 +0000 +++ b/lisp/mail/rmail.el Fri Feb 04 22:59:05 1994 +0000 @@ -1740,11 +1740,11 @@ 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 ""))