dovecot/original-hg/dovecot-1.2: src/imap/imap-fetch.c annotate

annotate src/imap/imap-fetch.c @ 1764:fbb28b07c60f HEAD

Write envelope, body and bodystructure directly into output stream.

author	Timo Sirainen <tss@iki.fi>
date	Mon, 08 Sep 2003 04:46:14 +0300
parents	8920600a8cfc
children	53e06e33393f

rev	line source
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	1 /* Copyright (C) 2002 Timo Sirainen */
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	2
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	3 #include "common.h"
1672 8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	4 #include "buffer.h"
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	5 #include "istream.h"
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	6 #include "ostream.h"
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	7 #include "str.h"
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	8 #include "message-send.h"
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	9 #include "message-size.h"
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	10 #include "imap-date.h"
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	11 #include "commands.h"
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	12 #include "imap-fetch.h"
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	13
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	14 #include <unistd.h>
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	15
1672 8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	16 const char const imap_fetch_get_body_fields(const char *fields)
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	17 {
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	18 const char field_list, field, **dest;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	19
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	20 while (*fields == ' ')
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	21 fields++;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	22 if (*fields == '(')
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	23 fields++;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	24
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	25 field_list = t_strsplit(fields, " )");
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	26
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	27 /* array ends at ")" element */
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	28 for (field = dest = field_list; *field != NULL; field++) {
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	29 if (strcmp(*field, ")") == 0)
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	30 break;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	31 if (**field != '\0') {
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	32 dest = field;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	33 dest++;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	34 }
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	35 }
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	36 *dest = NULL;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	37
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	38 return field_list;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	39 }
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	40
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	41 static void fetch_uid(struct imap_fetch_context ctx, struct mail mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	42 {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	43 str_printfa(ctx->str, "UID %u ", mail->uid);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	44 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	45
1638 e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	46 static int fetch_flags(struct imap_fetch_context ctx, struct mail mail,
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	47 const struct mail_full_flags *flags)
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	48 {
1638 e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	49 if (flags == NULL) {
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	50 flags = mail->get_flags(mail);
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	51 if (flags == NULL)
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	52 return FALSE;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	53 }
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	54
1638 e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	55 str_printfa(ctx->str, "FLAGS (%s) ", imap_write_flags(flags));
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	56 return TRUE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	57 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	58
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	59 static int fetch_internaldate(struct imap_fetch_context ctx, struct mail mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	60 {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	61 time_t time;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	62
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	63 time = mail->get_received_date(mail);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	64 if (time == (time_t)-1)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	65 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	66
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	67 str_printfa(ctx->str, "INTERNALDATE \"%s\" ", imap_to_datetime(time));
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	68 return TRUE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	69 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	70
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	71 static int fetch_rfc822_size(struct imap_fetch_context ctx, struct mail mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	72 {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	73 uoff_t size;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	74
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	75 size = mail->get_size(mail);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	76 if (size == (uoff_t)-1)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	77 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	78
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	79 str_printfa(ctx->str, "RFC822.SIZE %"PRIuUOFF_T" ", size);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	80 return TRUE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	81 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	82
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	83 static int fetch_body(struct imap_fetch_context ctx, struct mail mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	84 {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	85 const char *body;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	86
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	87 body = mail->get_special(mail, MAIL_FETCH_IMAP_BODY);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	88 if (body == NULL)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	89 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	90
1764 fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	91 if (ctx->first) {
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	92 if (o_stream_send_str(ctx->output, "BODY (") < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	93 return FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	94 ctx->first = FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	95 } else {
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	96 if (o_stream_send_str(ctx->output, " BODY(") < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	97 return FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	98 }
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	99
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	100 if (o_stream_send_str(ctx->output, body) < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	101 return FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	102
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	103 if (o_stream_send(ctx->output, ")", 1) < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	104 return FALSE;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	105 return TRUE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	106 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	107
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	108 static int fetch_bodystructure(struct imap_fetch_context *ctx,
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	109 struct mail *mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	110 {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	111 const char *bodystructure;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	112
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	113 bodystructure = mail->get_special(mail, MAIL_FETCH_IMAP_BODYSTRUCTURE);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	114 if (bodystructure == NULL)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	115 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	116
1764 fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	117 if (ctx->first) {
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	118 if (o_stream_send_str(ctx->output, "BODYSTRUCTURE (") < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	119 return FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	120 ctx->first = FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	121 } else {
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	122 if (o_stream_send_str(ctx->output, " BODYSTRUCTURE(") < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	123 return FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	124 }
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	125
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	126 if (o_stream_send_str(ctx->output, bodystructure) < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	127 return FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	128
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	129 if (o_stream_send(ctx->output, ")", 1) < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	130 return FALSE;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	131 return TRUE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	132 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	133
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	134 static int fetch_envelope(struct imap_fetch_context ctx, struct mail mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	135 {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	136 const char *envelope;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	137
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	138 envelope = mail->get_special(mail, MAIL_FETCH_IMAP_ENVELOPE);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	139 if (envelope == NULL)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	140 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	141
1764 fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	142 if (ctx->first) {
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	143 if (o_stream_send_str(ctx->output, "ENVELOPE (") < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	144 return FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	145 ctx->first = FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	146 } else {
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	147 if (o_stream_send_str(ctx->output, " ENVELOPE(") < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	148 return FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	149 }
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	150
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	151 if (o_stream_send_str(ctx->output, envelope) < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	152 return FALSE;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	153
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	154 if (o_stream_send(ctx->output, ")", 1) < 0)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	155 return FALSE;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	156 return TRUE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	157 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	158
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	159 static int fetch_send_rfc822(struct imap_fetch_context ctx, struct mail mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	160 {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	161 struct message_size hdr_size, body_size;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	162 struct istream *stream;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	163 const char *str;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	164
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	165 stream = mail->get_stream(mail, &hdr_size, &body_size);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	166 if (stream == NULL)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	167 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	168
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	169 message_size_add(&body_size, &hdr_size);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	170
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	171 str = t_strdup_printf(" RFC822 {%"PRIuUOFF_T"}\r\n",
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	172 body_size.virtual_size);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	173 if (ctx->first) {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	174 str++; ctx->first = FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	175 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	176 if (o_stream_send_str(ctx->output, str) < 0)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	177 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	178
991 21788a1e9e39 Partial fetches are working fast again - faster than ever actually. Timo Sirainen <tss@iki.fi> parents: 988 diff changeset	179 return message_send(ctx->output, stream, &body_size,
1534 676995d7c0ca IMAP protocol doesn't allow server to send NULs to client. Send ascii #128 Timo Sirainen <tss@iki.fi> parents: 1391 diff changeset	180 0, (uoff_t)-1, NULL, !mail->has_no_nuls) >= 0;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	181 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	182
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	183 static int fetch_send_rfc822_header(struct imap_fetch_context *ctx,
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	184 struct mail *mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	185 {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	186 struct message_size hdr_size;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	187 struct istream *stream;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	188 const char *str;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	189
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	190 stream = mail->get_stream(mail, &hdr_size, NULL);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	191 if (stream == NULL)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	192 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	193
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	194 str = t_strdup_printf(" RFC822.HEADER {%"PRIuUOFF_T"}\r\n",
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	195 hdr_size.virtual_size);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	196 if (ctx->first) {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	197 str++; ctx->first = FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	198 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	199 if (o_stream_send_str(ctx->output, str) < 0)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	200 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	201
1391 e0dbaabbc22b Partial fetches were broken when they stopped between virtual CR and LF. Timo Sirainen <tss@iki.fi> parents: 996 diff changeset	202 return message_send(ctx->output, stream, &hdr_size,
1534 676995d7c0ca IMAP protocol doesn't allow server to send NULs to client. Send ascii #128 Timo Sirainen <tss@iki.fi> parents: 1391 diff changeset	203 0, (uoff_t)-1, NULL, !mail->has_no_nuls) >= 0;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	204 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	205
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	206 static int fetch_send_rfc822_text(struct imap_fetch_context *ctx,
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	207 struct mail *mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	208 {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	209 struct message_size hdr_size, body_size;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	210 struct istream *stream;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	211 const char *str;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	212
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	213 stream = mail->get_stream(mail, &hdr_size, &body_size);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	214 if (stream == NULL)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	215 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	216
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	217 str = t_strdup_printf(" RFC822.TEXT {%"PRIuUOFF_T"}\r\n",
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	218 body_size.virtual_size);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	219 if (ctx->first) {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	220 str++; ctx->first = FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	221 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	222 if (o_stream_send_str(ctx->output, str) < 0)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	223 return FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	224
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	225 i_stream_seek(stream, hdr_size.physical_size);
991 21788a1e9e39 Partial fetches are working fast again - faster than ever actually. Timo Sirainen <tss@iki.fi> parents: 988 diff changeset	226 return message_send(ctx->output, stream, &body_size,
1534 676995d7c0ca IMAP protocol doesn't allow server to send NULs to client. Send ascii #128 Timo Sirainen <tss@iki.fi> parents: 1391 diff changeset	227 0, (uoff_t)-1, NULL, !mail->has_no_nuls) >= 0;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	228 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	229
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	230 static int fetch_mail(struct imap_fetch_context ctx, struct mail mail)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	231 {
1638 e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	232 const struct mail_full_flags *flags;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	233 struct imap_fetch_body_data *body;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	234 size_t len, orig_len;
1638 e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	235 int failed, data_written, seen_updated = FALSE;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	236
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	237 if (!ctx->update_seen)
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	238 flags = NULL;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	239 else {
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	240 flags = mail->get_flags(mail);
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	241 if (flags == NULL)
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	242 return FALSE;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	243
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	244 if ((flags->flags & MAIL_SEEN) == 0) {
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	245 if (!mail->update_flags(mail, &ctx->seen_flag,
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	246 MODIFY_ADD))
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	247 return FALSE;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	248
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	249 flags = NULL; /* \Seen won't update automatically */
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	250 seen_updated = TRUE;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	251 }
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	252 }
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	253
994 ab4091b2ddc2 FETCH ate too much memory Timo Sirainen <tss@iki.fi> parents: 991 diff changeset	254 t_push();
ab4091b2ddc2 FETCH ate too much memory Timo Sirainen <tss@iki.fi> parents: 991 diff changeset	255
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	256 str_truncate(ctx->str, 0);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	257 str_printfa(ctx->str, "* %u FETCH (", mail->seq);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	258 orig_len = str_len(ctx->str);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	259
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	260 failed = TRUE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	261 data_written = FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	262 do {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	263 /* write the data into temp string */
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	264 if (ctx->imap_data & IMAP_FETCH_UID)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	265 fetch_uid(ctx, mail);
1638 e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	266 if ((ctx->fetch_data & MAIL_FETCH_FLAGS) \|\| seen_updated)
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	267 if (!fetch_flags(ctx, mail, flags))
994 ab4091b2ddc2 FETCH ate too much memory Timo Sirainen <tss@iki.fi> parents: 991 diff changeset	268 break;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	269 if (ctx->fetch_data & MAIL_FETCH_RECEIVED_DATE)
994 ab4091b2ddc2 FETCH ate too much memory Timo Sirainen <tss@iki.fi> parents: 991 diff changeset	270 if (!fetch_internaldate(ctx, mail))
ab4091b2ddc2 FETCH ate too much memory Timo Sirainen <tss@iki.fi> parents: 991 diff changeset	271 break;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	272 if (ctx->fetch_data & MAIL_FETCH_SIZE)
994 ab4091b2ddc2 FETCH ate too much memory Timo Sirainen <tss@iki.fi> parents: 991 diff changeset	273 if (!fetch_rfc822_size(ctx, mail))
ab4091b2ddc2 FETCH ate too much memory Timo Sirainen <tss@iki.fi> parents: 991 diff changeset	274 break;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	275
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	276 /* send the data written into temp string */
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	277 len = str_len(ctx->str);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	278 ctx->first = len == orig_len;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	279
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	280 if (!ctx->first)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	281 str_truncate(ctx->str, --len);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	282 if (o_stream_send(ctx->output, str_data(ctx->str), len) < 0)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	283 break;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	284
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	285 data_written = TRUE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	286
1764 fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	287 /* medium size data .. seems to be faster without
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	288 putting through string */
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	289 if (ctx->fetch_data & MAIL_FETCH_IMAP_BODY)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	290 if (!fetch_body(ctx, mail))
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	291 break;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	292 if (ctx->fetch_data & MAIL_FETCH_IMAP_BODYSTRUCTURE)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	293 if (!fetch_bodystructure(ctx, mail))
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	294 break;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	295 if (ctx->fetch_data & MAIL_FETCH_IMAP_ENVELOPE)
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	296 if(!fetch_envelope(ctx, mail))
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	297 break;
fbb28b07c60f Write envelope, body and bodystructure directly into output stream. Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	298
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	299 /* large data */
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	300 if (ctx->imap_data & IMAP_FETCH_RFC822)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	301 if (!fetch_send_rfc822(ctx, mail))
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	302 break;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	303 if (ctx->imap_data & IMAP_FETCH_RFC822_HEADER)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	304 if (!fetch_send_rfc822_header(ctx, mail))
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	305 break;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	306 if (ctx->imap_data & IMAP_FETCH_RFC822_TEXT)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	307 if (!fetch_send_rfc822_text(ctx, mail))
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	308 break;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	309
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	310 for (body = ctx->bodies; body != NULL; body = body->next) {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	311 if (!imap_fetch_body_section(ctx, body, mail))
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	312 break;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	313 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	314
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	315 failed = FALSE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	316 } while (0);
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	317
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	318 if (data_written) {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	319 if (o_stream_send(ctx->output, ")\r\n", 3) < 0)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	320 failed = TRUE;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	321 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	322
994 ab4091b2ddc2 FETCH ate too much memory Timo Sirainen <tss@iki.fi> parents: 991 diff changeset	323 t_pop();
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	324 return !failed;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	325 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	326
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	327 int imap_fetch(struct client *client,
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	328 enum mail_fetch_field fetch_data,
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	329 enum imap_fetch_field imap_data,
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	330 struct imap_fetch_body_data *bodies,
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	331 const char *messageset, int uidset)
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	332 {
1639 3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	333 struct mailbox *box = client->mailbox;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	334 struct imap_fetch_context ctx;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	335 struct mail *mail;
1672 8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	336 struct imap_fetch_body_data *body;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	337 const char *null = NULL;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	338 const char const wanted_headers, const arr;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	339 buffer_t *buffer;
1638 e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	340 int all_found;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	341
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	342 memset(&ctx, 0, sizeof(ctx));
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	343 ctx.fetch_data = fetch_data;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	344 ctx.imap_data = imap_data;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	345 ctx.bodies = bodies;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	346 ctx.output = client->output;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	347 ctx.select_counter = client->select_counter;
e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	348 ctx.seen_flag.flags = MAIL_SEEN;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	349
1642 72c6e848f583 API changes: Don't keep variables in mailbox class. Timo Sirainen <tss@iki.fi> parents: 1639 diff changeset	350 if (!box->is_readonly(box)) {
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	351 /* If we have any BODY[..] sections, \Seen flag is added for
1672 8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	352 all messages. */
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	353 for (body = bodies; body != NULL; body = body->next) {
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	354 if (!body->peek) {
1638 e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	355 ctx.update_seen = TRUE;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	356 break;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	357 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	358 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	359
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	360 if (imap_data & (IMAP_FETCH_RFC822\|IMAP_FETCH_RFC822_TEXT))
1638 e95c0e462591 API change for updating message flags. Timo Sirainen <tss@iki.fi> parents: 1534 diff changeset	361 ctx.update_seen = TRUE;
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	362 }
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	363
1672 8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	364 /* If we have only BODY[HEADER.FIELDS (...)] fetches, get them
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	365 separately rather than parsing the full header so mail storage
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	366 can try to cache them. */
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	367 ctx.body_fetch_from_cache = TRUE;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	368 buffer = buffer_create_dynamic(data_stack_pool, 64, (size_t)-1);
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	369 for (body = bodies; body != NULL; body = body->next) {
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	370 if (strncmp(body->section, "HEADER.FIELDS ", 14) != 0) {
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	371 ctx.body_fetch_from_cache = FALSE;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	372 break;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	373 }
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	374
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	375 arr = imap_fetch_get_body_fields(body->section + 14);
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	376 while (*arr != NULL) {
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	377 buffer_append(buffer, arr, sizeof(*arr));
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	378 arr++;
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	379 }
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	380 }
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	381 buffer_append(buffer, &null, sizeof(null));
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	382 wanted_headers = !ctx.body_fetch_from_cache ? NULL :
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	383 buffer_get_data(buffer, NULL);
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	384
1639 3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	385 if (ctx.update_seen) {
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	386 if (!box->lock(box, MAILBOX_LOCK_FLAGS \| MAILBOX_LOCK_READ))
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	387 return -1;
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	388 }
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	389
1672 8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	390 ctx.fetch_ctx = box->fetch_init(box, fetch_data, wanted_headers,
8920600a8cfc Index cache file rewrite. It's not finished yet and mbox support is Timo Sirainen <tss@iki.fi> parents: 1642 diff changeset	391 messageset, uidset);
1639 3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	392 if (ctx.fetch_ctx == NULL)
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	393 ctx.failed = TRUE;
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	394 else {
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	395 ctx.str = str_new(default_pool, 8192);
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	396 while ((mail = box->fetch_next(ctx.fetch_ctx)) != NULL) {
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	397 if (!fetch_mail(&ctx, mail)) {
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	398 ctx.failed = TRUE;
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	399 break;
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	400 }
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	401 }
1639 3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	402 str_free(ctx.str);
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	403
1639 3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	404 if (!box->fetch_deinit(ctx.fetch_ctx, &all_found))
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	405 ctx.failed = TRUE;
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	406 }
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	407
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	408 (void)box->lock(box, MAILBOX_LOCK_UNLOCK);
3621292209f4 Explicit lock() method for mailbox. Timo Sirainen <tss@iki.fi> parents: 1638 diff changeset	409
988 8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	410 return ctx.failed ? -1 : all_found;
8028c4dcf38f mail-storage.h interface changes, affects pretty much everything. Timo Sirainen <tss@iki.fi> parents: diff changeset	411 }

Mercurial > dovecot > original-hg > dovecot-1.2

annotate src/imap/imap-fetch.c @ 1764:fbb28b07c60f HEAD