diff options
| author | Richard M. Stallman | 1994-02-04 22:59:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-04 22:59:05 +0000 |
| commit | 1f780b790f03e55a66b174f722ff5dd957723397 (patch) | |
| tree | c4b14298694bb112b9586b687ff64885de2ee478 | |
| parent | 384fc6ca30c348e10c1a8a1a9b2fb22f78b2eee7 (diff) | |
| download | emacs-1f780b790f03e55a66b174f722ff5dd957723397.tar.gz emacs-1f780b790f03e55a66b174f722ff5dd957723397.zip | |
(rmail-reply): If no resent-date, use ordinary date.
If no resent-to, use empty string for to.
| -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." | |||
| 1740 | subject (or (and resent-reply-to | 1740 | subject (or (and resent-reply-to |
| 1741 | (mail-fetch-field "resent-subject" t)) | 1741 | (mail-fetch-field "resent-subject" t)) |
| 1742 | (mail-fetch-field "subject")) | 1742 | (mail-fetch-field "subject")) |
| 1743 | date (cond (resent-reply-to | 1743 | date (or (and resent-reply-to |
| 1744 | (mail-fetch-field "resent-date" t)) | 1744 | (mail-fetch-field "resent-date" t)) |
| 1745 | ((mail-fetch-field "date"))) | 1745 | (mail-fetch-field "date")) |
| 1746 | to (cond (resent-reply-to | 1746 | to (cond (resent-reply-to |
| 1747 | (mail-fetch-field "resent-to" t)) | 1747 | (or (mail-fetch-field "resent-to" t)) "") |
| 1748 | ((mail-fetch-field "to" nil t)) | 1748 | ((mail-fetch-field "to" nil t)) |
| 1749 | ;((mail-fetch-field "apparently-to")) ack gag barf | 1749 | ;((mail-fetch-field "apparently-to")) ack gag barf |
| 1750 | (t "")) | 1750 | (t "")) |