Minor changes.

[egate.git] / kernel / urp.c

diff --git a/kernel/urp.c b/kernel/urp.c
index ef3378c..d472c26 100644 (file)
--- a/kernel/urp.c
+++ b/kernel/urp.c
@@ -45,7 +45,13 @@
  * Europagate, 1995
  *
  * $Log: urp.c,v $
- * Revision 1.48  1996/02/12 10:04:57  adam
+ * Revision 1.50  1996/03/01 16:09:30  adam
+ * New setting: gw.msg.replyto that sets Reply-To in user response.
+ *
+ * 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 +382,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);
@@ -1164,6 +1172,7 @@ static int exec_command (const char *str, int *stop_flag)
 int urp_start (int continuation, struct str_queue *queue)
 {
     char subject_str[128];
+    const char *cp;
 
     info.command_no = 0;
     info.reply_fname = NULL;
@@ -1192,6 +1201,9 @@ int urp_start (int continuation, struct str_queue *queue)
         fprintf (reply_fd, "From: %s\n",
                  gw_res_get (info.kernel_res, "gw.msg.from",
                              "Email-Z39.50 gateway"));
+       cp = gw_res_get (info.kernel_res, "gw.msg.replyto", NULL);
+       if (cp)
+            fprintf (reply_fd, "Reply-To: %s\n", cp);
         fprintf (reply_fd, "Subject: ");
         if (*subject_str)
             fprintf (reply_fd, "Z39.50 Re: %s", subject_str);