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 | 1f780b790f03e55a66b174f722ff5dd957723397 (patch) | |
| tree | c4b14298694bb112b9586b687ff64885de2ee478 /lisp | |
| parent | 384fc6ca30c348e10c1a8a1a9b2fb22f78b2eee7 (diff) | |
| download | emacs-1f780b790f03e55a66b174f722ff5dd957723397.tar.gz | |
(rmail-reply): If no resent-date, use ordinary date.
If no resent-to, use empty string for to.
Diffstat (limited to 'lisp')
| -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 "")) |