diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-02-04 22:59:05 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-02-04 22:59:05 +0000 |
commit | 7056ad873a6c1525e174fb66f705faf0af217734 (patch) | |
tree | 1869d27dd7dc5473cd6fecafc966ffdeaee5cbdd /lisp/mail/rmail.el | |
parent | 95dd4c6ef71c3bb0bfd6e16e8bb757d0d3b13c8b (diff) | |
download | emacs-7056ad873a6c1525e174fb66f705faf0af217734.tar.gz |
(rmail-reply): If no resent-date, use ordinary date.
If no resent-to, use empty string for to.
Diffstat (limited to 'lisp/mail/rmail.el')
-rw-r--r-- | lisp/mail/rmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index b496102a57a..7d6e0490d97 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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 "")) |