* src/imap.c
[claws.git] / src / imap.c
index 752dd75a6844a4612f611f50572181bfd5bc64df..ce77e618167af2f1777fe6d2145cf3eb0cb33bbe 100644 (file)
        }                                                       \
 }
 
+struct _IMAPFolderItem
+{
+       FolderItem item;
+
+       guint lastuid;
+       GSList *uid_list;
+};
+
 static GList *session_list = NULL;
 
 static gint imap_cmd_count = 0;
@@ -77,11 +85,16 @@ static void imap_folder_init                (Folder         *folder,
                                         const gchar    *name,
                                         const gchar    *path);
 
+static FolderItem *imap_folder_item_new        (Folder         *folder);
+static void imap_folder_item_destroy   (Folder         *folder,
+                                        FolderItem     *item);
+
 static IMAPSession *imap_session_get   (Folder         *folder);
 
 static gint imap_scan_tree_recursive   (IMAPSession    *session,
                                         FolderItem     *item);
-static GSList *imap_parse_list         (IMAPSession    *session,
+static GSList *imap_parse_list         (Folder         *folder,
+                                        IMAPSession    *session,
                                         const gchar    *real_path);
 
 static void imap_create_missing_folders        (Folder                 *folder);
@@ -118,11 +131,20 @@ static SockInfo *imap_open                (const gchar    *server,
                                         gushort         port);
 #endif
 
+#if USE_SSL
 static SockInfo *imap_open_tunnel(const gchar *server,
                                  const gchar *tunnelcmd,
                                  SSLType ssl_type);
+#else
+static SockInfo *imap_open_tunnel(const gchar *server,
+                                 const gchar *tunnelcmd);
+#endif
 
-static SockInfo *imap_init_sock(SockInfo *sock, SSLType ssl_type);
+#if USE_SSL
+static SockInfo *imap_init_sock(SockInfo *sock, SSLType         ssl_type);
+#else
+static SockInfo *imap_init_sock(SockInfo *sock);
+#endif
 
 static gint imap_set_message_flags     (IMAPSession    *session,
                                         guint32         first_uid,
@@ -162,18 +184,9 @@ static gchar *imap_parse_atom              (SockInfo       *sock,
                                         gchar          *dest,
                                         gint            dest_len,
                                         GString        *str);
-static gchar *imap_parse_one_address   (SockInfo       *sock,
-                                        gchar          *start,
-                                        gchar          *out_from_str,
-                                        gchar          *out_fromname_str,
-                                        GString        *str);
-static gchar *imap_parse_address       (SockInfo       *sock,
-                                        gchar          *start,
-                                        gchar         **out_from_str,
-                                        gchar         **out_fromname_str,
-                                        GString        *str);
 static MsgFlags imap_parse_flags       (const gchar    *flag_str);
 static MsgInfo *imap_parse_envelope    (SockInfo       *sock,
+                                        FolderItem     *item,
                                         GString        *line_str);
 static gint imap_greeting              (SockInfo *sock,
                                         gboolean *is_preauth);
@@ -270,7 +283,14 @@ static gchar *imap_locale_to_modified_utf7 (const gchar    *from);
 
 static gboolean imap_rename_folder_func                (GNode          *node,
                                                 gpointer        data);
-
+gint imap_get_num_list                         (Folder         *folder,
+                                                FolderItem     *item,
+                                                GSList        **list);
+MsgInfo *imap_get_msginfo                      (Folder         *folder,
+                                                FolderItem     *item,
+                                                gint            num);
+gboolean imap_check_msgnum_validity            (Folder         *folder,
+                                                FolderItem     *item);
 
 Folder *imap_folder_new(const gchar *name, const gchar *path)
 {
@@ -282,34 +302,96 @@ Folder *imap_folder_new(const gchar *name, const gchar *path)
        return folder;
 }
 
-void imap_folder_destroy(IMAPFolder *folder)
+void imap_folder_destroy(Folder *folder)
 {
+       gchar *dir;
+
+       dir = folder_get_path(folder);
+       if (is_dir_exist(dir))
+               remove_dir_recursive(dir);
+       g_free(dir);
+
        folder_remote_folder_destroy(REMOTE_FOLDER(folder));
 }
 
 static void imap_folder_init(Folder *folder, const gchar *name,
                             const gchar *path)
 {
-       folder_remote_folder_init(folder, name, path);
-
        folder->type = F_IMAP;
 
+       folder_remote_folder_init((Folder *)folder, name, path);
+
+/*
        folder->get_msg_list        = imap_get_msg_list;
-       folder->fetch_msg           = imap_fetch_msg;
-       folder->add_msg             = imap_add_msg;
-       folder->move_msg            = imap_move_msg;
-       folder->move_msgs_with_dest = imap_move_msgs_with_dest;
-       folder->copy_msg            = imap_copy_msg;
-       folder->copy_msgs_with_dest = imap_copy_msgs_with_dest;
-       folder->remove_msg          = imap_remove_msg;
-       folder->remove_all_msg      = imap_remove_all_msg;
-       folder->is_msg_changed      = imap_is_msg_changed;
+*/
+       folder->item_new              = imap_folder_item_new;
+       folder->item_destroy          = imap_folder_item_destroy;
+       folder->fetch_msg             = imap_fetch_msg;
+       folder->add_msg               = imap_add_msg;
+       folder->move_msg              = imap_move_msg;
+       folder->move_msgs_with_dest   = imap_move_msgs_with_dest;
+       folder->copy_msg              = imap_copy_msg;
+       folder->copy_msgs_with_dest   = imap_copy_msgs_with_dest;
+       folder->remove_msg            = imap_remove_msg;
+       folder->remove_msgs           = imap_remove_msgs;
+       folder->remove_all_msg        = imap_remove_all_msg;
+       folder->is_msg_changed        = imap_is_msg_changed;
+/*
        folder->scan                = imap_scan_folder;
-       folder->scan_tree           = imap_scan_tree;
-       folder->create_tree         = imap_create_tree;
-       folder->create_folder       = imap_create_folder;
-       folder->rename_folder       = imap_rename_folder;
-       folder->remove_folder       = imap_remove_folder;
+*/
+       folder->scan_tree             = imap_scan_tree;
+       folder->create_tree           = imap_create_tree;
+       folder->create_folder         = imap_create_folder;
+       folder->rename_folder         = imap_rename_folder;
+       folder->remove_folder         = imap_remove_folder;
+       folder->destroy               = imap_folder_destroy;
+       folder->check_msgnum_validity = imap_check_msgnum_validity;
+
+       folder->get_num_list          = imap_get_num_list;
+       folder->get_msginfo           = imap_get_msginfo;
+       
+       ((IMAPFolder *)folder)->selected_folder = NULL;
+}
+
+static FolderItem *imap_folder_item_new(Folder *folder)
+{
+       IMAPFolderItem *item;
+       
+       item = g_new0(IMAPFolderItem, 1);
+       item->lastuid = 0;
+       item->uid_list = NULL;
+
+       return (FolderItem *)item;
+}
+
+static void imap_folder_item_destroy(Folder *folder, FolderItem *_item)
+{
+       IMAPFolderItem *item = (IMAPFolderItem *)_item;
+
+       g_return_if_fail(item != NULL);
+       g_slist_free(item->uid_list);
+
+       g_free(_item);
+}
+
+static gboolean imap_reset_uid_lists_func(GNode *node, gpointer data)
+{
+       IMAPFolderItem *item = (IMAPFolderItem *)node->data;
+       
+       item->lastuid = 0;
+       g_slist_free(item->uid_list);
+       item->uid_list = NULL;
+       
+       return FALSE;
+}
+
+static void imap_reset_uid_lists(Folder *folder)
+{
+       if(folder->node == NULL)
+               return;
+       
+       /* Destroy all uid lists and rest last uid */
+       g_node_traverse(folder->node, G_IN_ORDER, G_TRAVERSE_ALL, -1, imap_reset_uid_lists_func, NULL); 
 }
 
 static IMAPSession *imap_session_get(Folder *folder)
@@ -337,6 +419,9 @@ static IMAPSession *imap_session_get(Folder *folder)
                        imap_parse_namespace(IMAP_SESSION(rfolder->session),
                                             IMAP_FOLDER(folder));
                        rfolder->session->last_access_time = time(NULL);
+                       g_free(((IMAPFolder *)folder)->selected_folder);
+                       ((IMAPFolder *)folder)->selected_folder = NULL;
+                       imap_reset_uid_lists(folder);
                }
                statusbar_pop_all();
                return IMAP_SESSION(rfolder->session);
@@ -363,9 +448,13 @@ static IMAPSession *imap_session_get(Folder *folder)
                session_destroy(rfolder->session);
                rfolder->session =
                        imap_session_new(folder->account);
-               if (rfolder->session)
+               if (rfolder->session) {
                        imap_parse_namespace(IMAP_SESSION(rfolder->session),
                                             IMAP_FOLDER(folder));
+                       g_free(((IMAPFolder *)folder)->selected_folder);
+                       ((IMAPFolder *)folder)->selected_folder = NULL;
+                       imap_reset_uid_lists(folder);
+               }
        }
 
        if (rfolder->session)
@@ -396,9 +485,14 @@ Session *imap_session_new(const PrefsAccount *account)
 
        if (account->set_tunnelcmd) {
                log_message(_("creating tunneled IMAP4 connection\n"));
+#if USE_SSL
                if ((imap_sock = imap_open_tunnel(account->recv_server, 
                                                  account->tunnelcmd,
                                                  ssl_type)) == NULL)
+#else
+               if ((imap_sock = imap_open_tunnel(account->recv_server, 
+                                                 account->tunnelcmd)) == NULL)
+#endif
                        return NULL;
        } else {
                g_return_val_if_fail(account->recv_server != NULL, NULL);
@@ -440,6 +534,7 @@ Session *imap_session_new(const PrefsAccount *account)
        }
 
        session = g_new(IMAPSession, 1);
+
        SESSION(session)->type             = SESSION_IMAP;
        SESSION(session)->server           = g_strdup(account->recv_server);
        SESSION(session)->sock             = imap_sock;
@@ -447,6 +542,9 @@ Session *imap_session_new(const PrefsAccount *account)
        SESSION(session)->phase            = SESSION_READY;
        SESSION(session)->last_access_time = time(NULL);
        SESSION(session)->data             = NULL;
+
+       SESSION(session)->destroy          = imap_session_destroy;
+
        session->mbox = NULL;
 
        session_list = g_list_append(session_list, session);
@@ -454,12 +552,12 @@ Session *imap_session_new(const PrefsAccount *account)
        return SESSION(session);
 }
 
-void imap_session_destroy(IMAPSession *session)
+void imap_session_destroy(Session *session)
 {
-       sock_close(SESSION(session)->sock);
-       SESSION(session)->sock = NULL;
+       sock_close(session->sock);
+       session->sock = NULL;
 
-       g_free(session->mbox);
+       g_free(IMAP_SESSION(session)->mbox);
 
        session_list = g_list_remove(session_list, session);
 }
@@ -493,7 +591,7 @@ GSList *imap_get_msg_list(Folder *folder, FolderItem *item, gboolean use_cache)
 
        if (!session) {
                mlist = procmsg_read_cache(item, FALSE);
-               item->last_num = procmsg_get_last_num_in_cache(mlist);
+               item->last_num = procmsg_get_last_num_in_msg_list(mlist);
                procmsg_set_flags(mlist, item);
                statusbar_pop_all();
                return mlist;
@@ -521,7 +619,7 @@ GSList *imap_get_msg_list(Folder *folder, FolderItem *item, gboolean use_cache)
 
                mlist = procmsg_read_cache(item, FALSE);
                procmsg_set_flags(mlist, item);
-               cache_last = procmsg_get_last_num_in_cache(mlist);
+               cache_last = procmsg_get_last_num_in_msg_list(mlist);
 
                /* calculating the range of envelope to get */
                if (item->mtime != uid_validity) {
@@ -586,7 +684,7 @@ gchar *imap_fetch_msg(Folder *folder, FolderItem *item, gint uid)
        g_free(path);
  
        if (is_file_exist(filename)) {
-               debug_print(_("message %d has been already cached.\n"), uid);
+               debug_print("message %d has been already cached.\n", uid);
                return filename;
        }
 
@@ -605,7 +703,7 @@ gchar *imap_fetch_msg(Folder *folder, FolderItem *item, gint uid)
                return NULL;
        }
 
-       debug_print(_("getting message %d...\n"), uid);
+       debug_print("getting message %d...\n", uid);
        ok = imap_cmd_fetch(SESSION(session)->sock, (guint32)uid, filename);
 
        statusbar_pop_all();
@@ -665,8 +763,10 @@ static gint imap_do_copy(Folder *folder, FolderItem *dest, MsgInfo *msginfo,
 {
        gchar *destdir;
        IMAPSession *session;
+       gint messages, recent, unseen, exists;
+       guint32 uid_next, uid_validity;
        gint ok;
-
+    
        g_return_val_if_fail(folder != NULL, -1);
        g_return_val_if_fail(folder->type == F_IMAP, -1);
        g_return_val_if_fail(dest != NULL, -1);
@@ -680,14 +780,32 @@ static gint imap_do_copy(Folder *folder, FolderItem *dest, MsgInfo *msginfo,
                return -1;
        }
 
+       ok = imap_status(session, IMAP_FOLDER(folder), dest->path,
+                        &messages, &recent, &uid_next, &uid_validity, &unseen);
+       statusbar_pop_all();
+       if (ok != IMAP_SUCCESS) {
+               g_warning(_("can't copy message\n"));
+               return -1;
+       }
+
        destdir = imap_get_real_path(IMAP_FOLDER(folder), dest->path);
 
-       if (remove_source)
-               debug_print(_("Moving message %s%c%d to %s ...\n"),
+    /* ensure source folder selected */
+    if (strcmp(((IMAPFolder *)folder)->selected_folder, 
+                    msginfo->folder->path) != 0) {
+           ok = imap_select(session, IMAP_FOLDER(folder), msginfo->folder->path,
+                            &exists, &recent, &unseen, &uid_validity);
+           statusbar_pop_all();
+           if (ok != IMAP_SUCCESS)
+                   return -1;
+    }
+        
+    if (remove_source)
+               debug_print("Moving message %s%c%d to %s ...\n",
                            msginfo->folder->path, G_DIR_SEPARATOR,
                            msginfo->msgnum, destdir);
        else
-               debug_print(_("Copying message %s%c%d to %s ...\n"),
+               debug_print("Copying message %s%c%d to %s ...\n",
                            msginfo->folder->path, G_DIR_SEPARATOR,
                            msginfo->msgnum, destdir);
 
@@ -703,7 +821,7 @@ static gint imap_do_copy(Folder *folder, FolderItem *dest, MsgInfo *msginfo,
        statusbar_pop_all();
 
        if (ok == IMAP_SUCCESS)
-               return 0;
+               return uid_next;
        else
                return -1;
 }
@@ -717,6 +835,8 @@ static gint imap_do_copy_msgs_with_dest(Folder *folder, FolderItem *dest,
        MsgInfo *msginfo;
        IMAPSession *session;
        gint ok = IMAP_SUCCESS;
+       gint exists, recent, unseen;
+       guint32 uid_validity;
 
        g_return_val_if_fail(folder != NULL, -1);
        g_return_val_if_fail(dest != NULL, -1);
@@ -735,12 +855,23 @@ static gint imap_do_copy_msgs_with_dest(Folder *folder, FolderItem *dest,
                        continue;
                }
 
+        /* ensure source folder selected */
+        if (strcmp(((IMAPFolder *)folder)->selected_folder, 
+                        msginfo->folder->path) != 0) {
+               ok = imap_select(session, IMAP_FOLDER(folder), 
+                    msginfo->folder->path, &exists, &recent, &unseen, 
+                    &uid_validity);
+               statusbar_pop_all();
+               if (ok != IMAP_SUCCESS)
+                       return -1;
+        }
+        
                if (remove_source)
-                       debug_print(_("Moving message %s%c%d to %s ...\n"),
+                       debug_print("Moving message %s%c%d to %s ...\n",
                                    msginfo->folder->path, G_DIR_SEPARATOR,
                                    msginfo->msgnum, destdir);
                else
-                       debug_print(_("Copying message %s%c%d to %s ...\n"),
+                       debug_print("Copying message %s%c%d to %s ...\n",
                                    msginfo->folder->path, G_DIR_SEPARATOR,
                                    msginfo->msgnum, destdir);
 
@@ -785,9 +916,12 @@ gint imap_move_msg(Folder *folder, FolderItem *dest, MsgInfo *msginfo)
        ret = imap_add_msg(folder, dest, srcfile, FALSE);
        g_free(srcfile);
 
-       if (ret == 0)
-               ret = folder_item_remove_msg(msginfo->folder, msginfo->msgnum);
-
+       if (ret != -1) {
+               if(folder_item_remove_msg(msginfo->folder, msginfo->msgnum)) {
+                       ret = -1;
+               }
+       }
+               
        return ret;
 }
 
@@ -809,7 +943,7 @@ gint imap_move_msgs_with_dest(Folder *folder, FolderItem *dest,
        for (cur = msglist; cur != NULL; cur = cur->next) {
                msginfo = (MsgInfo *)cur->data;
                ret = imap_move_msg(folder, dest, msginfo);
-               if (ret != 0) break;
+               if (ret == -1) break;
        }
 
        return ret;
@@ -857,7 +991,7 @@ gint imap_copy_msgs_with_dest(Folder *folder, FolderItem *dest,
        for (cur = msglist; cur != NULL; cur = cur->next) {
                msginfo = (MsgInfo *)cur->data;
                ret = imap_copy_msg(folder, dest, msginfo);
-               if (ret != 0) break;
+               if (ret == -1) break;
        }
 
        return ret;
@@ -869,6 +1003,7 @@ gint imap_remove_msg(Folder *folder, FolderItem *item, gint uid)
        guint32 uid_validity;
        gint ok;
        IMAPSession *session;
+       gchar *dir;
 
        g_return_val_if_fail(folder != NULL, -1);
        g_return_val_if_fail(folder->type == F_IMAP, -1);
@@ -899,6 +1034,69 @@ gint imap_remove_msg(Folder *folder, FolderItem *item, gint uid)
                return ok;
        }
 
+       dir = folder_item_get_path(item);
+       if (is_dir_exist(dir))
+               remove_numbered_files(dir, uid, uid);
+       g_free(dir);
+
+       return IMAP_SUCCESS;
+}
+
+gint imap_remove_msgs(Folder *folder, FolderItem *item, GSList *msglist)
+{
+       gint exists, recent, unseen;
+       guint32 uid_validity;
+       gint ok;
+       IMAPSession *session;
+       gchar *dir;
+       MsgInfo *msginfo;
+       GSList *cur;
+       guint32 uid;
+
+       g_return_val_if_fail(folder != NULL, -1);
+       g_return_val_if_fail(folder->type == F_IMAP, -1);
+       g_return_val_if_fail(item != NULL, -1);
+       g_return_val_if_fail(msglist != NULL, -1);
+
+       session = imap_session_get(folder);
+       if (!session) return -1;
+
+       ok = imap_select(session, IMAP_FOLDER(folder), item->path,
+                        &exists, &recent, &unseen, &uid_validity);
+       statusbar_pop_all();
+       if (ok != IMAP_SUCCESS)
+               return ok;
+
+       for (cur = msglist; cur != NULL; cur = cur->next) {
+               msginfo = (MsgInfo *)cur->data;
+               uid = msginfo->msgnum;
+               ok = imap_set_message_flags
+                       (IMAP_SESSION(REMOTE_FOLDER(folder)->session),
+                        uid, uid, IMAP_FLAG_DELETED, TRUE);
+               statusbar_pop_all();
+               if (ok != IMAP_SUCCESS) {
+                       log_warning(_("can't set deleted flags: %d\n"), uid);
+                       return ok;
+               }
+       }
+
+       ok = imap_cmd_expunge(SESSION(session)->sock);
+       statusbar_pop_all();
+       if (ok != IMAP_SUCCESS) {
+               log_warning(_("can't expunge\n"));
+               return ok;
+       }
+
+       dir = folder_item_get_path(item);
+       if (is_dir_exist(dir)) {
+               for (cur = msglist; cur != NULL; cur = cur->next) {
+                       msginfo = (MsgInfo *)cur->data;
+                       uid = msginfo->msgnum;
+                       remove_numbered_files(dir, uid, uid);
+               }
+       }
+       g_free(dir);
        return IMAP_SUCCESS;
 }
 
@@ -908,6 +1106,7 @@ gint imap_remove_all_msg(Folder *folder, FolderItem *item)
        guint32 uid_validity;
        gint ok;
        IMAPSession *session;
+       gchar *dir;
 
        g_return_val_if_fail(folder != NULL, -1);
        g_return_val_if_fail(item != NULL, -1);
@@ -939,6 +1138,11 @@ gint imap_remove_all_msg(Folder *folder, FolderItem *item)
                return ok;
        }
 
+       dir = folder_item_get_path(item);
+       if (is_dir_exist(dir))
+               remove_all_numbered_files(dir);
+       g_free(dir);
+
        return IMAP_SUCCESS;
 }
 
@@ -985,7 +1189,15 @@ void imap_scan_tree(Folder *folder)
        g_return_if_fail(folder->account != NULL);
 
        session = imap_session_get(folder);
-       if (!session) return;
+       if (!session) {
+               if (!folder->node) {
+                       folder_tree_destroy(folder);
+                       item = folder_item_new(folder, folder->name, NULL);
+                       item->folder = folder;
+                       folder->node = g_node_new(item);
+               }
+               return;
+       }
 
        if (folder->account->imap_dir && *folder->account->imap_dir) {
                Xstrdup_a(root_folder, folder->account->imap_dir, return);
@@ -993,9 +1205,9 @@ void imap_scan_tree(Folder *folder)
                debug_print("IMAP root directory: %s\n", root_folder);
        }
 
-       folder_tree_destroy(folder);
-       item = folder_item_new(folder->name, root_folder);
+       item = folder_item_new(folder, folder->name, root_folder);
        item->folder = folder;
+       item->no_select = TRUE;
        folder->node = g_node_new(item);
 
        imap_scan_tree_recursive(session, item);
@@ -1045,7 +1257,7 @@ static gint imap_scan_tree_recursive(IMAPSession *session, FolderItem *item)
                          wildcard_path);
 
        strtailchomp(real_path, separator);
-       item_list = imap_parse_list(session, real_path);
+       item_list = imap_parse_list(folder, session, real_path);
        g_free(real_path);
 
        for (cur = item_list; cur != NULL; cur = cur->next) {
@@ -1087,7 +1299,7 @@ static gint imap_scan_tree_recursive(IMAPSession *session, FolderItem *item)
        return IMAP_SUCCESS;
 }
 
-static GSList *imap_parse_list(IMAPSession *session, const gchar *real_path)
+static GSList *imap_parse_list(Folder *folder, IMAPSession *session, const gchar *real_path)
 {
        gchar buf[IMAPBUFSIZE];
        gchar flags[256];
@@ -1151,7 +1363,7 @@ static GSList *imap_parse_list(IMAPSession *session, const gchar *real_path)
 
                loc_name = imap_modified_utf7_to_locale(name);
                loc_path = imap_modified_utf7_to_locale(buf);
-               new_item = folder_item_new(loc_name, loc_path);
+               new_item = folder_item_new(folder, loc_name, loc_path);
                if (strcasestr(flags, "\\Noinferiors") != NULL)
                        new_item->no_sub = TRUE;
                if (strcmp(buf, "INBOX") != 0 &&
@@ -1321,7 +1533,7 @@ FolderItem *imap_create_folder(Folder *folder, FolderItem *parent,
                }
        }
 
-       new_item = folder_item_new(new_name, dirpath);
+       new_item = folder_item_new(folder, new_name, dirpath);
        folder_item_append(parent, new_item);
        g_free(imap_path);
        g_free(dirpath);
@@ -1506,12 +1718,12 @@ static GSList *imap_get_uncached_messages(IMAPSession *session,
                        g_free(tmp);
                        continue;
                }
-               /* log_print("IMAP4< %s\n", tmp); */
-               debug_print("IMAP4< %s\n", tmp);
+               log_print("IMAP4< %s\n", tmp);
                g_string_assign(str, tmp);
                g_free(tmp);
 
-               msginfo = imap_parse_envelope(SESSION(session)->sock, str);
+               msginfo = imap_parse_envelope
+                       (SESSION(session)->sock, item, str);
                if (!msginfo) {
                        log_warning(_("can't parse envelope: %s\n"), str->str);
                        continue;
@@ -1548,11 +1760,12 @@ static GSList *imap_delete_cached_messages(GSList *mlist, FolderItem *item,
        g_return_val_if_fail(item->folder != NULL, mlist);
        g_return_val_if_fail(item->folder->type == F_IMAP, mlist);
 
-       debug_print(_("Deleting cached messages %d - %d ... "),
+       debug_print("Deleting cached messages %u - %u ... ",
                    first_uid, last_uid);
 
        dir = folder_item_get_path(item);
-       remove_numbered_files(dir, first_uid, last_uid);
+       if (is_dir_exist(dir))
+               remove_numbered_files(dir, first_uid, last_uid);
        g_free(dir);
 
        for (cur = mlist; cur != NULL; ) {
@@ -1568,7 +1781,7 @@ static GSList *imap_delete_cached_messages(GSList *mlist, FolderItem *item,
                cur = next;
        }
 
-       debug_print(_("done.\n"));
+       debug_print("done.\n");
 
        return mlist;
 }
@@ -1581,19 +1794,24 @@ static void imap_delete_all_cached_messages(FolderItem *item)
        g_return_if_fail(item->folder != NULL);
        g_return_if_fail(item->folder->type == F_IMAP);
 
-       debug_print(_("Deleting all cached messages... "));
+       debug_print("Deleting all cached messages...\n");
 
        dir = folder_item_get_path(item);
-       remove_all_numbered_files(dir);
+       if (is_dir_exist(dir))
+               remove_all_numbered_files(dir);
        g_free(dir);
 
-       debug_print(_("done.\n"));
+       debug_print("done.\n");
 }
 
-
+#if USE_SSL
 static SockInfo *imap_open_tunnel(const gchar *server,
                           const gchar *tunnelcmd,
                           SSLType ssl_type)
+#else
+static SockInfo *imap_open_tunnel(const gchar *server,
+                          const gchar *tunnelcmd)
+#endif
 {
        SockInfo *sock;
 
@@ -1601,8 +1819,11 @@ static SockInfo *imap_open_tunnel(const gchar *server,
                log_warning(_("Can't establish IMAP4 session with: %s\n"),
                            server);
                return NULL;
-
+#if USE_SSL
        return imap_init_sock(sock, ssl_type);
+#else
+       return imap_init_sock(sock);
+#endif
 }
 
 
@@ -1628,13 +1849,17 @@ static SockInfo *imap_open(const gchar *server, gushort port)
                sock_close(sock);
                return NULL;
        }
-#endif
-
        return imap_init_sock(sock, ssl_type);
+#else
+       return imap_init_sock(sock);
+#endif
 }
 
-
+#if USE_SSL
 static SockInfo *imap_init_sock(SockInfo *sock, SSLType ssl_type)
+#else
+static SockInfo *imap_init_sock(SockInfo *sock)
+#endif
 {
        imap_cmd_count = 0;
 #if USE_SSL
@@ -1655,7 +1880,7 @@ static SockInfo *imap_init_sock(SockInfo *sock, SSLType ssl_type)
 #endif
 
        if (imap_cmd_noop(sock) != IMAP_SUCCESS) {
-               log_warning(_("Can't establish IMAP4 session. \n"));
+               log_warning(_("Can't establish IMAP4 session.\n"));
                sock_close(sock);
                return NULL;
        }
@@ -1873,98 +2098,66 @@ static gchar *imap_parse_atom(SockInfo *sock, gchar *src,
        return cur_pos;
 }
 
-static gchar *imap_parse_one_address(SockInfo *sock, gchar *start,
-                                    gchar *out_from_str,
-                                    gchar *out_fromname_str,
-                                    GString *str)
+static gchar *imap_get_header(SockInfo *sock, gchar *cur_pos, gchar **headers,
+                             GString *str)
 {
-       gchar buf[IMAPBUFSIZE];
-       gchar *userid;
-       gchar *domain;
-       gchar *cur_pos = start;
-
-       cur_pos = imap_parse_atom(sock, cur_pos, buf, sizeof(buf), str);
-       conv_unmime_header(out_fromname_str, IMAPBUFSIZE, buf, NULL);
-
-       cur_pos = imap_parse_atom(sock, cur_pos, buf, sizeof(buf), str);
+       gchar *nextline;
+       gchar buf[32];
+       gint len;
+       gint block_len = 0;
 
-       cur_pos = imap_parse_atom(sock, cur_pos, buf, sizeof(buf), str);
-       Xstrdup_a(userid, buf, return cur_pos + 1);
+       *headers = NULL;
 
-       cur_pos = imap_parse_atom(sock, cur_pos, buf, sizeof(buf), str);
-       Xstrdup_a(domain, buf, return cur_pos + 1);
+       g_return_val_if_fail(str != NULL, cur_pos);
 
-       if (out_fromname_str[0] != '\0') {
-               g_snprintf(out_from_str, IMAPBUFSIZE, "\"%s\" <%s@%s>",
-                          out_fromname_str, userid, domain);
-       } else {
-               g_snprintf(out_from_str, IMAPBUFSIZE, "%s@%s",
-                          userid, domain);
-               strcpy(out_fromname_str, out_from_str);
-       }
+       while (isspace(*cur_pos)) cur_pos++;
 
-       while (*cur_pos == ' ') cur_pos++;
-       g_return_val_if_fail(*cur_pos == ')', NULL);
+       g_return_val_if_fail(*cur_pos == '{', cur_pos);
 
-       return cur_pos + 1;
-}
+       cur_pos = strchr_cpy(cur_pos + 1, '}', buf, sizeof(buf));
+       len = atoi(buf);
 
-static gchar *imap_parse_address(SockInfo *sock, gchar *start,
-                                gchar **out_from_str,
-                                gchar **out_fromname_str,
-                                GString *str)
-{
-       gchar buf[IMAPBUFSIZE];
-       gchar name_buf[IMAPBUFSIZE];
-       gchar *cur_pos = start;
-       GString *addr_str;
+       g_string_truncate(str, 0);
+       cur_pos = str->str;
 
-       if (out_from_str)     *out_from_str     = NULL;
-       if (out_fromname_str) *out_fromname_str = NULL;
-       buf[0] = name_buf[0] = '\0';
+       do {
+               if ((nextline = sock_getline(sock)) == NULL)
+                       return cur_pos;
+               block_len += strlen(nextline);
+               g_string_append(str, nextline);
+               cur_pos = str->str;
+               strretchomp(nextline);
+               /* debug_print("IMAP4< %s\n", nextline); */
+               g_free(nextline);
+       } while (block_len < len);
 
-       if (!strncmp(cur_pos, "NIL", 3)) {
-               if (out_from_str)     *out_from_str     = g_strdup("");
-               if (out_fromname_str) *out_fromname_str = g_strdup("");
-               return cur_pos + 3;
-       }
+       debug_print("IMAP4< [contents of RFC822.HEADER]\n");
 
-       g_return_val_if_fail(*cur_pos == '(', NULL);
-       cur_pos++;
+       *headers = g_strndup(cur_pos, len);
+       cur_pos += len;
 
-       addr_str = g_string_new(NULL);
+       while (isspace(*cur_pos)) cur_pos++;
+       while (*cur_pos == '\0') {
+               if ((nextline = sock_getline(sock)) == NULL)
+                       return cur_pos;
+               g_string_assign(str, nextline);
+               cur_pos = str->str;
+               strretchomp(nextline);
+               debug_print("IMAP4< %s\n", nextline);
+               g_free(nextline);
 
-       for (;;) {
-               gchar ch = *cur_pos++;
-               if (ch == ')') break;
-               if (ch == '(') {
-                       cur_pos = imap_parse_one_address
-                               (sock, cur_pos, buf, name_buf, str);
-                       if (!cur_pos) {
-                               g_string_free(addr_str, TRUE);
-                               return NULL;
-                       }
-                       if (addr_str->str[0] != '\0')
-                               g_string_append(addr_str, ", ");
-                       g_string_append(addr_str, buf);
-               }
+               while (isspace(*cur_pos)) cur_pos++;
        }
 
-       if (out_from_str)     *out_from_str     = g_strdup(addr_str->str);
-       if (out_fromname_str) *out_fromname_str = g_strdup(name_buf);
-
-       g_string_free(addr_str, TRUE);
-
        return cur_pos;
 }
 
 static MsgFlags imap_parse_flags(const gchar *flag_str)  
 {
        const gchar *p = flag_str;
-       MsgFlags flags;
+       MsgFlags flags = {0, 0};
 
        flags.perm_flags = MSG_UNREAD;
-       flags.tmp_flags  = MSG_IMAP;
 
        while ((p = strchr(p, '\\')) != NULL) {
                p++;
@@ -1985,38 +2178,38 @@ static MsgFlags imap_parse_flags(const gchar *flag_str)
        return flags;
 }
 
-static MsgInfo *imap_parse_envelope(SockInfo *sock, GString *line_str)
+static MsgInfo *imap_parse_envelope(SockInfo *sock, FolderItem *item,
+                                   GString *line_str)
 {
-       MsgInfo *msginfo;
        gchar buf[IMAPBUFSIZE];
-       gchar tmp[IMAPBUFSIZE];
+       MsgInfo *msginfo = NULL;
        gchar *cur_pos;
        gint msgnum;
        guint32 uid = 0;
        size_t size = 0;
-       gchar *date = NULL;
-       time_t date_t = 0;
-       gchar *subject = NULL;
-       gchar *tmp_from;
-       gchar *tmp_fromname;
-       gchar *from = NULL;
-       gchar *fromname = NULL;
-       gchar *tmp_to;
-       gchar *to = NULL;
-       gchar *inreplyto = NULL;
-       gchar *msgid = NULL;
-       MsgFlags flags = {0, 0};
+       MsgFlags flags = {0, 0}, imap_flags = {0, 0};
 
        g_return_val_if_fail(line_str != NULL, NULL);
        g_return_val_if_fail(line_str->str[0] == '*' &&
                             line_str->str[1] == ' ', NULL);
 
+       MSG_SET_TMP_FLAGS(flags, MSG_IMAP);
+       if (item->stype == F_QUEUE) {
+               MSG_SET_TMP_FLAGS(flags, MSG_QUEUED);
+       } else if (item->stype == F_DRAFT) {
+               MSG_SET_TMP_FLAGS(flags, MSG_DRAFT);
+       }
+
        cur_pos = line_str->str + 2;
 
-#define PARSE_ONE_ELEMENT(ch) \
-{ \
-       cur_pos = strchr_cpy(cur_pos, ch, buf, sizeof(buf)); \
-       g_return_val_if_fail(cur_pos != NULL, NULL); \
+#define PARSE_ONE_ELEMENT(ch)                                  \
+{                                                              \
+       cur_pos = strchr_cpy(cur_pos, ch, buf, sizeof(buf));    \
+       if (cur_pos == NULL) {                                  \
+               g_warning("cur_pos == NULL\n");                 \
+               procmsg_msginfo_free(msginfo);                  \
+               return NULL;                                    \
+       }                                                       \
 }
 
        PARSE_ONE_ELEMENT(' ');
@@ -2036,114 +2229,37 @@ static MsgInfo *imap_parse_envelope(SockInfo *sock, GString *line_str)
                        uid = strtoul(cur_pos, &cur_pos, 10);
                } else if (!strncmp(cur_pos, "FLAGS ", 6)) {
                        cur_pos += 6;
-                       g_return_val_if_fail(*cur_pos == '(', NULL);
+                       if (*cur_pos != '(') {
+                               g_warning("*cur_pos != '('\n");
+                               procmsg_msginfo_free(msginfo);
+                               return NULL;
+                       }
                        cur_pos++;
                        PARSE_ONE_ELEMENT(')');
-                       flags = imap_parse_flags(buf);
+                       imap_flags = imap_parse_flags(buf);
                } else if (!strncmp(cur_pos, "RFC822.SIZE ", 12)) {
                        cur_pos += 12;
                        size = strtol(cur_pos, &cur_pos, 10);
-               } else if (!strncmp(cur_pos, "ENVELOPE ", 9)) {
-                       cur_pos += 9;
-                       g_return_val_if_fail(*cur_pos == '(', NULL);
-                       cur_pos = imap_parse_atom
-                               (sock, cur_pos + 1, buf, sizeof(buf), line_str);
-                       if (buf[0] != '\0') {
-                               Xstrdup_a(date, buf, return NULL);
-                               date_t = procheader_date_parse(NULL, date, 0);
-                       }
-
-                       cur_pos = imap_parse_atom
-                               (sock, cur_pos, buf, sizeof(buf), line_str);
-                       if (buf[0] != '\0') {
-                               conv_unmime_header(tmp, sizeof(tmp), buf, NULL);
-                               Xstrdup_a(subject, tmp, return NULL);
-                       }
-
-                       g_return_val_if_fail(*cur_pos == ' ', NULL);
-                       cur_pos = imap_parse_address(sock, cur_pos + 1,
-                                                    &tmp_from, &tmp_fromname,
-                                                    line_str);
-                       g_return_val_if_fail(cur_pos != NULL, NULL);
-                       if (tmp_from && *tmp_from != '\0')
-                               Xstrdup_a(from, tmp_from,
-                                         {g_free(tmp_from);
-                                          g_free(tmp_fromname);
-                                          return NULL;});
-                       if (tmp_fromname && *tmp_fromname != '\0')
-                               Xstrdup_a(fromname, tmp_fromname,
-                                         {g_free(tmp_from);
-                                          g_free(tmp_fromname);
-                                          return NULL;});
-                       g_free(tmp_from);
-                       g_free(tmp_fromname);
-
-#define SKIP_ONE_ELEMENT() \
-{ \
-       g_return_val_if_fail(*cur_pos == ' ', NULL); \
-       cur_pos = imap_parse_address(sock, cur_pos + 1, NULL, NULL, \
-                                    line_str); \
-       g_return_val_if_fail(cur_pos != NULL, NULL); \
-}
-
-                       /* skip sender and reply-to */
-                       SKIP_ONE_ELEMENT();
-                       SKIP_ONE_ELEMENT();
-
-                       g_return_val_if_fail(*cur_pos == ' ', NULL);
-                       cur_pos = imap_parse_address(sock, cur_pos + 1,
-                                                    &tmp_to, NULL, line_str);
-                       g_return_val_if_fail(cur_pos != NULL, NULL);
-                       Xstrdup_a(to, tmp_to, {g_free(tmp_to); return NULL;});
-                       g_free(tmp_to);
-
-                       /* skip Cc and Bcc */
-                       SKIP_ONE_ELEMENT();
-                       SKIP_ONE_ELEMENT();
-
-#undef SKIP_ONE_ELEMENT
-
-                       g_return_val_if_fail(*cur_pos == ' ', NULL);
-                       cur_pos = imap_parse_atom
-                               (sock, cur_pos, buf, sizeof(buf), line_str);
-                       g_return_val_if_fail(cur_pos != NULL, NULL);
-                       if (buf[0] != '\0') {
-                               eliminate_parenthesis(buf, '(', ')');
-                               extract_parenthesis(buf, '<', '>');
-                               remove_space(buf);
-                               Xstrdup_a(inreplyto, buf, return NULL);
-                       }
-
-                       g_return_val_if_fail(*cur_pos == ' ', NULL);
-                       cur_pos = imap_parse_atom
-                               (sock, cur_pos, buf, sizeof(buf), line_str);
-                       g_return_val_if_fail(cur_pos != NULL, NULL);
-                       if (buf[0] != '\0') {
-                               extract_parenthesis(buf, '<', '>');
-                               remove_space(buf);
-                               Xstrdup_a(msgid, buf, return NULL);
-                       }
-
-                       g_return_val_if_fail(*cur_pos == ')', NULL);
-                       cur_pos++;
+               } else if (!strncmp(cur_pos, "RFC822.HEADER ", 14)) {
+                       gchar *headers;
+
+                       cur_pos += 14;
+                       cur_pos = imap_get_header(sock, cur_pos, &headers,
+                                                 line_str);
+                       msginfo = procheader_parse_str(headers, flags, FALSE, FALSE);
+                       g_free(headers);
                } else {
                        g_warning("invalid FETCH response: %s\n", cur_pos);
                        break;
                }
        }
 
-       msginfo = g_new0(MsgInfo, 1);
-       msginfo->msgnum = uid;
-       msginfo->size = size;
-       msginfo->date = g_strdup(date);
-       msginfo->date_t = date_t;
-       msginfo->subject = g_strdup(subject);
-       msginfo->from = g_strdup(from);
-       msginfo->fromname = g_strdup(fromname);
-       msginfo->to = g_strdup(to);
-       msginfo->inreplyto = g_strdup(inreplyto);
-       msginfo->msgid = g_strdup(msgid);
-       msginfo->flags = flags;
+       if (msginfo) {
+               msginfo->msgnum = uid;
+               msginfo->size = size;
+               msginfo->flags.tmp_flags |= imap_flags.tmp_flags;
+               msginfo->flags.perm_flags = imap_flags.perm_flags;
+       }
 
        return msginfo;
 }
@@ -2273,6 +2389,9 @@ static gint imap_select(IMAPSession *session, IMAPFolder *folder,
                session->mbox = g_strdup(path);
        g_free(real_path);
 
+       g_free(folder->selected_folder);
+       folder->selected_folder = g_strdup(path);
+       
        return ok;
 }
 
@@ -2700,7 +2819,7 @@ static gint imap_cmd_copy(SockInfo *sock, guint32 uid, const gchar *destfolder)
 gint imap_cmd_envelope(SockInfo *sock, guint32 first_uid, guint32 last_uid)
 {
        imap_cmd_gen_send
-               (sock, "UID FETCH %d:%d (UID FLAGS RFC822.SIZE ENVELOPE)",
+               (sock, "UID FETCH %d:%d (UID FLAGS RFC822.SIZE RFC822.HEADER)",
                 first_uid, last_uid);
 
        return IMAP_SUCCESS;
@@ -3105,3 +3224,126 @@ static gboolean imap_rename_folder_func(GNode *node, gpointer data)
 
        return FALSE;
 }
+
+gint imap_get_num_list(Folder *folder, FolderItem *_item, GSList **msgnum_list)
+{
+       IMAPFolderItem *item = (IMAPFolderItem *)_item;
+       IMAPSession *session;
+       gint i, lastuid_old, nummsgs = 0;
+       gint ok, exists = 0, recent = 0, unseen = 0;
+       guint32 uid_validity = 0;
+       GPtrArray *argbuf;
+       gchar *cmdbuf = NULL;
+       gchar *dir;
+       
+       g_return_val_if_fail(folder != NULL, -1);
+       g_return_val_if_fail(item != NULL, -1);
+       g_return_val_if_fail(item->item.path != NULL, -1);
+       g_return_val_if_fail(folder->type == F_IMAP, -1);
+       g_return_val_if_fail(folder->account != NULL, -1);
+
+       session = imap_session_get(folder);
+       g_return_val_if_fail(session != NULL, -1);
+
+       ok = imap_select(session, IMAP_FOLDER(folder), item->item.path,
+                        &exists, &recent, &unseen, &uid_validity);
+       if (ok != IMAP_SUCCESS)
+               return -1;
+
+       argbuf = g_ptr_array_new();
+       if(item->lastuid) {
+               cmdbuf = g_strdup_printf("UID FETCH %d:* (UID)", (item->lastuid + 1));
+       } else {
+               cmdbuf = g_strdup("FETCH 1:* (UID)");
+       }
+       imap_cmd_gen_send(SESSION(session)->sock, cmdbuf);
+       g_free(cmdbuf);
+       ok = imap_cmd_ok(SESSION(session)->sock, argbuf);
+       if (ok != IMAP_SUCCESS) {
+               ptr_array_free_strings(argbuf);
+               g_ptr_array_free(argbuf, TRUE);
+               return -1;
+       }
+
+       lastuid_old = item->lastuid;
+       *msgnum_list = g_slist_copy(item->uid_list);
+       debug_print("Got %d uids from cache\n", g_slist_length(item->uid_list));
+       for(i = 0; i < argbuf->len; i++) {
+               int ret, msgidx, msgnum;
+       
+               if((ret = sscanf(g_ptr_array_index(argbuf, i), "%d FETCH (UID %d)", &msgidx, &msgnum)) == 2) {
+                       if(msgnum > lastuid_old) {
+                               *msgnum_list = g_slist_prepend(*msgnum_list, GINT_TO_POINTER(msgnum));
+                               item->uid_list = g_slist_prepend(item->uid_list, GINT_TO_POINTER(msgnum));
+                               nummsgs++;
+
+                               if(msgnum > item->lastuid)
+                                       item->lastuid = msgnum;
+                       }
+               }
+       }
+
+       dir = folder_item_get_path((FolderItem *)item);
+       debug_print("removing old messages from %s\n", dir);
+       remove_numbered_files_not_in_list(dir, *msgnum_list);
+       g_free(dir);
+
+       return nummsgs;
+}
+
+MsgInfo *imap_get_msginfo(Folder *folder, FolderItem *item, gint uid)
+{
+       IMAPSession *session;
+       GSList *list;
+       MsgInfo *msginfo = NULL;
+
+       g_return_val_if_fail(folder != NULL, NULL);
+       g_return_val_if_fail(item != NULL, NULL);
+
+       session = imap_session_get(folder);
+       g_return_val_if_fail(session != NULL, NULL);
+
+       list = imap_get_uncached_messages(session, item, uid, uid);
+       if (list) {
+               msginfo = (MsgInfo *)list->data;
+               list->data = NULL;
+       }
+       procmsg_msg_list_free(list);
+
+       return msginfo;
+}
+
+gboolean imap_check_msgnum_validity(Folder *folder, FolderItem *_item)
+{
+       IMAPSession *session;
+       IMAPFolderItem *item = (IMAPFolderItem *)_item;
+       gint ok, exists = 0, recent = 0, unseen = 0;
+       guint32 uid_next, uid_validity = 0;
+       
+       g_return_val_if_fail(folder != NULL, FALSE);
+       g_return_val_if_fail(item != NULL, FALSE);
+       g_return_val_if_fail(item->item.folder != NULL, FALSE);
+       g_return_val_if_fail(item->item.folder->type == F_IMAP, FALSE);
+
+       session = imap_session_get(folder);
+       g_return_val_if_fail(session != NULL, FALSE);
+
+       ok = imap_status(session, IMAP_FOLDER(folder), item->item.path,
+                        &exists, &recent, &uid_next, &uid_validity, &unseen);
+       if (ok != IMAP_SUCCESS)
+               return FALSE;
+
+       if(item->item.mtime == uid_validity)
+               return TRUE;
+
+       debug_print("Freeing imap uid cache");
+       item->lastuid = 0;
+       g_slist_free(item->uid_list);
+       item->uid_list = NULL;
+               
+       item->item.mtime = uid_validity;
+
+       imap_delete_all_cached_messages((FolderItem *)item);
+
+       return FALSE;
+}