From afe04765ae18fb52ab7d157e1be4da61906041d1 Mon Sep 17 00:00:00 2001
From: Christian Haschek <christian@haschek.at>
Date: Wed, 9 Feb 2022 00:38:57 +0100
Subject: [PATCH] pop3 server can now delete emails

---
 tools/pop3_server.php | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tools/pop3_server.php b/tools/pop3_server.php
index d16ce6a..17fbd9f 100644
--- a/tools/pop3_server.php
+++ b/tools/pop3_server.php
@@ -109,6 +109,7 @@ while(1)
 
                             break;
                         case 'PASS':
+                            // we'll accept any password
                             $message_count = count($messages);
                             $write_buffer .= "+OK mailbox has $message_count message(s)\r\n";
                             break;
@@ -163,6 +164,9 @@ while(1)
                             $write_buffer .= ".\r\n";
                             break;
                         case 'DELE':
+                            $message_id = (int) $argument;
+                            $msg = array_values(array_slice($messages, ($message_id-1), 1, true))[0];
+                            deleteEmail($msg['email'],$msg['id']);
                             $write_buffer .= "+OK\r\n";
                             break;
                         case 'NOOP':