* configure.in
[claws.git] / src / procmsg.c
1 /*
2  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3  * Copyright (C) 1999-2002 Hiroyuki Yamamoto
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 2 of the License, or
8  * (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program; if not, write to the Free Software
17  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18  */
19
20 #include "defs.h"
21
22 #include <glib.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25
26 #include "intl.h"
27 #include "main.h"
28 #include "utils.h"
29 #include "procmsg.h"
30 #include "procheader.h"
31 #include "send.h"
32 #include "procmime.h"
33 #include "statusbar.h"
34 #include "folder.h"
35 #include "prefs_common.h"
36 #include "account.h"
37 #if USE_GPGME
38 #  include "rfc2015.h"
39 #endif
40
41 typedef struct _FlagInfo        FlagInfo;
42
43 struct _FlagInfo
44 {
45         guint    msgnum;
46         MsgFlags flags;
47 };
48
49 static void mark_sum_func                       (gpointer        key,
50                                                  gpointer        value,
51                                                  gpointer        data);
52
53 static GHashTable *procmsg_read_mark_file       (const gchar    *folder);
54 static gint procmsg_cmp_msgnum                  (gconstpointer   a,
55                                                  gconstpointer   b);
56 static gint procmsg_cmp_flag_msgnum             (gconstpointer   a,
57                                                  gconstpointer   b);
58
59
60 GHashTable *procmsg_msg_hash_table_create(GSList *mlist)
61 {
62         GHashTable *msg_table;
63
64         if (mlist == NULL) return NULL;
65
66         msg_table = g_hash_table_new(NULL, g_direct_equal);
67         procmsg_msg_hash_table_append(msg_table, mlist);
68
69         return msg_table;
70 }
71
72 void procmsg_msg_hash_table_append(GHashTable *msg_table, GSList *mlist)
73 {
74         GSList *cur;
75         MsgInfo *msginfo;
76
77         if (msg_table == NULL || mlist == NULL) return;
78
79         for (cur = mlist; cur != NULL; cur = cur->next) {
80                 msginfo = (MsgInfo *)cur->data;
81
82                 g_hash_table_insert(msg_table,
83                                     GUINT_TO_POINTER(msginfo->msgnum),
84                                     msginfo);
85         }
86 }
87
88 GHashTable *procmsg_to_folder_hash_table_create(GSList *mlist)
89 {
90         GHashTable *msg_table;
91         GSList *cur;
92         MsgInfo *msginfo;
93
94         if (mlist == NULL) return NULL;
95
96         msg_table = g_hash_table_new(NULL, g_direct_equal);
97
98         for (cur = mlist; cur != NULL; cur = cur->next) {
99                 msginfo = (MsgInfo *)cur->data;
100                 g_hash_table_insert(msg_table, msginfo->to_folder, msginfo);
101         }
102
103         return msg_table;
104 }
105
106 static gint procmsg_read_cache_data_str(FILE *fp, gchar **str)
107 {
108         gchar buf[BUFFSIZE];
109         gint ret = 0;
110         size_t len;
111
112         if (fread(&len, sizeof(len), 1, fp) == 1) {
113                 if (len < 0)
114                         ret = -1;
115                 else {
116                         gchar *tmp = NULL;
117
118                         while (len > 0) {
119                                 size_t size = MIN(len, BUFFSIZE - 1);
120
121                                 if (fread(buf, size, 1, fp) != 1) {
122                                         ret = -1;
123                                         if (tmp) g_free(tmp);
124                                         *str = NULL;
125                                         break;
126                                 }
127
128                                 buf[size] = '\0';
129                                 if (tmp) {
130                                         *str = g_strconcat(tmp, buf, NULL);
131                                         g_free(tmp);
132                                         tmp = *str;
133                                 } else
134                                         tmp = *str = g_strdup(buf);
135
136                                 len -= size;
137                         }
138                 }
139         } else
140                 ret = -1;
141
142         if (ret < 0)
143                 g_warning(_("Cache data is corrupted\n"));
144
145         return ret;
146 }
147
148 #define READ_CACHE_DATA(data, fp) \
149 { \
150         if (procmsg_read_cache_data_str(fp, &data) < 0) { \
151                 procmsg_msginfo_free(msginfo); \
152                 break; \
153         } \
154 }
155
156 #define READ_CACHE_DATA_INT(n, fp) \
157 { \
158         if (fread(&n, sizeof(n), 1, fp) != 1) { \
159                 g_warning(_("Cache data is corrupted\n")); \
160                 procmsg_msginfo_free(msginfo); \
161                 break; \
162         } \
163 }
164
165 GSList *procmsg_read_cache(FolderItem *item, gboolean scan_file)
166 {
167         GSList *mlist = NULL;
168         GSList *last = NULL;
169         gchar *cache_file;
170         FILE *fp;
171         MsgInfo *msginfo;
172         MsgFlags default_flags;
173         gchar file_buf[BUFFSIZE];
174         gint ver;
175         guint num;
176         FolderType type;
177
178         g_return_val_if_fail(item != NULL, NULL);
179         g_return_val_if_fail(item->folder != NULL, NULL);
180         type = item->folder->type;
181
182         default_flags.perm_flags = MSG_NEW|MSG_UNREAD;
183         default_flags.tmp_flags = MSG_CACHED;
184         if (type == F_MH) {
185                 if (item->stype == F_QUEUE) {
186                         MSG_SET_TMP_FLAGS(default_flags, MSG_QUEUED);
187                 } else if (item->stype == F_DRAFT) {
188                         MSG_SET_TMP_FLAGS(default_flags, MSG_DRAFT);
189                 }
190         } else if (type == F_IMAP) {
191                 MSG_SET_TMP_FLAGS(default_flags, MSG_IMAP);
192         } else if (type == F_NEWS) {
193                 MSG_SET_TMP_FLAGS(default_flags, MSG_NEWS);
194         }
195
196         if (type == F_MH) {
197                 gchar *path;
198
199                 path = folder_item_get_path(item);
200                 if (change_dir(path) < 0) {
201                         g_free(path);
202                         return NULL;
203                 }
204                 g_free(path);
205         }
206         cache_file = folder_item_get_cache_file(item);
207         if ((fp = fopen(cache_file, "rb")) == NULL) {
208                 debug_print(_("\tNo cache file\n"));
209                 g_free(cache_file);
210                 return NULL;
211         }
212         setvbuf(fp, file_buf, _IOFBF, sizeof(file_buf));
213         g_free(cache_file);
214
215         debug_print(_("\tReading summary cache...\n"));
216
217         /* compare cache version */
218         if (fread(&ver, sizeof(ver), 1, fp) != 1 ||
219             CACHE_VERSION != ver) {
220                 debug_print(_("Cache version is different. Discarding it.\n"));
221                 fclose(fp);
222                 return NULL;
223         }
224
225         while (fread(&num, sizeof(num), 1, fp) == 1) {
226                 msginfo = g_new0(MsgInfo, 1);
227                 msginfo->msgnum = num;
228                 READ_CACHE_DATA_INT(msginfo->size, fp);
229                 READ_CACHE_DATA_INT(msginfo->mtime, fp);
230                 READ_CACHE_DATA_INT(msginfo->date_t, fp);
231                 READ_CACHE_DATA_INT(msginfo->flags.tmp_flags, fp);
232
233                 READ_CACHE_DATA(msginfo->fromname, fp);
234
235                 READ_CACHE_DATA(msginfo->date, fp);
236                 READ_CACHE_DATA(msginfo->from, fp);
237                 READ_CACHE_DATA(msginfo->to, fp);
238                 READ_CACHE_DATA(msginfo->cc, fp);
239                 READ_CACHE_DATA(msginfo->newsgroups, fp);
240                 READ_CACHE_DATA(msginfo->subject, fp);
241                 READ_CACHE_DATA(msginfo->msgid, fp);
242                 READ_CACHE_DATA(msginfo->inreplyto, fp);
243                 READ_CACHE_DATA(msginfo->references, fp);
244
245                 MSG_SET_PERM_FLAGS(msginfo->flags, default_flags.perm_flags);
246                 MSG_SET_TMP_FLAGS(msginfo->flags, default_flags.tmp_flags);
247
248                 /* if the message file doesn't exist or is changed,
249                    don't add the data */
250                 if (type == F_MH && scan_file &&
251                     folder_item_is_msg_changed(item, msginfo))
252                         procmsg_msginfo_free(msginfo);
253                 else {
254                         msginfo->folder = item;
255
256                         if (!mlist)
257                                 last = mlist = g_slist_append(NULL, msginfo);
258                         else {
259                                 last = g_slist_append(last, msginfo);
260                                 last = last->next;
261                         }
262                 }
263         }
264
265         fclose(fp);
266         debug_print(_("done.\n"));
267
268         return mlist;
269 }
270
271 #undef READ_CACHE_DATA
272 #undef READ_CACHE_DATA_INT
273
274 void procmsg_set_flags(GSList *mlist, FolderItem *item)
275 {
276         GSList *cur, *tmp;
277         gint newmsg = 0;
278         gint lastnum = 0;
279         gchar *markdir;
280         MsgInfo *msginfo;
281         GHashTable *mark_table;
282         MsgFlags *flags;
283
284         if (!mlist) return;
285         g_return_if_fail(item != NULL);
286         g_return_if_fail(item->folder != NULL);
287
288         debug_print(_("\tMarking the messages...\n"));
289
290         markdir = folder_item_get_path(item);
291         if (!is_dir_exist(markdir))
292                 make_dir_hier(markdir);
293
294         mark_table = procmsg_read_mark_file(markdir);
295         g_free(markdir);
296
297         if (!mark_table) return;
298
299         for (cur = mlist; cur != NULL; cur = cur->next) {
300                 msginfo = (MsgInfo *)cur->data;
301
302                 if (lastnum < msginfo->msgnum)
303                         lastnum = msginfo->msgnum;
304
305                 flags = g_hash_table_lookup
306                         (mark_table, GUINT_TO_POINTER(msginfo->msgnum));
307
308                 if (flags != NULL) {
309                         /* add the permanent flags only */
310                         msginfo->flags.perm_flags = flags->perm_flags;
311                         if (item->folder->type == F_IMAP) {
312                                 MSG_SET_TMP_FLAGS(msginfo->flags, MSG_IMAP);
313                         } else if (item->folder->type == F_NEWS) {
314                                 MSG_SET_TMP_FLAGS(msginfo->flags, MSG_NEWS);
315                         }
316                 } else {
317                         /* not found (new message) */
318                         if (newmsg == 0) {
319                                 for (tmp = mlist; tmp != cur; tmp = tmp->next)
320                                         MSG_UNSET_PERM_FLAGS
321                                                 (((MsgInfo *)tmp->data)->flags,
322                                                  MSG_NEW);
323                         }
324                         newmsg++;
325                 }
326         }
327
328         item->last_num = lastnum;
329
330         debug_print(_("done.\n"));
331         if (newmsg)
332                 debug_print(_("\t%d new message(s)\n"), newmsg);
333
334         hash_free_value_mem(mark_table);
335         g_hash_table_destroy(mark_table);
336 }
337
338 gint procmsg_get_last_num_in_cache(GSList *mlist)
339 {
340         GSList *cur;
341         MsgInfo *msginfo;
342         gint last = 0;
343
344         if (mlist == NULL) return 0;
345
346         for (cur = mlist; cur != NULL; cur = cur->next) {
347                 msginfo = (MsgInfo *)cur->data;
348                 if (msginfo && msginfo->msgnum > last)
349                         last = msginfo->msgnum;
350         }
351
352         return last;
353 }
354
355 void procmsg_msg_list_free(GSList *mlist)
356 {
357         GSList *cur;
358         MsgInfo *msginfo;
359
360         for (cur = mlist; cur != NULL; cur = cur->next) {
361                 msginfo = (MsgInfo *)cur->data;
362                 procmsg_msginfo_free(msginfo);
363         }
364         g_slist_free(mlist);
365 }
366
367 void procmsg_write_cache(MsgInfo *msginfo, FILE *fp)
368 {
369         MsgTmpFlags flags = msginfo->flags.tmp_flags & MSG_CACHED_FLAG_MASK;
370
371         WRITE_CACHE_DATA_INT(msginfo->msgnum, fp);
372         WRITE_CACHE_DATA_INT(msginfo->size, fp);
373         WRITE_CACHE_DATA_INT(msginfo->mtime, fp);
374         WRITE_CACHE_DATA_INT(msginfo->date_t, fp);
375         WRITE_CACHE_DATA_INT(flags, fp);
376
377         WRITE_CACHE_DATA(msginfo->fromname, fp);
378
379         WRITE_CACHE_DATA(msginfo->date, fp);
380         WRITE_CACHE_DATA(msginfo->from, fp);
381         WRITE_CACHE_DATA(msginfo->to, fp);
382         WRITE_CACHE_DATA(msginfo->cc, fp);
383         WRITE_CACHE_DATA(msginfo->newsgroups, fp);
384         WRITE_CACHE_DATA(msginfo->subject, fp);
385         WRITE_CACHE_DATA(msginfo->msgid, fp);
386         WRITE_CACHE_DATA(msginfo->inreplyto, fp);
387         WRITE_CACHE_DATA(msginfo->references, fp);
388 }
389
390 void procmsg_write_flags(MsgInfo *msginfo, FILE *fp)
391 {
392         MsgPermFlags flags = msginfo->flags.perm_flags;
393
394         WRITE_CACHE_DATA_INT(msginfo->msgnum, fp);
395         WRITE_CACHE_DATA_INT(flags, fp);
396 }
397
398 struct MarkSum {
399         gint *new;
400         gint *unread;
401         gint *total;
402         gint *min;
403         gint *max;
404         gint first;
405 };
406
407 static void mark_sum_func(gpointer key, gpointer value, gpointer data)
408 {
409         MsgFlags *flags = value;
410         gint num = GPOINTER_TO_INT(key);
411         struct MarkSum *marksum = data;
412
413         if (marksum->first <= num) {
414                 if (MSG_IS_NEW(*flags) && !MSG_IS_IGNORE_THREAD(*flags)) (*marksum->new)++;
415                 if (MSG_IS_UNREAD(*flags) && !MSG_IS_IGNORE_THREAD(*flags)) (*marksum->unread)++;
416                 if (num > *marksum->max) *marksum->max = num;
417                 if (num < *marksum->min || *marksum->min == 0) *marksum->min = num;
418                 (*marksum->total)++;
419         }
420
421         g_free(flags);
422 }
423
424 void procmsg_get_mark_sum(const gchar *folder,
425                           gint *new, gint *unread, gint *total,
426                           gint *min, gint *max,
427                           gint first)
428 {
429         GHashTable *mark_table;
430         struct MarkSum marksum;
431
432         *new = *unread = *total = *min = *max = 0;
433         marksum.new    = new;
434         marksum.unread = unread;
435         marksum.total  = total;
436         marksum.min    = min;
437         marksum.max    = max;
438         marksum.first  = first;
439
440         mark_table = procmsg_read_mark_file(folder);
441
442         if (mark_table) {
443                 g_hash_table_foreach(mark_table, mark_sum_func, &marksum);
444                 g_hash_table_destroy(mark_table);
445         }
446         debug_print("mark->new = %d, mark->unread = %d, mark->total = %d\n",
447                     *(marksum.new), *(marksum.unread), *(marksum.total));
448 }
449
450 static GHashTable *procmsg_read_mark_file(const gchar *folder)
451 {
452         FILE *fp;
453         GHashTable *mark_table = NULL;
454         gint num;
455         MsgFlags *flags;
456         MsgPermFlags perm_flags;
457
458         if ((fp = procmsg_open_mark_file(folder, FALSE)) == NULL)
459                 return NULL;
460
461         mark_table = g_hash_table_new(NULL, g_direct_equal);
462
463         while (fread(&num, sizeof(num), 1, fp) == 1) {
464                 if (fread(&perm_flags, sizeof(perm_flags), 1, fp) != 1) break;
465
466                 flags = g_new0(MsgFlags, 1);
467                 flags->perm_flags = perm_flags;
468     
469                 if(!MSG_IS_REALLY_DELETED(*flags)) {
470                         g_hash_table_insert(mark_table, GUINT_TO_POINTER(num), flags);
471                 } else {
472                         g_hash_table_remove(mark_table, GUINT_TO_POINTER(num));
473                 }
474         }
475
476         fclose(fp);
477         return mark_table;
478 }
479
480 FILE *procmsg_open_mark_file(const gchar *folder, gboolean append)
481 {
482         gchar *markfile;
483         FILE *fp;
484         gint ver;
485
486         markfile = g_strconcat(folder, G_DIR_SEPARATOR_S, MARK_FILE, NULL);
487
488         if ((fp = fopen(markfile, "rb")) == NULL)
489                 debug_print(_("Mark file not found.\n"));
490         else if (fread(&ver, sizeof(ver), 1, fp) != 1 || MARK_VERSION != ver) {
491                 debug_print(_("Mark version is different (%d != %d). "
492                               "Discarding it.\n"), ver, MARK_VERSION);
493                 fclose(fp);
494                 fp = NULL;
495         }
496
497         /* read mode */
498         if (append == FALSE) {
499                 g_free(markfile);
500                 return fp;
501         }
502
503         if (fp) {
504                 /* reopen with append mode */
505                 fclose(fp);
506                 if ((fp = fopen(markfile, "ab")) == NULL)
507                         g_warning(_("Can't open mark file with append mode.\n"));
508         } else {
509                 /* open with overwrite mode if mark file doesn't exist or
510                    version is different */
511                 if ((fp = fopen(markfile, "wb")) == NULL)
512                         g_warning(_("Can't open mark file with write mode.\n"));
513                 else {
514                         ver = MARK_VERSION;
515                         WRITE_CACHE_DATA_INT(ver, fp);
516                 }
517         }
518
519         g_free(markfile);
520         return fp;
521 }
522
523 /* return the reversed thread tree */
524 GNode *procmsg_get_thread_tree(GSList *mlist)
525 {
526         GNode *root, *parent, *node, *next;
527         GHashTable *msgid_table;
528         GHashTable *subject_table;
529         MsgInfo *msginfo;
530         const gchar *msgid;
531         const gchar *subject;
532
533         root = g_node_new(NULL);
534         msgid_table = g_hash_table_new(g_str_hash, g_str_equal);
535         subject_table = g_hash_table_new(g_str_hash, g_str_equal);
536
537         for (; mlist != NULL; mlist = mlist->next) {
538                 msginfo = (MsgInfo *)mlist->data;
539                 parent = root;
540
541                 if (msginfo->inreplyto) {
542                         parent = g_hash_table_lookup(msgid_table, msginfo->inreplyto);
543                         if (parent == NULL) {
544                                 parent = root;
545                         } else {
546                                 if(MSG_IS_IGNORE_THREAD(((MsgInfo *)parent->data)->flags)) {
547                                         procmsg_msginfo_set_flags(msginfo, MSG_IGNORE_THREAD, 0);
548                                 }
549                         }
550                 }
551                 node = g_node_insert_data_before
552                         (parent, parent == root ? parent->children : NULL,
553                          msginfo);
554                 if ((msgid = msginfo->msgid) &&
555                     g_hash_table_lookup(msgid_table, msgid) == NULL)
556                         g_hash_table_insert(msgid_table, (gchar *)msgid, node);
557
558                 subject = msginfo->subject;
559                 if (subject_table_lookup(subject_table,
560                                          (gchar *) subject) == NULL)
561                         subject_table_insert(subject_table, (gchar *)subject,
562                                              node);
563         }
564
565         /* complete the unfinished threads */
566         for (node = root->children; node != NULL; ) {
567                 next = node->next;
568                 msginfo = (MsgInfo *)node->data;
569                 parent = NULL;
570                 if (msginfo->inreplyto) 
571                         parent = g_hash_table_lookup(msgid_table, msginfo->inreplyto);
572                 if (parent && parent != node) {
573                         g_node_unlink(node);
574                         g_node_insert_before
575                                 (parent, parent->children, node);
576                         /* CLAWS: ignore thread */
577                         if(MSG_IS_IGNORE_THREAD(((MsgInfo *)parent->data)->flags)) {
578                                 procmsg_msginfo_set_flags(msginfo, MSG_IGNORE_THREAD, 0);
579                         }
580                 }
581                 node = next;
582         }
583
584         /* CLAWS: now see if the first level (below root) still has some nodes that can be
585          * threaded by subject line. we need to handle this in a special way to prevent
586          * circular reference from a node that has already been threaded by IN-REPLY-TO
587          * but is also in the subject line hash table */
588         for (node = root->children; node != NULL; ) {
589                 next = node->next;
590                 msginfo = (MsgInfo *) node->data;
591                 parent = NULL;
592                 if (subject_is_reply(msginfo->subject)) {
593                         parent = subject_table_lookup(subject_table,
594                                                       msginfo->subject);
595                         /* the node may already be threaded by IN-REPLY-TO,
596                            so go up in the tree to find the parent node */
597                         if (parent != NULL) {
598                                 if (g_node_is_ancestor(node, parent))
599                                         parent = NULL;
600                                 if (parent == node)
601                                         parent = NULL;
602                         }
603
604                         if (parent) {
605                                 g_node_unlink(node);
606                                 g_node_append(parent, node);
607                                 /* CLAWS: ignore thread */
608                                 if(MSG_IS_IGNORE_THREAD(((MsgInfo *)parent->data)->flags)) {
609                                         procmsg_msginfo_set_flags(msginfo, MSG_IGNORE_THREAD, 0);
610                                 }
611                         }
612                 }                                       
613                 node = next;
614         }               
615                 
616         g_hash_table_destroy(subject_table);
617         g_hash_table_destroy(msgid_table);
618
619         return root;
620 }
621
622 void procmsg_move_messages(GSList *mlist)
623 {
624         GSList *cur, *movelist = NULL;
625         MsgInfo *msginfo;
626         FolderItem *dest = NULL;
627         GHashTable *hash;
628
629         if (!mlist) return;
630
631         hash = procmsg_to_folder_hash_table_create(mlist);
632         folder_item_scan_foreach(hash);
633         g_hash_table_destroy(hash);
634
635         for (cur = mlist; cur != NULL; cur = cur->next) {
636                 msginfo = (MsgInfo *)cur->data;
637                 if (!dest) {
638                         dest = msginfo->to_folder;
639                         movelist = g_slist_append(movelist, msginfo);
640                 } else if (dest == msginfo->to_folder) {
641                         movelist = g_slist_append(movelist, msginfo);
642                 } else {
643                         folder_item_move_msgs_with_dest(dest, movelist);
644                         g_slist_free(movelist);
645                         movelist = NULL;
646                         dest = msginfo->to_folder;
647                         movelist = g_slist_append(movelist, msginfo);
648                 }
649         }
650
651         if (movelist) {
652                 folder_item_move_msgs_with_dest(dest, movelist);
653                 g_slist_free(movelist);
654         }
655 }
656
657 void procmsg_copy_messages(GSList *mlist)
658 {
659         GSList *cur, *copylist = NULL;
660         MsgInfo *msginfo;
661         FolderItem *dest = NULL;
662         GHashTable *hash;
663
664         if (!mlist) return;
665
666         hash = procmsg_to_folder_hash_table_create(mlist);
667         folder_item_scan_foreach(hash);
668         g_hash_table_destroy(hash);
669
670         for (cur = mlist; cur != NULL; cur = cur->next) {
671                 msginfo = (MsgInfo *)cur->data;
672                 if (!dest) {
673                         dest = msginfo->to_folder;
674                         copylist = g_slist_append(copylist, msginfo);
675                 } else if (dest == msginfo->to_folder) {
676                         copylist = g_slist_append(copylist, msginfo);
677                 } else {
678                         folder_item_copy_msgs_with_dest(dest, copylist);
679                         g_slist_free(copylist);
680                         copylist = NULL;
681                         dest = msginfo->to_folder;
682                         copylist = g_slist_append(copylist, msginfo);
683                 }
684         }
685
686         if (copylist) {
687                 folder_item_copy_msgs_with_dest(dest, copylist);
688                 g_slist_free(copylist);
689         }
690 }
691
692 gchar *procmsg_get_message_file_path(MsgInfo *msginfo)
693 {
694         gchar *path, *file;
695
696         g_return_val_if_fail(msginfo != NULL, NULL);
697
698         if (msginfo->plaintext_file)
699                 file = g_strdup(msginfo->plaintext_file);
700         else {
701                 path = folder_item_get_path(msginfo->folder);
702                 file = g_strconcat(path, G_DIR_SEPARATOR_S,
703                                    itos(msginfo->msgnum), NULL);
704                 g_free(path);
705         }
706
707         return file;
708 }
709
710 gchar *procmsg_get_message_file(MsgInfo *msginfo)
711 {
712         gchar *filename = NULL;
713
714         g_return_val_if_fail(msginfo != NULL, NULL);
715
716         filename = folder_item_fetch_msg(msginfo->folder, msginfo->msgnum);
717         if (!filename)
718                 g_warning(_("can't fetch message %d\n"), msginfo->msgnum);
719
720         return filename;
721 }
722
723 FILE *procmsg_open_message(MsgInfo *msginfo)
724 {
725         FILE *fp;
726         gchar *file;
727
728         g_return_val_if_fail(msginfo != NULL, NULL);
729
730         file = procmsg_get_message_file_path(msginfo);
731         g_return_val_if_fail(file != NULL, NULL);
732
733         if (!is_file_exist(file)) {
734                 g_free(file);
735                 file = procmsg_get_message_file(msginfo);
736                 g_return_val_if_fail(file != NULL, NULL);
737         }
738
739         if ((fp = fopen(file, "rb")) == NULL) {
740                 FILE_OP_ERROR(file, "fopen");
741                 g_free(file);
742                 return NULL;
743         }
744
745         g_free(file);
746
747         if (MSG_IS_QUEUED(msginfo->flags)) {
748                 gchar buf[BUFFSIZE];
749
750                 while (fgets(buf, sizeof(buf), fp) != NULL)
751                         if (buf[0] == '\r' || buf[0] == '\n') break;
752         }
753
754         return fp;
755 }
756
757 #if USE_GPGME
758 FILE *procmsg_open_message_decrypted(MsgInfo *msginfo, MimeInfo **mimeinfo)
759 {
760         FILE *fp;
761         MimeInfo *mimeinfo_;
762
763         g_return_val_if_fail(msginfo != NULL, NULL);
764
765         if (mimeinfo) *mimeinfo = NULL;
766
767         if ((fp = procmsg_open_message(msginfo)) == NULL) return NULL;
768
769         mimeinfo_ = procmime_scan_mime_header(fp);
770         if (!mimeinfo_) {
771                 fclose(fp);
772                 return NULL;
773         }
774
775         if (!MSG_IS_ENCRYPTED(msginfo->flags) &&
776             rfc2015_is_encrypted(mimeinfo_)) {
777                 MSG_SET_TMP_FLAGS(msginfo->flags, MSG_ENCRYPTED);
778         }
779
780         if (MSG_IS_ENCRYPTED(msginfo->flags) &&
781             !msginfo->plaintext_file &&
782             !msginfo->decryption_failed) {
783                 rfc2015_decrypt_message(msginfo, mimeinfo_, fp);
784                 if (msginfo->plaintext_file &&
785                     !msginfo->decryption_failed) {
786                         fclose(fp);
787                         procmime_mimeinfo_free_all(mimeinfo_);
788                         if ((fp = procmsg_open_message(msginfo)) == NULL)
789                                 return NULL;
790                         mimeinfo_ = procmime_scan_mime_header(fp);
791                         if (!mimeinfo_) {
792                                 fclose(fp);
793                                 return NULL;
794                         }
795                 }
796         }
797
798         if (mimeinfo) *mimeinfo = mimeinfo_;
799         return fp;
800 }
801 #endif
802
803 gboolean procmsg_msg_exist(MsgInfo *msginfo)
804 {
805         gchar *path;
806         gboolean ret;
807
808         if (!msginfo) return FALSE;
809
810         path = folder_item_get_path(msginfo->folder);
811         change_dir(path);
812         ret = !folder_item_is_msg_changed(msginfo->folder, msginfo);
813         g_free(path);
814
815         return ret;
816 }
817
818 void procmsg_empty_trash(void)
819 {
820         FolderItem *trash;
821         GList *cur;
822
823         for (cur = folder_get_list(); cur != NULL; cur = cur->next) {
824                 trash = FOLDER(cur->data)->trash;
825                 if (trash && trash->total > 0)
826                         folder_item_remove_all_msg(trash);
827         }
828 }
829
830 gint procmsg_send_queue(void)
831 {
832         FolderItem *queue;
833         gint i;
834         gint ret = 0;
835
836         queue = folder_get_default_queue();
837         g_return_val_if_fail(queue != NULL, -1);
838         folder_item_scan(queue);
839         if (queue->last_num < 0) return -1;
840         else if (queue->last_num == 0) return 0;
841
842         for (i = 1; i <= queue->last_num; i++) {
843                 gchar *file;
844
845                 file = folder_item_fetch_msg(queue, i);
846                 if (file) {
847                         if (procmsg_send_message_queue(file) < 0) {
848                                 g_warning(_("Sending queued message %d failed.\n"), i);
849                                 ret = -1;
850                         } else
851                                 folder_item_remove_msg(queue, i);
852                         g_free(file);
853                 }
854         }
855
856         return ret;
857 }
858
859 void procmsg_print_message(MsgInfo *msginfo, const gchar *cmdline)
860 {
861         static const gchar *def_cmd = "lpr %s";
862         static guint id = 0;
863         gchar *prtmp;
864         FILE *tmpfp, *prfp;
865         gchar buf[1024];
866         gchar *p;
867
868         g_return_if_fail(msginfo);
869
870         if ((tmpfp = procmime_get_first_text_content(msginfo)) == NULL) {
871                 g_warning(_("Can't get text part\n"));
872                 return;
873         }
874
875         prtmp = g_strdup_printf("%s%cprinttmp.%08x",
876                                 get_mime_tmp_dir(), G_DIR_SEPARATOR, id++);
877
878         if ((prfp = fopen(prtmp, "wb")) == NULL) {
879                 FILE_OP_ERROR(prtmp, "fopen");
880                 g_free(prtmp);
881                 fclose(tmpfp);
882                 return;
883         }
884
885         if (msginfo->date) fprintf(prfp, "Date: %s\n", msginfo->date);
886         if (msginfo->from) fprintf(prfp, "From: %s\n", msginfo->from);
887         if (msginfo->to)   fprintf(prfp, "To: %s\n", msginfo->to);
888         if (msginfo->cc)   fprintf(prfp, "Cc: %s\n", msginfo->cc);
889         if (msginfo->newsgroups)
890                 fprintf(prfp, "Newsgroups: %s\n", msginfo->newsgroups);
891         if (msginfo->subject) fprintf(prfp, "Subject: %s\n", msginfo->subject);
892         fputc('\n', prfp);
893
894         while (fgets(buf, sizeof(buf), tmpfp) != NULL)
895                 fputs(buf, prfp);
896
897         fclose(prfp);
898         fclose(tmpfp);
899
900         if (cmdline && (p = strchr(cmdline, '%')) && *(p + 1) == 's' &&
901             !strchr(p + 2, '%'))
902                 g_snprintf(buf, sizeof(buf) - 1, cmdline, prtmp);
903         else {
904                 if (cmdline)
905                         g_warning(_("Print command line is invalid: `%s'\n"),
906                                   cmdline);
907                 g_snprintf(buf, sizeof(buf) - 1, def_cmd, prtmp);
908         }
909
910         g_free(prtmp);
911
912         g_strchomp(buf);
913         if (buf[strlen(buf) - 1] != '&') strcat(buf, "&");
914         system(buf);
915 }
916
917 MsgInfo *procmsg_msginfo_copy(MsgInfo *msginfo)
918 {
919         MsgInfo *newmsginfo;
920
921         if (msginfo == NULL) return NULL;
922
923         newmsginfo = g_new0(MsgInfo, 1);
924
925 #define MEMBCOPY(mmb)   newmsginfo->mmb = msginfo->mmb
926 #define MEMBDUP(mmb)    newmsginfo->mmb = msginfo->mmb ? \
927                         g_strdup(msginfo->mmb) : NULL
928
929         MEMBCOPY(msgnum);
930         MEMBCOPY(size);
931         MEMBCOPY(mtime);
932         MEMBCOPY(date_t);
933         MEMBCOPY(flags);
934
935         MEMBDUP(fromname);
936
937         MEMBDUP(date);
938         MEMBDUP(from);
939         MEMBDUP(to);
940         MEMBDUP(cc);
941         MEMBDUP(newsgroups);
942         MEMBDUP(subject);
943         MEMBDUP(msgid);
944         MEMBDUP(inreplyto);
945
946         MEMBCOPY(folder);
947         MEMBCOPY(to_folder);
948
949         MEMBDUP(xface);
950         MEMBDUP(dispositionnotificationto);
951         MEMBDUP(returnreceiptto);
952         MEMBDUP(references);
953
954         MEMBCOPY(score);
955         MEMBCOPY(threadscore);
956
957         return newmsginfo;
958 }
959
960 void procmsg_msginfo_free(MsgInfo *msginfo)
961 {
962         if (msginfo == NULL) return;
963
964         g_free(msginfo->fromspace);
965         g_free(msginfo->references);
966         g_free(msginfo->returnreceiptto);
967         g_free(msginfo->dispositionnotificationto);
968         g_free(msginfo->xface);
969
970         g_free(msginfo->fromname);
971
972         g_free(msginfo->date);
973         g_free(msginfo->from);
974         g_free(msginfo->to);
975         g_free(msginfo->cc);
976         g_free(msginfo->newsgroups);
977         g_free(msginfo->subject);
978         g_free(msginfo->msgid);
979         g_free(msginfo->inreplyto);
980
981         g_free(msginfo);
982 }
983
984 static gint procmsg_cmp_msgnum(gconstpointer a, gconstpointer b)
985 {
986         const MsgInfo *msginfo = a;
987         const guint msgnum = GPOINTER_TO_UINT(b);
988
989         if (!msginfo)
990                 return -1;
991
992         return msginfo->msgnum - msgnum;
993 }
994
995 gint procmsg_cmp_msgnum_for_sort(gconstpointer a, gconstpointer b)
996 {
997         const MsgInfo *msginfo1 = a;
998         const MsgInfo *msginfo2 = b;
999
1000         if (!msginfo1)
1001                 return -1;
1002         if (!msginfo2)
1003                 return -1;
1004
1005         return msginfo1->msgnum - msginfo2->msgnum;
1006 }
1007
1008 static gint procmsg_cmp_flag_msgnum(gconstpointer a, gconstpointer b)
1009 {
1010         const FlagInfo *finfo = a;
1011         const guint msgnum = GPOINTER_TO_UINT(b);
1012
1013         if (!finfo)
1014                 return -1;
1015
1016         return finfo->msgnum - msgnum;
1017 }
1018
1019 enum
1020 {
1021         Q_SENDER           = 0,
1022         Q_SMTPSERVER       = 1,
1023         Q_RECIPIENTS       = 2,
1024         Q_NEWSGROUPS       = 3,
1025         Q_MAIL_ACCOUNT_ID  = 4,
1026         Q_NEWS_ACCOUNT_ID  = 5,
1027         Q_SAVE_COPY_FOLDER = 6
1028 };
1029
1030 gint procmsg_send_message_queue(const gchar *file)
1031 {
1032         static HeaderEntry qentry[] = {{"S:",    NULL, FALSE},
1033                                        {"SSV:",  NULL, FALSE},
1034                                        {"R:",    NULL, FALSE},
1035                                        {"NG:",   NULL, FALSE},
1036                                        {"MAID:", NULL, FALSE},
1037                                        {"NAID:", NULL, FALSE},
1038                                        {"SCF:",  NULL, FALSE},
1039                                        {NULL,    NULL, FALSE}};
1040         FILE *fp;
1041         gint filepos;
1042         gint mailval = 0, newsval = 0;
1043         gchar *from = NULL;
1044         gchar *smtpserver = NULL;
1045         GSList *to_list = NULL;
1046         GSList *newsgroup_list = NULL;
1047         gchar *savecopyfolder = NULL;
1048         gchar buf[BUFFSIZE];
1049         gint hnum;
1050         PrefsAccount *mailac = NULL, *newsac = NULL;
1051         gchar *tmp = NULL;
1052         int local = 0;
1053
1054         g_return_val_if_fail(file != NULL, -1);
1055
1056         if ((fp = fopen(file, "rb")) == NULL) {
1057                 FILE_OP_ERROR(file, "fopen");
1058                 return -1;
1059         }
1060
1061         while ((hnum = procheader_get_one_field(buf, sizeof(buf), fp, qentry))
1062                != -1) {
1063                 gchar *p = buf + strlen(qentry[hnum].name);
1064
1065                 switch (hnum) {
1066                 case Q_SENDER:
1067                         if (!from) from = g_strdup(p);
1068                         break;
1069                 case Q_SMTPSERVER:
1070                         if (!smtpserver) smtpserver = g_strdup(p);
1071                         break;
1072                 case Q_RECIPIENTS:
1073                         to_list = address_list_append(to_list, p);
1074                         break;
1075                 case Q_NEWSGROUPS:
1076                         newsgroup_list = newsgroup_list_append(newsgroup_list, p);
1077                         break;
1078                 case Q_MAIL_ACCOUNT_ID:
1079                         mailac = account_find_from_id(atoi(p));
1080                         break;
1081                 case Q_NEWS_ACCOUNT_ID:
1082                         newsac = account_find_from_id(atoi(p));
1083                         break;
1084                 case Q_SAVE_COPY_FOLDER:
1085                         if (!savecopyfolder) savecopyfolder = g_strdup(p);
1086                         break;
1087                 }
1088         }
1089         filepos = ftell(fp);
1090
1091         if(newsgroup_list || prefs_common.savemsg) {
1092                 FILE *tmpfp;
1093
1094                 /* write to temporary file */
1095                 tmp = g_strdup_printf("%s%ctmp%d", g_get_tmp_dir(),
1096                             G_DIR_SEPARATOR, (gint)file);
1097                 if ((tmpfp = fopen(tmp, "wb")) == NULL) {
1098                         FILE_OP_ERROR(tmp, "fopen");
1099                         newsval = -1;
1100                 }
1101                 if (change_file_mode_rw(tmpfp, tmp) < 0) {
1102                         FILE_OP_ERROR(tmp, "chmod");
1103                         g_warning(_("can't change file mode\n"));
1104                 }
1105
1106                 while ((newsval == 0) && fgets(buf, sizeof(buf), fp) != NULL) {
1107                         if (fputs(buf, tmpfp) == EOF) {
1108                                 FILE_OP_ERROR(tmp, "fputs");
1109                                 newsval = -1;
1110                         }
1111                 }
1112                 fclose(tmpfp);
1113         }
1114
1115         fseek(fp, filepos, SEEK_SET);
1116         if (to_list) {
1117                 debug_print(_("Sending message by mail\n"));
1118                 if(!from) {
1119                         g_warning(_("Queued message header is broken.\n"));
1120                         mailval = -1;
1121                 } else if (mailac && mailac->use_mail_command &&
1122                            mailac->mail_command && (* mailac->mail_command)) {
1123                         mailval = send_message_local(mailac->mail_command, fp);
1124                         local = 1;
1125                 } else if (prefs_common.use_extsend && prefs_common.extsend_cmd) {
1126                         mailval = send_message_local(prefs_common.extsend_cmd, fp);
1127                         local = 1;
1128                 } else {
1129                         if (!mailac) {
1130                                 mailac = account_find_from_smtp_server(from, smtpserver);
1131                                 if (!mailac) {
1132                                         g_warning(_("Account not found. "
1133                                                     "Using current account...\n"));
1134                                         mailac = cur_account;
1135                                 }
1136                         }
1137
1138                         if (mailac)
1139                                 mailval = send_message_smtp(mailac, to_list, fp);
1140                         else {
1141                                 PrefsAccount tmp_ac;
1142
1143                                 g_warning(_("Account not found.\n"));
1144
1145                                 memset(&tmp_ac, 0, sizeof(PrefsAccount));
1146                                 tmp_ac.address = from;
1147                                 tmp_ac.smtp_server = smtpserver;
1148                                 tmp_ac.smtpport = SMTP_PORT;
1149                                 mailval = send_message_smtp(&tmp_ac, to_list, fp);
1150                         }
1151                 }
1152                 if (mailval < 0) {
1153                         if (!local)
1154                                 alertpanel_error(
1155                                         _("Error occurred while sending the message to `%s'."),
1156                                         mailac ? mailac->smtp_server : smtpserver);
1157                         else
1158                                 alertpanel_error(
1159                                         _("Error occurred while sending the message with command `%s'."),
1160                                         (mailac && mailac->use_mail_command && 
1161                                          mailac->mail_command && (*mailac->mail_command)) ? 
1162                                                 mailac->mail_command : prefs_common.extsend_cmd);
1163                 }
1164         }
1165
1166         if(newsgroup_list && (newsval == 0)) {
1167                 Folder *folder;
1168
1169                 debug_print(_("Sending message by news\n"));
1170
1171                 folder = FOLDER(newsac->folder);
1172
1173                 newsval = news_post(folder, tmp);
1174                 if (newsval < 0) {
1175                         alertpanel_error(_("Error occurred while posting the message to %s ."),
1176                                  newsac->nntp_server);
1177                 }
1178         }
1179
1180         /* save message to outbox */
1181         if (mailval == 0 && newsval == 0 && savecopyfolder) {
1182                 FolderItem *folder;
1183                 gchar *path;
1184                 gint num;
1185                 FILE *fp;
1186
1187                 debug_print(_("saving sent message...\n"));
1188
1189                 folder = folder_find_item_from_identifier(savecopyfolder);
1190                 if(!folder)
1191                         folder = folder_get_default_outbox();
1192                 path = folder_item_get_path(folder);
1193                 if (!is_dir_exist(path))
1194                         make_dir_hier(path);
1195
1196                 folder_item_scan(folder);
1197                 if ((num = folder_item_add_msg(folder, tmp, FALSE)) < 0) {
1198                         g_warning(_("can't save message\n"));
1199                 }
1200
1201                 if(num) {
1202                         if ((fp = procmsg_open_mark_file(path, TRUE)) == NULL)
1203                                 g_warning(_("can't open mark file\n"));
1204                         else {
1205                                 MsgInfo newmsginfo;
1206
1207                                 newmsginfo.msgnum = num;
1208                                 newmsginfo.flags.perm_flags = 0;
1209                                 newmsginfo.flags.tmp_flags = 0;
1210                                 procmsg_write_flags(&newmsginfo, fp);
1211                                 fclose(fp);
1212                         }
1213                 }
1214                 g_free(path);
1215         }
1216
1217         slist_free_strings(to_list);
1218         g_slist_free(to_list);
1219         slist_free_strings(newsgroup_list);
1220         g_slist_free(newsgroup_list);
1221         g_free(from);
1222         g_free(smtpserver);
1223         fclose(fp);
1224         if(tmp) {
1225                 unlink(tmp);
1226                 g_free(tmp);
1227         }
1228
1229         return (newsval != 0 ? newsval : mailval);
1230 }
1231
1232 #define CHANGE_FLAGS(msginfo) \
1233 { \
1234 if (msginfo->folder->folder->change_flags != NULL) \
1235 msginfo->folder->folder->change_flags(msginfo->folder->folder, \
1236                                       msginfo->folder, \
1237                                       msginfo); \
1238 }
1239
1240 void procmsg_msginfo_set_flags(MsgInfo *msginfo, MsgPermFlags perm_flags, MsgTmpFlags tmp_flags)
1241 {
1242         gboolean changed = FALSE;
1243         FolderItem *item = msginfo->folder;
1244
1245         debug_print(_("Setting flags for message %d in folder %s\n"), msginfo->msgnum, item->path);
1246
1247         /* if new flag is set */
1248         if((perm_flags & MSG_NEW) && !MSG_IS_NEW(msginfo->flags) &&
1249            !MSG_IS_IGNORE_THREAD(msginfo->flags)) {
1250                 item->new++;
1251                 changed = TRUE;
1252         }
1253
1254         /* if unread flag is set */
1255         if((perm_flags & MSG_UNREAD) && !MSG_IS_UNREAD(msginfo->flags) &&
1256            !MSG_IS_IGNORE_THREAD(msginfo->flags)) {
1257                 item->unread++;
1258                 changed = TRUE;
1259         }
1260
1261         /* if ignore thread flag is set */
1262         if((perm_flags & MSG_IGNORE_THREAD) && !MSG_IS_IGNORE_THREAD(msginfo->flags)) {
1263                 if(MSG_IS_NEW(msginfo->flags) || (perm_flags & MSG_NEW)) {
1264                         item->new--;
1265                         changed = TRUE;
1266                 }
1267                 if(MSG_IS_UNREAD(msginfo->flags) || (perm_flags & MSG_UNREAD)) {
1268                         item->unread--;
1269                         changed = TRUE;
1270                 }
1271         }
1272
1273         if (MSG_IS_IMAP(msginfo->flags))
1274                 imap_msg_set_perm_flags(msginfo, perm_flags);
1275
1276         msginfo->flags.perm_flags |= perm_flags;
1277         msginfo->flags.tmp_flags |= tmp_flags;
1278
1279         if(changed) {
1280                 folderview_update_item(item, FALSE);
1281         }
1282         CHANGE_FLAGS(msginfo);
1283         procmsg_msginfo_write_flags(msginfo);
1284 }
1285
1286 void procmsg_msginfo_unset_flags(MsgInfo *msginfo, MsgPermFlags perm_flags, MsgTmpFlags tmp_flags)
1287 {
1288         gboolean changed = FALSE;
1289         FolderItem *item = msginfo->folder;
1290         
1291         debug_print(_("Unsetting flags for message %d in folder %s\n"), msginfo->msgnum, item->path);
1292
1293         /* if new flag is unset */
1294         if((perm_flags & MSG_NEW) && MSG_IS_NEW(msginfo->flags) &&
1295            !MSG_IS_IGNORE_THREAD(msginfo->flags)) {
1296                 item->new--;
1297                 changed = TRUE;
1298         }
1299
1300         /* if unread flag is unset */
1301         if((perm_flags & MSG_UNREAD) && MSG_IS_UNREAD(msginfo->flags) &&
1302            !MSG_IS_IGNORE_THREAD(msginfo->flags)) {
1303                 item->unread--;
1304                 changed = TRUE;
1305         }
1306
1307         /* if ignore thread flag is unset */
1308         if((perm_flags & MSG_IGNORE_THREAD) && !MSG_IS_IGNORE_THREAD(msginfo->flags)) {
1309                 if(MSG_IS_NEW(msginfo->flags) || (perm_flags & MSG_NEW)) {
1310                         item->new++;
1311                         changed = TRUE;
1312                 }
1313                 if(MSG_IS_UNREAD(msginfo->flags) || (perm_flags & MSG_UNREAD)) {
1314                         item->unread++;
1315                         changed = TRUE;
1316                 }
1317         }
1318
1319         if (MSG_IS_IMAP(msginfo->flags))
1320                 imap_msg_unset_perm_flags(msginfo, perm_flags);
1321
1322         msginfo->flags.perm_flags &= ~perm_flags;
1323         msginfo->flags.tmp_flags &= ~tmp_flags;
1324
1325         if(changed) {
1326                 folderview_update_item(item, FALSE);
1327         }
1328         CHANGE_FLAGS(msginfo);
1329         procmsg_msginfo_write_flags(msginfo);
1330 }
1331
1332 void procmsg_msginfo_write_flags(MsgInfo *msginfo)
1333 {
1334         gchar *destdir;
1335         FILE *fp;
1336
1337         destdir = folder_item_get_path(msginfo->folder);
1338         if (!is_dir_exist(destdir))
1339                 make_dir_hier(destdir);
1340
1341         if ((fp = procmsg_open_mark_file(destdir, TRUE))) {
1342                 procmsg_write_flags(msginfo, fp);
1343                 fclose(fp);
1344         } else {
1345                 g_warning(_("Can't open mark file.\n"));
1346         }
1347         
1348         g_free(destdir);
1349 }