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

[egate.git] / kernel / persist.c

diff --git a/kernel/persist.c b/kernel/persist.c
index 4d989e6..bea7f4b 100644 (file)
--- a/kernel/persist.c
+++ b/kernel/persist.c
@@ -45,7 +45,13 @@
  * Europagate, 1995
  *
  * $Log: persist.c,v $
- * Revision 1.8  1995/05/16 09:40:43  adam
+ * Revision 1.10  1995/07/20 08:16:38  adam
+ * Bug fix in persist.c: Double referenced result-sets weren't recovered.
+ *
+ * Revision 1.9  1995/05/19  13:26:00  adam
+ * Bug fixes. Better command line options.
+ *
+ * Revision 1.8  1995/05/16  09:40:43  adam
  * LICENSE. Setting of CCL token names (and/or/not/set) in read_kernel_res.
  *
  * Revision 1.7  1995/05/03  16:34:19  adam
@@ -102,7 +108,8 @@ static int set_change;
 static int obtain_set (ZASS zass, struct gw_user_set *set)
 {
     const struct zass_searchent *p;
-
+    
+    gw_log (GW_LOG_DEBUG, KERNEL_LOG, "Set %s must be obtained", set->name);
     p = zass_search (zass, set->rpn, set->name, set->database, NULL);
     if (!p)
         return 2;
@@ -148,6 +155,7 @@ static int obtain_sets (ZASS zass, struct ccl_rpn_node *rpn,
            return 0;
         }
     }
+    obtain_sets (zass, set->rpn, sets);
     return obtain_set (zass, set);
 }
 
@@ -297,9 +305,6 @@ int load_p_state (int userid)
         return -1;
     gw_log (GW_LOG_DEBUG, KERNEL_LOG, 
            "Reading persistence file %s (2)", fname);
-#if 0
-    reopen_target ();
-#endif
     while (fgetsx (fline, 1024, inf))
     {
         gw_log (GW_LOG_DEBUG, KERNEL_LOG, 
@@ -314,7 +319,9 @@ int load_p_state (int userid)
        gw_log (GW_LOG_DEBUG, KERNEL_LOG, "Search string %s", fline);
        set = user_set_add (resultname, hits, database, NULL, 0, fline);
        set->rpn = load_rpn (fline, inf);
+#if 0
        ccl_pr_tree (set->rpn, stderr);
+#endif
        fgetsx (fline, 1024, inf);
     }
     fclose (inf);