support IMAP boxes in set_pobox

diff --git a/server/qsupport.pc b/server/qsupport.pc
index 8064ae9e57066521bfa869acc51d0bd8dae67d80..40d0698a0fe7080df66bf4a15ab5791a46711b99 100644 (file)
--- a/server/qsupport.pc
+++ b/server/qsupport.pc
@@ -85,6 +85,16 @@ int set_pobox(struct query *q, char **argv, client *cl)
       EXEC SQL UPDATE users SET potype = 'SMTP', box_id = :id
        WHERE users_id = :user;
     }
+  else if (!strcmp(argv[1], "IMAP"))
+    {
+      status = name_to_id(box, FILESYS_TABLE, &id);
+      if (status == MR_NO_MATCH)
+       return MR_FILESYS;
+      else if (status)
+       return status;
+      EXEC SQL UPDATE users SET potype = 'IMAP', pop_id = :id
+       WHERE users_id = :user;
+    }
   else /* argv[1] == "NONE" */
     {
       EXEC SQL UPDATE users SET potype = 'NONE'