From 5ed86c7189f48e3fa40a1fe8de6c84407d0cf776 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Tue, 30 Nov 1999 19:26:17 +0000
Subject: Ready to ship 5.2.0.

svn path=/trunk/; revision=2656
---
 uid.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'uid.c')

diff --git a/uid.c b/uid.c
index 934eae82..c7f007e4 100644
--- a/uid.c
+++ b/uid.c
@@ -389,6 +389,18 @@ void update_str_lists(struct query *ctl)
     }
 }
 
+void uid_expunge(struct query *ctl)
+/* transfer seen UIDs from newsaved to oldsaved
+   to simulate writing anad rereading .fetchids */
+{
+    struct idlist *i;
+
+    for (i = ctl->newsaved; i; i = i->next)
+	if (i->val.status.mark == UID_SEEN &&
+	    !str_in_list(&ctl->oldsaved, i->id, FALSE))
+	    save_str(&ctl->oldsaved, i->id, UID_SEEN);
+}
+
 void write_saved_lists(struct query *hostlist, const char *idfile)
 /* perform end-of-run write of seen-messages list */
 {
-- 
cgit v1.2.3