Mercurial > emacs
changeset 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 | 5ebe399ed4a3 |
| children | 6a97e54241a3 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
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 ""))