2 * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3 * Copyright (C) 1999-2001 Hiroyuki Yamamoto
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.
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.
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.
34 #include "procheader.h"
40 #include "prefs_common.h"
46 static GHashTable *procmime_get_mime_type_table (void);
48 MimeInfo *procmime_mimeinfo_new(void)
52 mimeinfo = g_new0(MimeInfo, 1);
53 mimeinfo->mime_type = MIME_UNKNOWN;
54 mimeinfo->encoding_type = ENC_UNKNOWN;
59 void procmime_mimeinfo_free(MimeInfo *mimeinfo)
61 if (!mimeinfo) return;
63 g_free(mimeinfo->encoding);
64 g_free(mimeinfo->content_type);
65 g_free(mimeinfo->charset);
66 g_free(mimeinfo->name);
67 g_free(mimeinfo->boundary);
68 g_free(mimeinfo->content_disposition);
69 g_free(mimeinfo->filename);
71 g_free(mimeinfo->plaintextfile);
72 g_free(mimeinfo->sigstatus);
73 g_free(mimeinfo->sigstatus_full);
76 procmime_mimeinfo_free(mimeinfo->sub);
81 void procmime_mimeinfo_free_all(MimeInfo *mimeinfo)
83 while (mimeinfo != NULL) {
86 g_free(mimeinfo->encoding);
87 g_free(mimeinfo->content_type);
88 g_free(mimeinfo->charset);
89 g_free(mimeinfo->name);
90 g_free(mimeinfo->boundary);
91 g_free(mimeinfo->content_disposition);
92 g_free(mimeinfo->filename);
94 g_free(mimeinfo->plaintextfile);
95 g_free(mimeinfo->sigstatus);
96 g_free(mimeinfo->sigstatus_full);
99 procmime_mimeinfo_free_all(mimeinfo->sub);
100 procmime_mimeinfo_free_all(mimeinfo->children);
102 procmime_mimeinfo_free_all(mimeinfo->plaintext);
105 next = mimeinfo->next;
111 MimeInfo *procmime_mimeinfo_insert(MimeInfo *parent, MimeInfo *mimeinfo)
113 MimeInfo *child = parent->children;
116 parent->children = mimeinfo;
118 while (child->next != NULL)
121 child->next = mimeinfo;
124 mimeinfo->parent = parent;
125 mimeinfo->level = parent->level + 1;
130 void procmime_mimeinfo_replace(MimeInfo *old, MimeInfo *new)
132 MimeInfo *parent = old->parent;
136 g_warning("oops: Not top message");
140 g_message("oops: new child should not have a sibling");
144 for (child = parent->children; child && child != old;
148 g_warning("oops: parent can't find it's own child");
151 procmime_mimeinfo_free_all(old);
153 if (child == parent->children) {
154 new->next = parent->children->next;
155 parent->children = new;
157 new->next = child->next;
162 MimeInfo *procmime_scan_message(MsgInfo *msginfo)
167 g_return_val_if_fail(msginfo != NULL, NULL);
169 if ((fp = procmsg_open_message(msginfo)) == NULL) return NULL;
170 mimeinfo = procmime_scan_mime_header(fp);
173 if (mimeinfo->mime_type != MIME_MULTIPART) {
174 if (fseek(fp, mimeinfo->fpos, SEEK_SET) < 0)
177 if (mimeinfo->mime_type != MIME_TEXT)
178 procmime_scan_multipart_message(mimeinfo, fp);
182 if (prefs_common.auto_check_signatures)
183 rfc2015_check_signature(mimeinfo, fp);
190 void procmime_scan_multipart_message(MimeInfo *mimeinfo, FILE *fp)
194 gint boundary_len = 0;
196 glong fpos, prev_fpos;
199 g_return_if_fail(mimeinfo != NULL);
200 g_return_if_fail(mimeinfo->mime_type != MIME_TEXT);
202 if (mimeinfo->mime_type == MIME_MULTIPART) {
203 g_return_if_fail(mimeinfo->boundary != NULL);
204 g_return_if_fail(mimeinfo->sub == NULL);
206 g_return_if_fail(fp != NULL);
208 boundary = mimeinfo->boundary;
211 boundary_len = strlen(boundary);
213 /* look for first boundary */
214 while ((p = fgets(buf, sizeof(buf), fp)) != NULL)
215 if (IS_BOUNDARY(buf, boundary, boundary_len)) break;
219 if ((fpos = ftell(fp)) < 0) {
224 for (npart = 0;; npart++) {
226 gboolean eom = FALSE;
230 partinfo = procmime_scan_mime_header(fp);
231 if (!partinfo) break;
232 procmime_mimeinfo_insert(mimeinfo, partinfo);
234 if (partinfo->mime_type == MIME_MULTIPART) {
235 if (partinfo->level < 8)
236 procmime_scan_multipart_message(partinfo, fp);
237 } else if (partinfo->mime_type == MIME_MESSAGE_RFC822) {
240 partinfo->sub = sub = procmime_scan_mime_header(fp);
242 sub->level = partinfo->level + 1;
243 sub->parent = partinfo->parent;
244 sub->main = partinfo;
246 if (sub->mime_type == MIME_MULTIPART) {
248 procmime_scan_multipart_message
253 /* look for next boundary */
255 while ((p = fgets(buf, sizeof(buf), fp)) != NULL) {
256 if (IS_BOUNDARY(buf, boundary, boundary_len)) {
257 if (buf[2 + boundary_len] == '-' &&
258 buf[2 + boundary_len + 1] == '-')
264 eom = TRUE; /* broken MIME message */
267 partinfo->size = fpos - prev_fpos - strlen(buf);
271 /*g_message ("** at " __PRETTY_FUNCTION__ ":%d:", __LINE__);*/
274 void procmime_scan_encoding(MimeInfo *mimeinfo, const gchar *encoding)
278 Xstrdup_a(buf, encoding, return);
280 g_free(mimeinfo->encoding);
282 mimeinfo->encoding = g_strdup(g_strstrip(buf));
283 if (!strcasecmp(buf, "7bit"))
284 mimeinfo->encoding_type = ENC_7BIT;
285 else if (!strcasecmp(buf, "8bit"))
286 mimeinfo->encoding_type = ENC_8BIT;
287 else if (!strcasecmp(buf, "quoted-printable"))
288 mimeinfo->encoding_type = ENC_QUOTED_PRINTABLE;
289 else if (!strcasecmp(buf, "base64"))
290 mimeinfo->encoding_type = ENC_BASE64;
291 else if (!strcasecmp(buf, "x-uuencode"))
292 mimeinfo->encoding_type = ENC_X_UUENCODE;
294 mimeinfo->encoding_type = ENC_UNKNOWN;
298 void procmime_scan_content_type(MimeInfo *mimeinfo, const gchar *content_type)
300 gchar *delim, *p, *cnttype;
303 if (conv_get_current_charset() == C_EUC_JP &&
304 strchr(content_type, '\007')) {
306 len = strlen(content_type) * 2 + 1;
307 Xalloca(buf, len, return);
308 conv_jistoeuc(buf, len, content_type);
310 Xstrdup_a(buf, content_type, return);
312 g_free(mimeinfo->content_type);
313 g_free(mimeinfo->charset);
314 g_free(mimeinfo->name);
315 mimeinfo->content_type = NULL;
316 mimeinfo->charset = NULL;
317 mimeinfo->name = NULL;
319 if ((delim = strchr(buf, ';'))) *delim = '\0';
320 mimeinfo->content_type = cnttype = g_strdup(g_strstrip(buf));
322 if (!strncasecmp(cnttype, "text/html", 9))
323 mimeinfo->mime_type = MIME_TEXT_HTML;
324 else if (!strncasecmp(cnttype, "text/", 5))
325 mimeinfo->mime_type = MIME_TEXT;
326 else if (!strncasecmp(cnttype, "message/rfc822", 14))
327 mimeinfo->mime_type = MIME_MESSAGE_RFC822;
328 else if (!strncasecmp(cnttype, "message/", 8))
329 mimeinfo->mime_type = MIME_TEXT;
330 else if (!strncasecmp(cnttype, "application/octet-stream", 24))
331 mimeinfo->mime_type = MIME_APPLICATION_OCTET_STREAM;
332 else if (!strncasecmp(cnttype, "application/", 12))
333 mimeinfo->mime_type = MIME_APPLICATION;
334 else if (!strncasecmp(cnttype, "multipart/", 10))
335 mimeinfo->mime_type = MIME_MULTIPART;
336 else if (!strncasecmp(cnttype, "image/", 6))
337 mimeinfo->mime_type = MIME_IMAGE;
338 else if (!strncasecmp(cnttype, "audio/", 6))
339 mimeinfo->mime_type = MIME_AUDIO;
340 else if (!strcasecmp(cnttype, "text"))
341 mimeinfo->mime_type = MIME_TEXT;
343 mimeinfo->mime_type = MIME_UNKNOWN;
352 if ((delim = strchr(p, ';'))) *delim = '\0';
354 if (!(eq = strchr(p, '='))) break;
363 extract_quote(value, '"');
365 eliminate_parenthesis(value, '(', ')');
370 if (!strcasecmp(attr, "charset"))
371 mimeinfo->charset = g_strdup(value);
372 else if (!strcasecmp(attr, "name")) {
376 len = strlen(value) + 1;
377 Xalloca(tmp, len, return);
378 conv_unmime_header(tmp, len, value, NULL);
379 mimeinfo->name = g_strdup(tmp);
380 } else if (!strcasecmp(attr, "boundary"))
381 mimeinfo->boundary = g_strdup(value);
388 if (mimeinfo->mime_type == MIME_MULTIPART && !mimeinfo->boundary)
389 mimeinfo->mime_type = MIME_TEXT;
392 void procmime_scan_content_disposition(MimeInfo *mimeinfo,
393 const gchar *content_disposition)
395 gchar *delim, *p, *dispos;
398 if (conv_get_current_charset() == C_EUC_JP &&
399 strchr(content_disposition, '\007')) {
401 len = strlen(content_disposition) * 2 + 1;
402 Xalloca(buf, len, return);
403 conv_jistoeuc(buf, len, content_disposition);
405 Xstrdup_a(buf, content_disposition, return);
407 if ((delim = strchr(buf, ';'))) *delim = '\0';
408 mimeinfo->content_disposition = dispos = g_strdup(g_strstrip(buf));
417 if ((delim = strchr(p, ';'))) *delim = '\0';
419 if (!(eq = strchr(p, '='))) break;
428 extract_quote(value, '"');
430 eliminate_parenthesis(value, '(', ')');
435 if (!strcasecmp(attr, "filename")) {
439 len = strlen(value) + 1;
440 Xalloca(tmp, len, return);
441 conv_unmime_header(tmp, len, value, NULL);
442 g_free(mimeinfo->filename);
443 mimeinfo->filename = g_strdup(tmp);
455 H_CONTENT_TRANSFER_ENCODING = 0,
457 H_CONTENT_DISPOSITION = 2
460 MimeInfo *procmime_scan_mime_header(FILE *fp)
462 static HeaderEntry hentry[] = {{"Content-Transfer-Encoding:",
464 {"Content-Type:", NULL, TRUE},
465 {"Content-Disposition:",
467 {NULL, NULL, FALSE}};
473 g_return_val_if_fail(fp != NULL, NULL);
475 mimeinfo = procmime_mimeinfo_new();
476 mimeinfo->mime_type = MIME_TEXT;
477 mimeinfo->encoding_type = ENC_7BIT;
478 mimeinfo->fpos = ftell(fp);
480 while ((hnum = procheader_get_one_field(buf, sizeof(buf), fp, hentry))
484 if (H_CONTENT_TRANSFER_ENCODING == hnum) {
485 procmime_scan_encoding
486 (mimeinfo, buf + strlen(hp->name));
487 } else if (H_CONTENT_TYPE == hnum) {
488 procmime_scan_content_type
489 (mimeinfo, buf + strlen(hp->name));
490 } else if (H_CONTENT_DISPOSITION == hnum) {
491 procmime_scan_content_disposition
492 (mimeinfo, buf + strlen(hp->name));
496 if (!mimeinfo->content_type)
497 mimeinfo->content_type = g_strdup("text/plain");
502 FILE *procmime_decode_content(FILE *outfp, FILE *infp, MimeInfo *mimeinfo)
505 gchar *boundary = NULL;
506 gint boundary_len = 0;
507 gboolean tmp_file = FALSE;
509 g_return_val_if_fail(infp != NULL, NULL);
510 g_return_val_if_fail(mimeinfo != NULL, NULL);
513 outfp = my_tmpfile();
521 if (mimeinfo->parent && mimeinfo->parent->boundary) {
522 boundary = mimeinfo->parent->boundary;
523 boundary_len = strlen(boundary);
526 if (mimeinfo->encoding_type == ENC_QUOTED_PRINTABLE) {
527 gboolean softline = FALSE;
529 while (fgets(buf, sizeof(buf), infp) != NULL &&
531 !IS_BOUNDARY(buf, boundary, boundary_len))) {
534 softline = DoOneQPLine(&p, FALSE, softline);
535 fwrite(buf, p - (guchar *)buf, 1, outfp);
537 } else if (mimeinfo->encoding_type == ENC_BASE64) {
538 gchar outbuf[BUFFSIZE];
540 Base64Decoder *decoder;
542 decoder = base64_decoder_new();
543 while (fgets(buf, sizeof(buf), infp) != NULL &&
545 !IS_BOUNDARY(buf, boundary, boundary_len))) {
546 len = base64_decoder_decode(decoder, buf, outbuf);
548 g_warning("Bad BASE64 content\n");
551 fwrite(outbuf, sizeof(gchar), len, outfp);
553 base64_decoder_free(decoder);
554 } else if (mimeinfo->encoding_type == ENC_X_UUENCODE) {
555 gchar outbuf[BUFFSIZE];
557 gboolean flag = FALSE;
559 while (fgets(buf, sizeof(buf), infp) != NULL &&
561 !IS_BOUNDARY(buf, boundary, boundary_len))) {
562 if(!flag && strncmp(buf,"begin ", 6)) continue;
565 len = fromuutobits(outbuf, buf);
568 g_warning("Bad UUENCODE content(%d)\n", len);
571 fwrite(outbuf, sizeof(gchar), len, outfp);
576 while (fgets(buf, sizeof(buf), infp) != NULL &&
578 !IS_BOUNDARY(buf, boundary, boundary_len))) {
583 if (tmp_file) rewind(outfp);
587 gint procmime_get_part(const gchar *outfile, const gchar *infile,
593 g_return_val_if_fail(outfile != NULL, -1);
594 g_return_val_if_fail(infile != NULL, -1);
595 g_return_val_if_fail(mimeinfo != NULL, -1);
597 if ((infp = fopen(infile, "r")) == NULL) {
598 FILE_OP_ERROR(infile, "fopen");
601 if (fseek(infp, mimeinfo->fpos, SEEK_SET) < 0) {
602 FILE_OP_ERROR(infile, "fseek");
606 if ((outfp = fopen(outfile, "w")) == NULL) {
607 FILE_OP_ERROR(outfile, "fopen");
612 while (fgets(buf, sizeof(buf), infp) != NULL)
613 if (buf[0] == '\r' || buf[0] == '\n') break;
615 procmime_decode_content(outfp, infp, mimeinfo);
618 if (fclose(outfp) == EOF) {
619 FILE_OP_ERROR(outfile, "fclose");
627 FILE *procmime_get_text_part(MsgInfo *msginfo)
629 FILE *infp, *tmpfp, *outfp;
630 MimeInfo *mimeinfo, *partinfo = NULL;
632 gboolean conv_fail = FALSE;
635 g_return_val_if_fail(msginfo != NULL, NULL);
637 mimeinfo = procmime_scan_message(msginfo);
638 if (!mimeinfo) return NULL;
640 if ((infp = procmsg_open_message(msginfo)) == NULL) {
641 procmime_mimeinfo_free_all(mimeinfo);
645 if (mimeinfo->mime_type == MIME_MULTIPART) {
646 partinfo = mimeinfo->children;
647 if (partinfo && partinfo->mime_type == MIME_TEXT) {
648 if (fseek(infp, partinfo->fpos, SEEK_SET) < 0) {
654 } else if (mimeinfo->mime_type == MIME_TEXT) {
656 if (fseek(infp, partinfo->fpos, SEEK_SET) < 0) {
663 procmime_mimeinfo_free_all(mimeinfo);
667 while (fgets(buf, sizeof(buf), infp) != NULL)
668 if (buf[0] == '\r' || buf[0] == '\n') break;
670 tmpfp = procmime_decode_content(NULL, infp, partinfo);
672 procmime_mimeinfo_free_all(mimeinfo);
676 if ((outfp = my_tmpfile()) == NULL) {
679 procmime_mimeinfo_free_all(mimeinfo);
683 src_codeset = prefs_common.force_charset
684 ? prefs_common.force_charset : partinfo->charset;
686 while (fgets(buf, sizeof(buf), tmpfp) != NULL) {
689 str = conv_codeset_strdup(buf, src_codeset, NULL);
698 if (conv_fail) g_warning(_("Code conversion failed.\n"));
701 procmime_mimeinfo_free_all(mimeinfo);
707 gchar *procmime_get_tmp_file_name(MimeInfo *mimeinfo)
709 static guint32 id = 0;
714 g_return_val_if_fail(mimeinfo != NULL, NULL);
716 g_snprintf(f_prefix, sizeof(f_prefix), "%08x.", id++);
718 if (MIME_TEXT_HTML == mimeinfo->mime_type)
719 base = "mimetmp.html";
721 base = mimeinfo->filename ? mimeinfo->filename
722 : mimeinfo->name ? mimeinfo->name : "mimetmp";
723 base = g_basename(base);
724 if (*base == '\0') base = "mimetmp";
727 filename = g_strconcat(get_mime_tmp_dir(), G_DIR_SEPARATOR_S,
728 f_prefix, base, NULL);
733 static GList *mime_type_list = NULL;
735 gchar *procmime_get_mime_type(const gchar *filename)
737 static GHashTable *mime_type_table = NULL;
739 const gchar *ext, *p;
741 if (!mime_type_table) {
742 mime_type_table = procmime_get_mime_type_table();
743 if (!mime_type_table) return NULL;
746 filename = g_basename(filename);
747 p = strrchr(filename, '.');
753 mime_type = g_hash_table_lookup(mime_type_table, ext);
757 str = g_strconcat(mime_type->type, "/", mime_type->sub_type,
765 static guint procmime_str_hash(gconstpointer gptr)
767 guint hash_result = 0;
770 for (str = gptr; str && *str; str++) {
771 if (isupper(*str)) hash_result += (*str + ' ');
772 else hash_result += *str;
778 static gint procmime_str_equal(gconstpointer gptr1, gconstpointer gptr2)
780 const char *str1 = gptr1;
781 const char *str2 = gptr2;
783 return !strcasecmp(str1, str2);
786 static GHashTable *procmime_get_mime_type_table(void)
788 GHashTable *table = NULL;
793 if (!mime_type_list) {
794 mime_type_list = procmime_get_mime_type_list();
795 if (!mime_type_list) return NULL;
798 table = g_hash_table_new(procmime_str_hash, procmime_str_equal);
800 for (cur = mime_type_list; cur != NULL; cur = cur->next) {
803 mime_type = (MimeType *)cur->data;
805 if (!mime_type->extension) continue;
807 exts = g_strsplit(mime_type->extension, " ", 16);
808 for (i = 0; exts[i] != NULL; i++)
809 g_hash_table_insert(table, g_strdup(exts[i]),
817 GList *procmime_get_mime_type_list(void)
826 return mime_type_list;
828 if ((fp = fopen(SYSCONFDIR "/mime.types", "r")) == NULL) {
829 FILE_OP_ERROR(SYSCONFDIR "/mime.types", "fopen");
833 while (fgets(buf, sizeof(buf), fp) != NULL) {
834 p = strchr(buf, '#');
839 while (*p && !isspace(*p)) p++;
844 delim = strchr(buf, '/');
845 if (delim == NULL) continue;
848 mime_type = g_new(MimeType, 1);
849 mime_type->type = g_strdup(buf);
850 mime_type->sub_type = g_strdup(delim + 1);
852 while (*p && isspace(*p)) p++;
854 mime_type->extension = g_strdup(p);
856 mime_type->extension = NULL;
858 list = g_list_append(list, mime_type);
864 g_warning("Can't read mime.types\n");
869 EncodingType procmime_get_encoding_for_charset(const gchar *charset)
873 else if (!strncasecmp(charset, "ISO-2022-", 9) ||
874 !strcasecmp(charset, "US-ASCII"))
878 /* return ENC_BASE64; */
879 /* return ENC_QUOTED_PRINTABLE; */
882 const gchar *procmime_get_encoding_str(EncodingType encoding)
884 static const gchar *encoding_str[] = {
885 "7bit", "8bit", "quoted-printable", "base64", "x-uuencode",
889 if (encoding >= ENC_7BIT && encoding <= ENC_UNKNOWN)
890 return encoding_str[encoding];