IMAP import failed with "LIST mailbox name missing" when a mailbox name is a purely numeric unquoted atom (closes #26)

src/imap/response.rs

@@ -225,6 +225,7 @@ impl<'r, R: BufRead> Parser<'r, R> {
                 let name_val = self.parse_value()?;
                 let name = match name_val {
                     Value::Str(s) | Value::Atom(s) => s,
+                    Value::Number(n) => n.to_string(),
                     Value::Bytes(b) => String::from_utf8_lossy(&b).into_owned(),
                     _ => return Err(ImapError::Parse("LIST mailbox name missing".into())),
                 };
@@ -246,6 +247,7 @@ impl<'r, R: BufRead> Parser<'r, R> {
                 self.skip_ws();
                 let mailbox = match self.parse_value()? {
                     Value::Str(s) | Value::Atom(s) => s,
+                    Value::Number(n) => n.to_string(),
                     Value::Bytes(b) => String::from_utf8_lossy(&b).into_owned(),
                     _ => return Err(ImapError::Parse("STATUS mailbox missing".into())),
                 };
@@ -862,6 +864,26 @@ mod tests {
         }
     }
 
+    #[test]
+    fn untagged_list_with_numeric_atom_name() {
+        let r = parse(b"* LIST (\\Subscribed \\HasNoChildren \\UnMarked) \"/\" 200\r\n");
+        match r {
+            Response::Untagged(Untagged::List {
+                attributes,
+                delimiter,
+                name,
+            }) => {
+                assert_eq!(
+                    attributes,
+                    vec!["\\Subscribed", "\\HasNoChildren", "\\UnMarked"]
+                );
+                assert_eq!(delimiter, Some('/'));
+                assert_eq!(name, "200");
+            }
+            _ => panic!("expected List"),
+        }
+    }
+
     #[test]
     fn untagged_status() {
         let r = parse(b"* STATUS INBOX (UIDVALIDITY 12345 UIDNEXT 42 MESSAGES 7)\r\n");
@@ -876,6 +898,20 @@ mod tests {
         }
     }
 
+    #[test]
+    fn untagged_status_with_numeric_atom_mailbox() {
+        let r = parse(b"* STATUS 200 (MESSAGES 5 UIDNEXT 6 UIDVALIDITY 1778253936)\r\n");
+        match r {
+            Response::Untagged(Untagged::Status { mailbox, items }) => {
+                assert_eq!(mailbox, "200");
+                assert_eq!(items.get("MESSAGES"), Some(&5));
+                assert_eq!(items.get("UIDNEXT"), Some(&6));
+                assert_eq!(items.get("UIDVALIDITY"), Some(&1778253936));
+            }
+            _ => panic!("expected Status"),
+        }
+    }
+
     #[test]
     fn untagged_search_with_uids() {
         let r = parse(b"* SEARCH 1 3 5 7\r\n");