Mercurial > emacs

comparison lisp/mail/rmail.el @ 5782:f3b8ec718c67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
5781:5ebe399ed4a3 5782:f3b8ec718c67
1738 (resent-reply-to (mail-fetch-field "resent-cc" t)) 1738 (resent-reply-to (mail-fetch-field "resent-cc" t))
1739 (t (mail-fetch-field "cc" nil t))) 1739 (t (mail-fetch-field "cc" nil t)))
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 ""))
1751 message-id (cond (resent-reply-to 1751 message-id (cond (resent-reply-to
1752 (mail-fetch-field "resent-message-id" t)) 1752 (mail-fetch-field "resent-message-id" t))