Email gateway obeys 'Reply-To:' in header.

diff --git a/kernel/eti.c b/kernel/eti.c
index c69e67d..de0634b 100644 (file)
--- a/kernel/eti.c
+++ b/kernel/eti.c
@@ -45,7 +45,10 @@
  * Europagate, 1995
  *
  * $Log: eti.c,v $
- * Revision 1.17  1995/12/20 16:27:24  adam
+ * Revision 1.18  1996/03/01 14:25:28  adam
+ * Email gateway obeys 'Reply-To:' in header.
+ *
+ * Revision 1.17  1995/12/20  16:27:24  adam
  * Extra parameter block to gw_db_open.
  *
  * Revision 1.16  1995/07/11  11:49:11  adam
@@ -145,6 +148,8 @@ static int email_header (struct str_queue *sq,
             return 0;
         if (memcmp (msg, "From ", 5) == 0)
             sscanf (msg+4, "%s", from_str);
+        if (memcmp (msg, "Reply-To: ", 10) == 0)
+            sscanf (msg+10, "%s", from_str);
         if (memcmp (msg, "Subject: ", 9) == 0 &&
             sscanf (msg+9, "%s", subject_str+1) == 1)
             strcpy (subject_str, msg+9);

diff --git a/kernel/urp.c b/kernel/urp.c
index ef3378c..3cce3a1 100644 (file)
--- a/kernel/urp.c
+++ b/kernel/urp.c
@@ -45,7 +45,10 @@
  * Europagate, 1995
  *
  * $Log: urp.c,v $
- * Revision 1.48  1996/02/12 10:04:57  adam
+ * Revision 1.49  1996/03/01 14:25:28  adam
+ * Email gateway obeys 'Reply-To:' in header.
+ *
+ * Revision 1.48  1996/02/12  10:04:57  adam
  * The gateway doesn't try to reconnect if it is already known that
  * it will fail (connect_fail flag introduced).
  *
@@ -376,6 +379,8 @@ static int email_header (struct str_queue *sq,
             return 0;
         if (memcmp (line_buf, "From ", 5) == 0)
             sscanf (line_buf+4, "%s", from_str);
+        if (memcmp (line_buf, "Reply-To: ", 10) == 0)
+            sscanf (line_buf+10, "%s", from_str);
         if (memcmp (line_buf, "Subject: ", 9) == 0 &&
             sscanf (line_buf+9, "%s", subject_str+1) == 1)
             strcpy (subject_str, line_buf+9);