# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760402745 0
# Node ID f3b8ec718c67e0178f5cec0a08af934e8139b1ab
# Parent  5ebe399ed4a38040690d288681d143be92d90f31
(rmail-reply): If no resent-date, use ordinary date.
If no resent-to, use empty string for to.

diff -r 5ebe399ed4a3 -r f3b8ec718c67 lisp/mail/rmail.el
--- 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 ""))