Merge pull request #99 from mpscholten/add-move-to-upstream

Added support for IMAP move operation
qnikst · Aug 15, 2024 · 118e91d · 118e91d
2 parents 119deab + 27b03b4
commit 118e91d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Network/HaskellNet/IMAP.hs b/src/Network/HaskellNet/IMAP.hs
@@ -11,7 +11,7 @@ module Network.HaskellNet.IMAP
     , list, lsub, status, append, appendFull
       -- ** selected state commands
     , check, close, expunge
-    , search, store, copy
+    , search, store, copy, move
     , idle
       -- * fetch commands
     , fetch, fetchHeader, fetchSize, fetchHeaderFields, fetchHeaderFieldsNot
@@ -457,6 +457,9 @@ copyFull conn uidStr mbox =
 copy :: IMAPConnection -> UID -> MailboxName -> IO ()
 copy conn uid mbox     = copyFull conn (show uid) mbox
 
+move :: IMAPConnection -> UID -> MailboxName -> IO ()
+move conn uid mboxname = sendCommand conn ("UID MOVE " ++ show uid ++ " " ++ mboxname) pNone
+
 ----------------------------------------------------------------------
 -- auxialiary functions