e83a995ef34a6fed2c750f1d37707aa6481cb2da
[claws.git] / src / common / smtp.c
1 /*
2  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3  * Copyright (C) 1999-2012 Hiroyuki Yamamoto and the Claws Mail team
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 3 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, see <http://www.gnu.org/licenses/>.
17  * 
18  */
19
20 #ifdef HAVE_CONFIG_H
21 #  include "config.h"
22 #include "claws-features.h"
23 #endif
24
25 #include <glib.h>
26 #ifdef ENABLE_NLS
27 #include <glib/gi18n.h>
28 #else
29 #define _(a) (a)
30 #define N_(a) (a)
31 #endif
32 #include <stdio.h>
33 #include <string.h>
34
35 #include "smtp.h"
36 #include "md5.h"
37 #include "utils.h"
38 #include "log.h"
39
40 static void smtp_session_destroy(Session *session);
41
42 static gint smtp_auth(SMTPSession *session);
43 #ifdef USE_GNUTLS
44 static gint smtp_starttls(SMTPSession *session);
45 #endif
46 static gint smtp_auth_cram_md5(SMTPSession *session);
47 static gint smtp_auth_login(SMTPSession *session);
48 static gint smtp_auth_plain(SMTPSession *session);
49
50 static gint smtp_ehlo(SMTPSession *session);
51 static gint smtp_ehlo_recv(SMTPSession *session, const gchar *msg);
52
53 static gint smtp_helo(SMTPSession *session);
54 static gint smtp_rcpt(SMTPSession *session);
55 static gint smtp_data(SMTPSession *session);
56 static gint smtp_send_data(SMTPSession *session);
57 static gint smtp_make_ready(SMTPSession *session);
58 static gint smtp_eom(SMTPSession *session);
59
60 static gint smtp_session_recv_msg(Session *session, const gchar *msg);
61 static gint smtp_session_send_data_finished(Session *session, guint len);
62
63
64 Session *smtp_session_new(void *prefs_account)
65 {
66         SMTPSession *session;
67
68         session = g_new0(SMTPSession, 1);
69
70         session_init(SESSION(session), prefs_account, TRUE);
71
72         SESSION(session)->type             = SESSION_SMTP;
73
74         SESSION(session)->recv_msg         = smtp_session_recv_msg;
75
76         SESSION(session)->recv_data_finished = NULL;
77         SESSION(session)->send_data_finished = smtp_session_send_data_finished;
78
79         SESSION(session)->destroy          = smtp_session_destroy;
80
81         session->state                     = SMTP_READY;
82
83 #ifdef USE_GNUTLS
84         session->tls_init_done             = FALSE;
85 #endif
86
87         session->hostname                  = NULL;
88         session->user                      = NULL;
89         session->pass                      = NULL;
90
91         session->from                      = NULL;
92         session->to_list                   = NULL;
93         session->cur_to                    = NULL;
94
95         session->send_data                 = NULL;
96         session->send_data_len             = 0;
97
98         session->max_message_size          = -1;
99
100         session->avail_auth_type           = 0;
101         session->forced_auth_type          = 0;
102         session->auth_type                 = 0;
103         session->esmtp_flags               = 0;
104
105         session->error_val                 = SM_OK;
106         session->error_msg                 = NULL;
107
108         return SESSION(session);
109 }
110
111 static void smtp_session_destroy(Session *session)
112 {
113         SMTPSession *smtp_session = SMTP_SESSION(session);
114
115         g_free(smtp_session->hostname);
116         g_free(smtp_session->user);
117         g_free(smtp_session->pass);
118         g_free(smtp_session->from);
119
120         g_free(smtp_session->send_data);
121
122         g_free(smtp_session->error_msg);
123 }
124
125 gint smtp_from(SMTPSession *session)
126 {
127         gchar buf[MESSAGEBUFSIZE];
128         gchar *mail_size = NULL;
129
130         cm_return_val_if_fail(session->from != NULL, SM_ERROR);
131
132         session->state = SMTP_FROM;
133         
134         if (session->is_esmtp && (session->esmtp_flags & ESMTP_SIZE)!=0)
135                 mail_size = g_strdup_printf(" SIZE=%d", session->send_data_len);
136         else
137                 mail_size = g_strdup("");
138                 
139
140         if (strchr(session->from, '<'))
141                 g_snprintf(buf, sizeof(buf), "MAIL FROM:%s%s", session->from,
142                            mail_size);
143         else
144                 g_snprintf(buf, sizeof(buf), "MAIL FROM:<%s>%s", session->from,
145                            mail_size);
146
147         g_free(mail_size);
148
149         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, buf) < 0)
150                 return SM_ERROR;
151         log_print(LOG_PROTOCOL, "%sSMTP> %s\n", (session->is_esmtp?"E":""), buf);
152
153         return SM_OK;
154 }
155
156 static gint smtp_auth(SMTPSession *session)
157 {
158
159         cm_return_val_if_fail(session->user != NULL, SM_ERROR);
160
161         session->state = SMTP_AUTH;
162
163         if ((session->forced_auth_type == SMTPAUTH_CRAM_MD5
164              || session->forced_auth_type == 0)
165             &&
166              (session->avail_auth_type & SMTPAUTH_CRAM_MD5) != 0)
167                 smtp_auth_cram_md5(session);
168         else if ((session->forced_auth_type == SMTPAUTH_LOGIN
169                   || session->forced_auth_type == 0)
170                  &&
171                   (session->avail_auth_type & SMTPAUTH_LOGIN) != 0)
172                 smtp_auth_login(session);
173         else if ((session->forced_auth_type == SMTPAUTH_PLAIN
174                   || session->forced_auth_type == 0)
175                  &&
176                   (session->avail_auth_type & SMTPAUTH_PLAIN) != 0)
177                 smtp_auth_plain(session);
178         else if (session->forced_auth_type == 0) {
179                 log_warning(LOG_PROTOCOL, _("No SMTP AUTH method available\n"));
180                 return SM_AUTHFAIL;
181         } else {
182                 log_warning(LOG_PROTOCOL, _("Selected SMTP AUTH method not available\n"));
183                 return SM_AUTHFAIL;
184         }
185
186         return SM_OK;
187 }
188
189 static gint smtp_auth_recv(SMTPSession *session, const gchar *msg)
190 {
191         gchar buf[MESSAGEBUFSIZE], *tmp;
192
193         switch (session->auth_type) {
194         case SMTPAUTH_LOGIN:
195                 session->state = SMTP_AUTH_LOGIN_USER;
196
197                 if (!strncmp(msg, "334 ", 4)) {
198                         tmp = g_base64_encode(session->user, strlen(session->user));
199
200                         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL,
201                                          tmp) < 0) {
202                                 g_free(tmp);
203                                 return SM_ERROR;
204                         }
205                         g_free(tmp);
206                         log_print(LOG_PROTOCOL, "ESMTP> [USERID]\n");
207                 } else {
208                         /* Server rejects AUTH */
209                         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL,
210                                          "*") < 0)
211                                 return SM_ERROR;
212                         log_print(LOG_PROTOCOL, "ESMTP> *\n");
213                 }
214                 break;
215         case SMTPAUTH_CRAM_MD5:
216                 session->state = SMTP_AUTH_CRAM_MD5;
217
218                 if (!strncmp(msg, "334 ", 4)) {
219                         gchar *response;
220                         gchar *response64;
221                         gchar *challenge, *tmp;
222                         gsize challengelen;
223                         guchar hexdigest[33];
224
225                         tmp = g_base64_decode(msg + 4, &challengelen);
226                         challenge = g_strndup(tmp, challengelen);
227                         g_free(tmp);
228                         log_print(LOG_PROTOCOL, "ESMTP< [Decoded: %s]\n", challenge);
229
230                         g_snprintf(buf, sizeof(buf), "%s", session->pass);
231                         md5_hex_hmac(hexdigest, challenge, challengelen,
232                                      buf, strlen(session->pass));
233                         g_free(challenge);
234
235                         response = g_strdup_printf
236                                 ("%s %s", session->user, hexdigest);
237                         log_print(LOG_PROTOCOL, "ESMTP> [Encoded: %s]\n", response);
238
239                         response64 = g_base64_encode(response, strlen(response));
240                         g_free(response);
241
242                         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL,
243                                          response64) < 0) {
244                                 g_free(response64);
245                                 return SM_ERROR;
246                         }
247                         log_print(LOG_PROTOCOL, "ESMTP> %s\n", response64);
248                         g_free(response64);
249                 } else {
250                         /* Server rejects AUTH */
251                         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL,
252                                          "*") < 0)
253                                 return SM_ERROR;
254                         log_print(LOG_PROTOCOL, "ESMTP> *\n");
255                 }
256                 break;
257         case SMTPAUTH_DIGEST_MD5:
258         default:
259                 /* stop smtp_auth when no correct authtype */
260                 if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, "*") < 0)
261                         return SM_ERROR;
262                 log_print(LOG_PROTOCOL, "ESMTP> *\n");
263                 break;
264         }
265
266         return SM_OK;
267 }
268
269 static gint smtp_auth_login_user_recv(SMTPSession *session, const gchar *msg)
270 {
271         gchar *tmp;
272
273         session->state = SMTP_AUTH_LOGIN_PASS;
274
275         if (!strncmp(msg, "334 ", 4)) {
276                 tmp = g_base64_encode(session->pass, strlen(session->pass));
277         } else {
278                 /* Server rejects AUTH */
279                 tmp = g_strdup("*");
280         }
281
282         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, tmp) < 0) {
283                 g_free(tmp);
284                 return SM_ERROR;
285         }
286         g_free(tmp);
287
288         log_print(LOG_PROTOCOL, "ESMTP> [PASSWORD]\n");
289
290         return SM_OK;
291 }
292
293 static gint smtp_ehlo(SMTPSession *session)
294 {
295         gchar buf[MESSAGEBUFSIZE];
296
297         session->state = SMTP_EHLO;
298
299         session->avail_auth_type = 0;
300
301         g_snprintf(buf, sizeof(buf), "EHLO %s",
302                    session->hostname ? session->hostname : get_domain_name());
303         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, buf) < 0)
304                 return SM_ERROR;
305         log_print(LOG_PROTOCOL, "ESMTP> %s\n", buf);
306
307         return SM_OK;
308 }
309
310 static gint smtp_ehlo_recv(SMTPSession *session, const gchar *msg)
311 {
312         if (strncmp(msg, "250", 3) == 0) {
313                 const gchar *p = msg;
314                 p += 3;
315                 if (*p == '-' || *p == ' ') p++;
316                 if (g_ascii_strncasecmp(p, "AUTH", 4) == 0) {
317                         p += 5;
318                         if (strcasestr(p, "PLAIN"))
319                                 session->avail_auth_type |= SMTPAUTH_PLAIN;
320                         if (strcasestr(p, "LOGIN"))
321                                 session->avail_auth_type |= SMTPAUTH_LOGIN;
322                         if (strcasestr(p, "CRAM-MD5"))
323                                 session->avail_auth_type |= SMTPAUTH_CRAM_MD5;
324                         if (strcasestr(p, "DIGEST-MD5"))
325                                 session->avail_auth_type |= SMTPAUTH_DIGEST_MD5;
326                 }
327                 if (g_ascii_strncasecmp(p, "SIZE", 4) == 0) {
328                         p += 5;
329                         session->max_message_size = atoi(p);
330                         session->esmtp_flags |= ESMTP_SIZE;
331                 }
332                 if (g_ascii_strncasecmp(p, "STARTTLS", 8) == 0) {
333                         p += 9;
334                         session->avail_auth_type |= SMTPAUTH_TLS_AVAILABLE;
335                 }
336                 return SM_OK;
337         } else if ((msg[0] == '1' || msg[0] == '2' || msg[0] == '3') &&
338             (msg[3] == ' ' || msg[3] == '\0'))
339                 return SM_OK;
340         else if (msg[0] == '5' && msg[1] == '0' &&
341                  (msg[2] == '4' || msg[2] == '3' || msg[2] == '1'))
342                 return SM_ERROR;
343
344         return SM_ERROR;
345 }
346
347 #ifdef USE_GNUTLS
348 static gint smtp_starttls(SMTPSession *session)
349 {
350         session->state = SMTP_STARTTLS;
351
352         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, "STARTTLS") < 0)
353                 return SM_ERROR;
354         log_print(LOG_PROTOCOL, "ESMTP> STARTTLS\n");
355
356         return SM_OK;
357 }
358 #endif
359
360 static gint smtp_auth_cram_md5(SMTPSession *session)
361 {
362         session->state = SMTP_AUTH;
363         session->auth_type = SMTPAUTH_CRAM_MD5;
364
365         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, "AUTH CRAM-MD5") < 0)
366                 return SM_ERROR;
367         log_print(LOG_PROTOCOL, "ESMTP> AUTH CRAM-MD5\n");
368
369         return SM_OK;
370 }
371
372 static gint smtp_auth_plain(SMTPSession *session)
373 {
374         gchar buf[MESSAGEBUFSIZE], *b64buf, *out;
375         gint len;
376
377         session->state = SMTP_AUTH_PLAIN;
378         session->auth_type = SMTPAUTH_PLAIN;
379
380         memset(buf, 0, sizeof buf);
381
382         /* "\0user\0password" */
383         len = sprintf(buf, "%c%s%c%s", '\0', session->user, '\0', session->pass);
384         b64buf = g_base64_encode(buf, len);
385         out = g_strconcat("AUTH PLAIN ", b64buf, NULL);
386         g_free(b64buf);
387
388         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, out) < 0) {
389                 g_free(out);
390                 return SM_ERROR;
391         }
392
393         g_free(out);
394
395         log_print(LOG_PROTOCOL, "ESMTP> [AUTH PLAIN]\n");
396
397         return SM_OK;
398 }
399
400 static gint smtp_auth_login(SMTPSession *session)
401 {
402         session->state = SMTP_AUTH;
403         session->auth_type = SMTPAUTH_LOGIN;
404
405         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, "AUTH LOGIN") < 0)
406                 return SM_ERROR;
407         log_print(LOG_PROTOCOL, "ESMTP> AUTH LOGIN\n");
408
409         return SM_OK;
410 }
411
412 static gint smtp_helo(SMTPSession *session)
413 {
414         gchar buf[MESSAGEBUFSIZE];
415
416         session->state = SMTP_HELO;
417
418         g_snprintf(buf, sizeof(buf), "HELO %s",
419                    session->hostname ? session->hostname : get_domain_name());
420         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, buf) < 0)
421                 return SM_ERROR;
422         log_print(LOG_PROTOCOL, "SMTP> %s\n", buf);
423
424         return SM_OK;
425 }
426
427 static gint smtp_rcpt(SMTPSession *session)
428 {
429         gchar buf[MESSAGEBUFSIZE];
430         gchar *to;
431
432         cm_return_val_if_fail(session->cur_to != NULL, SM_ERROR);
433
434         session->state = SMTP_RCPT;
435
436         to = (gchar *)session->cur_to->data;
437
438         if (strchr(to, '<'))
439                 g_snprintf(buf, sizeof(buf), "RCPT TO:%s", to);
440         else
441                 g_snprintf(buf, sizeof(buf), "RCPT TO:<%s>", to);
442         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, buf) < 0)
443                 return SM_ERROR;
444         log_print(LOG_PROTOCOL, "SMTP> %s\n", buf);
445
446         session->cur_to = session->cur_to->next;
447
448         return SM_OK;
449 }
450
451 static gint smtp_data(SMTPSession *session)
452 {
453         session->state = SMTP_DATA;
454
455         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, "DATA") < 0)
456                 return SM_ERROR;
457         log_print(LOG_PROTOCOL, "SMTP> DATA\n");
458
459         return SM_OK;
460 }
461
462 static gint smtp_send_data(SMTPSession *session)
463 {
464         session->state = SMTP_SEND_DATA;
465
466         session_send_data(SESSION(session), session->send_data,
467                           session->send_data_len);
468
469         return SM_OK;
470 }
471
472 static gint smtp_make_ready(SMTPSession *session)
473 {
474         session->state = SMTP_MAIL_SENT_OK;
475
476         return SM_OK;
477 }
478
479 gint smtp_quit(SMTPSession *session)
480 {
481         session->state = SMTP_QUIT;
482
483         session_send_msg(SESSION(session), SESSION_MSG_NORMAL, "QUIT");
484         log_print(LOG_PROTOCOL, "SMTP> QUIT\n");
485
486         return SM_OK;
487 }
488
489 static gint smtp_eom(SMTPSession *session)
490 {
491         session->state = SMTP_EOM;
492
493         if (session_send_msg(SESSION(session), SESSION_MSG_NORMAL, ".") < 0)
494                 return SM_ERROR;
495         log_print(LOG_PROTOCOL, "SMTP> . (EOM)\n");
496
497         return SM_OK;
498 }
499
500 static gint smtp_session_recv_msg(Session *session, const gchar *msg)
501 {
502         SMTPSession *smtp_session = SMTP_SESSION(session);
503         gboolean cont = FALSE;
504         gint ret = 0;
505         
506         if (strlen(msg) < 4) {
507                 log_warning(LOG_PROTOCOL, _("bad SMTP response\n"));
508                 return -1;
509         }
510
511         switch (smtp_session->state) {
512         case SMTP_EHLO:
513         case SMTP_STARTTLS:
514         case SMTP_AUTH:
515         case SMTP_AUTH_PLAIN:
516         case SMTP_AUTH_LOGIN_USER:
517         case SMTP_AUTH_LOGIN_PASS:
518         case SMTP_AUTH_CRAM_MD5:
519                 log_print(LOG_PROTOCOL, "ESMTP< %s\n", msg);
520                 break;
521         default:
522                 log_print(LOG_PROTOCOL, "SMTP< %s\n", msg);
523                 break;
524         }
525
526         /* ignore all multiline responses except for EHLO */
527         if (msg[3] == '-' && smtp_session->state != SMTP_EHLO)
528                 return session_recv_msg(session);
529
530         if (msg[0] == '5' && msg[1] == '0' &&
531             (msg[2] == '4' || msg[2] == '3' || msg[2] == '1')) {
532                 log_warning(LOG_PROTOCOL, _("error occurred on SMTP session\n"));
533                 smtp_session->state = SMTP_ERROR;
534                 smtp_session->error_val = SM_ERROR;
535                 g_free(smtp_session->error_msg);
536                 smtp_session->error_msg = g_strdup(msg);
537                 return -1;
538         }
539
540         if (!strncmp(msg, "535", 3)) {
541                 log_warning(LOG_PROTOCOL, _("error occurred on authentication\n"));
542                 smtp_session->state = SMTP_ERROR;
543                 smtp_session->error_val = SM_AUTHFAIL;
544                 g_free(smtp_session->error_msg);
545                 smtp_session->error_msg = g_strdup(msg);
546                 return -1;
547         }
548
549         if (msg[0] != '1' && msg[0] != '2' && msg[0] != '3') {
550                 log_warning(LOG_PROTOCOL, _("error occurred on SMTP session\n"));
551                 smtp_session->state = SMTP_ERROR;
552                 smtp_session->error_val = SM_ERROR;
553                 g_free(smtp_session->error_msg);
554                 smtp_session->error_msg = g_strdup(msg);
555                 return -1;
556         }
557
558         if (msg[3] == '-')
559                 cont = TRUE;
560         else if (msg[3] != ' ' && msg[3] != '\0') {
561                 log_warning(LOG_PROTOCOL, _("bad SMTP response\n"));
562                 smtp_session->state = SMTP_ERROR;
563                 smtp_session->error_val = SM_UNRECOVERABLE;
564                 return -1;
565         }
566
567         switch (smtp_session->state) {
568         case SMTP_READY:
569                 if (strstr(msg, "ESMTP"))
570                         smtp_session->is_esmtp = TRUE;
571 #ifdef USE_GNUTLS
572                 if (smtp_session->user || session->ssl_type != SSL_NONE ||
573                     smtp_session->is_esmtp)
574 #else
575                 if (smtp_session->user || smtp_session->is_esmtp)
576 #endif
577                         ret = smtp_ehlo(smtp_session);
578                 else
579                         ret = smtp_helo(smtp_session);
580                 break;
581         case SMTP_HELO:
582                 ret = smtp_from(smtp_session);
583                 break;
584         case SMTP_EHLO:
585                 ret = smtp_ehlo_recv(smtp_session, msg);
586                 if (cont == TRUE)
587                         break;
588                 if (smtp_session->max_message_size > 0
589                 && smtp_session->max_message_size < 
590                    smtp_session->send_data_len) {
591                         log_warning(LOG_PROTOCOL, _("Message is too big "
592                               "(Maximum size is %s)\n"),
593                               to_human_readable(
594                                (goffset)(smtp_session->max_message_size)));
595                         smtp_session->state = SMTP_ERROR;
596                         smtp_session->error_val = SM_ERROR;
597                         return -1;
598                 }
599 #ifdef USE_GNUTLS
600                 if (session->ssl_type == SSL_STARTTLS &&
601                     smtp_session->tls_init_done == FALSE) {
602                         ret = smtp_starttls(smtp_session);
603                         break;
604                 }
605 #endif
606                 if (smtp_session->user) {
607                         if (smtp_auth(smtp_session) != SM_OK) {
608 #ifdef USE_GNUTLS
609                                 if (session->ssl_type == SSL_NONE
610                                 &&  smtp_session->tls_init_done == FALSE
611                                 &&  (smtp_session->avail_auth_type & SMTPAUTH_TLS_AVAILABLE))
612                                         ret = smtp_starttls(smtp_session);
613                                 else
614 #endif
615                                         ret = smtp_from(smtp_session);
616                         }
617                 } else
618                         ret = smtp_from(smtp_session);
619                 break;
620         case SMTP_STARTTLS:
621 #ifdef USE_GNUTLS
622                 if (session_start_tls(session) < 0) {
623                         log_warning(LOG_PROTOCOL, _("couldn't start TLS session\n"));
624                         smtp_session->state = SMTP_ERROR;
625                         smtp_session->error_val = SM_ERROR;
626                         return -1;
627                 }
628                 smtp_session->tls_init_done = TRUE;
629                 ret = smtp_ehlo(smtp_session);
630 #endif
631                 break;
632         case SMTP_AUTH:
633                 ret = smtp_auth_recv(smtp_session, msg);
634                 break;
635         case SMTP_AUTH_LOGIN_USER:
636                 ret = smtp_auth_login_user_recv(smtp_session, msg);
637                 break;
638         case SMTP_AUTH_PLAIN:
639         case SMTP_AUTH_LOGIN_PASS:
640         case SMTP_AUTH_CRAM_MD5:
641                 ret = smtp_from(smtp_session);
642                 break;
643         case SMTP_FROM:
644                 if (smtp_session->cur_to)
645                         ret = smtp_rcpt(smtp_session);
646                 break;
647         case SMTP_RCPT:
648                 if (smtp_session->cur_to)
649                         ret = smtp_rcpt(smtp_session);
650                 else
651                         ret = smtp_data(smtp_session);
652                 break;
653         case SMTP_DATA:
654                 ret = smtp_send_data(smtp_session);
655                 break;
656         case SMTP_EOM:
657                 smtp_make_ready(smtp_session);
658                 break;
659         case SMTP_QUIT:
660                 session_disconnect(session);
661                 break;
662         case SMTP_ERROR:
663         default:
664                 log_warning(LOG_PROTOCOL, _("error occurred on SMTP session\n"));
665                 smtp_session->error_val = SM_ERROR;
666                 return -1;
667         }
668
669         if (cont && ret == SM_OK)
670                 return session_recv_msg(session);
671
672         if (ret != SM_OK)
673                 smtp_session->error_val = SM_ERROR;
674
675         return ret == SM_OK ? 0 : -1;
676 }
677
678 static gint smtp_session_send_data_finished(Session *session, guint len)
679 {
680         return smtp_eom(SMTP_SESSION(session));
681 }