From 14992ea3f8d34e9784f062b6c890b326bb8b46ec Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Sat, 28 Sep 1996 05:02:42 +0000
Subject: With any luck, this is a correct implementation of UIDL support.

svn path=/trunk/; revision=168
---
 imap.c | 34 ++++++++++++++++++++++------------
 1 file changed, 22 insertions(+), 12 deletions(-)

(limited to 'imap.c')

diff --git a/imap.c b/imap.c
index 902688f0..eb1553a4 100644
--- a/imap.c
+++ b/imap.c
@@ -206,20 +206,30 @@ int number;
 	return(0);
 }
 
+static imap_delete(socket, queryctl, number)
+/* set delete flag for given message */
+int socket;
+struct hostrec *queryctl;
+int number;
+{
+    return(socket, gen_transact("STORE %d +FLAGS (\\Deleted)", number));
+}
+
 static struct method imap =
 {
-    "IMAP",				/* Internet Message Access Protocol */
-    143,				/* standard IMAP2bis/IMAP4 port */
-    1,					/* this is a tagged protocol */
-    0,					/* no message delimiter */
-    imap_ok,				/* parse command response */
-    imap_getauth,			/* get authorization */
-    imap_getrange,			/* query range of messages */
-    imap_fetch,				/* request given message */
-    imap_trail,				/* eat message trailer */
-    "STORE %d +FLAGS (\\Deleted)",	/* set IMAP delete flag */
-    "EXPUNGE",				/* the IMAP expunge command */
-    "LOGOUT",				/* the IMAP exit command */
+    "IMAP",		/* Internet Message Access Protocol */
+    143,		/* standard IMAP2bis/IMAP4 port */
+    1,			/* this is a tagged protocol */
+    0,			/* no message delimiter */
+    imap_ok,		/* parse command response */
+    imap_getauth,	/* get authorization */
+    imap_getrange,	/* query range of messages */
+    NULL,		/* no UID check */
+    imap_fetch,		/* request given message */
+    imap_trail,		/* eat message trailer */
+    imap_delete,	/* set IMAP delete flag */
+    "EXPUNGE",		/* the IMAP expunge command */
+    "LOGOUT",		/* the IMAP exit command */
 };
 
 int doIMAP (queryctl)
-- 
cgit v1.2.3