various fixes and simplifications wrt openssl.h

[apps/madmutt.git] / sendlib.c

/*
 * Copyright notice from original mutt:
 * Copyright (C) 1996-2002 Michael R. Elkins <me@mutt.org>
 *
 * This file is part of mutt-ng, see http://www.muttng.org/.
 * It's licensed under the GNU General Public License,
 * please see the file GPL in the top level source directory.
 */

#include <lib-lib/lib-lib.h>

#include <signal.h>

#ifdef USE_LIBESMTP
#ifdef HAVE_GNUTLS_OPENSSL_H
#define SSL_SESSION_ASN1_VERSION
#include <gnutls/openssl.h>
#endif
#include <auth-client.h>
#include <libesmtp.h>
#endif

#include <lib-lua/lib-lua.h>
#include <lib-sys/exit.h>
#include <lib-sys/mutt_signal.h>
#include <lib-mime/mime.h>
#include <lib-ui/enter.h>
#include <lib-ui/curses.h>
#include <lib-mx/mx.h>

#include "mutt.h"
#include "handler.h"
#include "crypt.h"
#include "recvattach.h"
#include "copy.h"
#include "pager.h"
#include "charset.h"
#include "mutt_idna.h"

#ifdef USE_NNTP
#include <nntp/nntp.h>
#endif

#ifdef HAVE_SYSEXITS_H
#include <sysexits.h>
#else /* Make sure EX_OK is defined <philiph@pobox.com> */
#define EX_OK 0
#endif

#ifdef USE_LIBESMTP
static char authpass[STRING] = "";

#define FAIL() \
  do { \
    ret = -1; \
    goto Done; \
  } while (0)
#define MSGFAIL(msg) \
  do { \
    mutt_error("%s", msg); \
    FAIL(); \
  } while (0)
#define LIBCFAIL(msg) \
  do { \
    mutt_error("%s: %s", msg, strerror(errno)); \
    FAIL(); \
  } while (0)
#define SMTPFAIL(msg) \
  do { \
    _send_smtp_perror(msg); \
    FAIL(); \
  } while (0)
#define extna(msg) { mutt_error (_("SMTP Extension '%s' not supported by MTA."), \
                                 msg); sleep (1); }

/*
 * _send_smtp_ensure_init
 *   Make sure the libESMTP support in mutt is initialized at some time.
 */
static void _send_smtp_ensure_init ()
{
  static int libesmtp_init = 0;

  if (!libesmtp_init) {
    if (SmtpAuthUser)
      auth_client_init ();
    libesmtp_init = 1;
  }
}

/*
 * _send_smtp_perror
 *   Prints 'msg', a colon, and then a string representation of the
 *   libesmtp errno as a mutt error.
 */
static void _send_smtp_perror (const char *msg)
{
  char buf[512];

  mutt_error ("%s: %s", msg,
              smtp_strerror (smtp_errno (), buf, sizeof (buf)));
}

/*
 * _send_smtp_add_recipients
 *   Adds every address in 'addr' as a recipient to the smtp message
 *   'message'.  Note that this does not mean that they will necessarily
 *   show up in the mail headers (e.g., when bcc'ing).  Returns 0 upon
 *   success, -1 upon failure (and prints an error message).
 *
 *   Very similar to sendlib.c::add_args
 */
static int
_send_smtp_add_recipients (smtp_message_t message, address_t * addr)
{
  int ret = 0;

  for (; addr; addr = addr->next) {
    /* weed out group mailboxes, since those are for display only */
    if (addr->mailbox && !addr->group) {
      if (!smtp_add_recipient (message, addr->mailbox))
        SMTPFAIL ("smtp_add_recipient");
    }
  }

Done:
  return ret;
}

static int
_send_smtp_auth_interact (auth_client_request_t request,
                              char **result, int fields,
                              void *arg __attribute__ ((unused)))
{
  int i;

  for (i = 0; i < fields; i++) {
    if (request[i].flags & AUTH_USER) {
      result[i] = SmtpAuthUser;
    } else if (request[i].flags & AUTH_PASS) {
      if (SmtpAuthPass) {
        result[i] = SmtpAuthPass;
      } else {
        if (authpass[0] == '\0') {
          char prompt[STRING];

          snprintf(prompt, sizeof(prompt), "%s%s: ", request[i].prompt,
                   request[i].flags & AUTH_CLEARTEXT ? " (not encrypted)" :
                   "");
          mutt_get_field_unbuffered(prompt, authpass, sizeof(authpass),
                                    M_PASS);
        }
        result[i] = authpass;
      }
    }
  }

  return 1;
}

#define BUFLEN 8192

static const char *
_send_smtp_messagefp_cb(void **buf, int *len, void *arg)
{
  int octets;

  if (*buf == NULL)
    *buf = xmalloc(BUFLEN);

  if (len == NULL) {
    rewind ((FILE *) arg);
    return NULL;
  }

  if (fgets (*buf, BUFLEN - 2, (FILE *) arg) == NULL) {
    octets = 0;
  }
  else {
    char *p = strchr (*buf, '\0');

    if (p[-1] == '\n' && p[-2] != '\r') {
      m_strcpy(p - 1, (char *) *buf + BUFLEN - p + 1, "\r\n");
      p++;
    }
    octets = p - (char *) *buf;
  }

  *len = octets;
  return *buf;
}

static void event_cb (smtp_session_t session __attribute__ ((unused)),
                      int event_no, void *arg,...)
{ 
  va_list alist;
  int *ok;

  va_start(alist, arg);
  switch(event_no) {
  case SMTP_EV_CONNECT:
  case SMTP_EV_MAILSTATUS:
  case SMTP_EV_RCPTSTATUS:
  case SMTP_EV_MESSAGEDATA:
  case SMTP_EV_MESSAGESENT:
  case SMTP_EV_DISCONNECT: break;
  case SMTP_EV_WEAK_CIPHER: {
    int bits;
    bits = va_arg(alist, long); ok = va_arg(alist, int*);
    mutt_message (_("SMTP_EV_WEAK_CIPHER, bits=%d - accepted."), bits);
    sleep(1);
    *ok = 1; break;
  } 
  case SMTP_EV_STARTTLS_OK:
    mutt_message (_("Using TLS"));
    sleep(1);
    break;
  case SMTP_EV_INVALID_PEER_CERTIFICATE: {
    long vfy_result;
    vfy_result = va_arg(alist, long); ok = va_arg(alist, int*);
    mutt_error (_("Error verifying certificate. Error Code: %lu"), vfy_result);
    sleep(2);
    *ok = 1;
    break;
  } 
  case SMTP_EV_NO_PEER_CERTIFICATE: {
    ok = va_arg(alist, int*); 
    mutt_message (_("SMTP_EV_NO_PEER_CERTIFICATE - accepted."));
    sleep(1);
    *ok = 1; break;
  }
  case SMTP_EV_WRONG_PEER_CERTIFICATE: {
    ok = va_arg(alist, int*);
    mutt_message (_("SMTP_EV_WRONG_PEER_CERTIFICATE - accepted."));
    sleep(1);
    *ok = 1; break;
  }
  case SMTP_EV_NO_CLIENT_CERTIFICATE: {
    ok = va_arg(alist, int*);
    mutt_message (_("SMTP_EV_NO_CLIENT_CERTIFICATE - accepted."));
    sleep(1);
    *ok = 1; break;
  }
  case SMTP_EV_EXTNA_DSN:
    extna ("DSN");
    break;
  case SMTP_EV_EXTNA_STARTTLS:
    extna ("StartTLS");
    break;
  case SMTP_EV_EXTNA_8BITMIME:
    extna ("8BITMIME");
    break;
  default:
    mutt_message(_("Got unhandled event ID = %d - ignored."), event_no);
    sleep(1);
  }
  va_end(alist);
}

static void do_dsn_notify (smtp_message_t message, const char* from) {
  int flags = Notify_NOTSET;
  smtp_recipient_t self = NULL;

  if (m_strisempty(MTransport.dsn_notify) || !message || m_strisempty(from) || 
      strstr (MTransport.dsn_notify, "never") != NULL)
    return;

  if (strstr (MTransport.dsn_notify, "failure") != NULL)
    flags |= Notify_FAILURE;
  if (strstr (MTransport.dsn_notify, "delay") != NULL)
    flags |= Notify_DELAY;
  if (strstr (MTransport.dsn_notify, "success") != NULL)
    flags |= Notify_SUCCESS;

  if (flags != Notify_NOTSET) {
    if (!(self = smtp_add_recipient (message, from)))
      return;
    smtp_dsn_set_notify (self, flags);
  }
}

static void do_dsn_ret (smtp_message_t message) {
  if (m_strisempty(MTransport.dsn_return) || !message)
    return;
  if (ascii_strncasecmp (MTransport.dsn_return, "hdrs", 4) == 0)
    smtp_dsn_set_ret (message, Ret_HDRS);
  else if (ascii_strncasecmp (MTransport.dsn_return, "full", 4) == 0)
    smtp_dsn_set_ret (message, Ret_FULL);
}

int send_smtp_check_usetls (const char* option, unsigned long p,
                                char* errbuf, ssize_t errlen) {
  char* val = (char*) p;
  if (m_strisempty(val))
    return (1);
  if (m_strncmp(val, "enabled", 7) != 0 &&
      m_strncmp(val, "required", 8) != 0) {
    if (errbuf)
      snprintf (errbuf, errlen, _("'%s' is invalid for %s"), val, option);
    return (0);
  }
  return (1);
}

/*
 * send_smtp_invoke
 *   Sends a mail message to the provided recipients using libesmtp.
 *   Returns 0 upon success, -1 upon failure (and prints an error
 *   message).
 */
static int
send_smtp_invoke(address_t *from, address_t *to, address_t *cc,
                 address_t *bcc, const char *msg, int eightbit)
{
  int ret = 0;
  smtp_session_t session;
  smtp_message_t message;
  char *hostportstr = NULL;
  size_t hostportlen;
  FILE *fp = NULL;
  auth_context_t authctx = NULL;
  const smtp_status_t *status;
  char* envfrom = from->mailbox;

  _send_smtp_ensure_init ();

  if ((session = smtp_create_session ()) == NULL)
    SMTPFAIL ("smtp_create_session");

#ifdef HAVE_GNUTLS_OPENSSL_H
  if (!ascii_strncasecmp("enabled", SmtpUseTLS, 7)) {
    smtp_starttls_enable(session, Starttls_ENABLED);
  } else if (!ascii_strncasecmp("required", SmtpUseTLS, 8)) {
    smtp_starttls_enable(session, Starttls_REQUIRED);
  }
#endif

  /* Create hostname:port string and tell libesmtp */
  /* len = SmtpHost len + colon + max port (65536 => 5 chars) + terminator */
  hostportlen = m_strlen(SmtpHost) + 7;
  hostportstr = p_new(char, hostportlen);
  snprintf (hostportstr, hostportlen, "%s:%d", SmtpHost, SmtpPort);
  if (!smtp_set_server (session, hostportstr))
    SMTPFAIL ("smtp_set_server");

  if (SmtpAuthUser) {
    if ((authctx = auth_create_context ()) == NULL)
      MSGFAIL ("auth_create_context failed");
    auth_set_mechanism_flags (authctx, AUTH_PLUGIN_PLAIN, 0);
    auth_set_interact_cb (authctx, _send_smtp_auth_interact, NULL);

    if (!smtp_auth_set_context (session, authctx))
      SMTPFAIL ("smtp_auth_set_context");
  }

#ifdef HAVE_GNUTLS_OPENSSL_H
  smtp_starttls_set_ctx (session, NULL);
#endif
  smtp_set_eventcb (session, event_cb, NULL);

  if ((message = smtp_add_message (session)) == NULL)
    SMTPFAIL ("smtp_add_message");

  /*  Initialize envelope sender */
  if (MTransport.use_envelope_from && MTransport.envelope_from_address)
    envfrom = MTransport.envelope_from_address->mailbox;
  if (!smtp_set_reverse_path (message, envfrom))
    SMTPFAIL ("smtp_set_reverse_path");

  /* set up DSN for message */
  do_dsn_notify (message, envfrom);
  do_dsn_ret (message);

  /* set up 8bitmime flag */
  if (eightbit && MTransport.use_8bitmime)
    smtp_8bitmime_set_body (message, E8bitmime_8BITMIME);

  if ((fp = fopen (msg, "r")) == NULL)
    LIBCFAIL ("fopen");
  if (!smtp_set_messagecb (message, _send_smtp_messagefp_cb, fp))
    SMTPFAIL ("smtp_set_messagecb");
  if (_send_smtp_add_recipients (message, to))
    FAIL ();
  if (_send_smtp_add_recipients (message, cc))
    FAIL ();
  if (_send_smtp_add_recipients (message, bcc))
    FAIL ();
  if (!smtp_start_session (session))
    SMTPFAIL ("smtp_start_session");

  status = smtp_message_transfer_status (message);
  if (status->code < 200 || status->code > 299) {
    char buf[256];

    snprintf (buf, sizeof (buf), "SMTP error while sending: %d %s",
              status->code, status->text);
    MSGFAIL (buf);
  }

Done:
  m_fclose(&fp);
  if (hostportstr != NULL)
    p_delete(&hostportstr);
  if (session != NULL)
    smtp_destroy_session (session);
  if (authctx != NULL)
    auth_destroy_context (authctx);

  /* Forget user-entered SMTP AUTH password if send fails */
  if (ret != 0)
    authpass[0] = '\0';

  return ret;
}
#endif

static void transform_to_7bit (BODY * a, FILE * fpin);

static void encode_quoted (fgetconv_t * fc, FILE * fout, int istext)
{
  int c, linelen = 0;
  char line[77], savechar;

  while ((c = fgetconv (fc)) != EOF) {
    /* Wrap the line if needed. */
    if (linelen == 76 && ((istext && c != '\n') || !istext)) {
      /* If the last character is "quoted", then be sure to move all three
       * characters to the next line.  Otherwise, just move the last
       * character...
       */
      if (line[linelen - 3] == '=') {
        line[linelen - 3] = 0;
        fputs (line, fout);
        fputs ("=\n", fout);
        line[linelen] = 0;
        line[0] = '=';
        line[1] = line[linelen - 2];
        line[2] = line[linelen - 1];
        linelen = 3;
      }
      else {
        savechar = line[linelen - 1];
        line[linelen - 1] = '=';
        line[linelen] = 0;
        fputs (line, fout);
        fputc ('\n', fout);
        line[0] = savechar;
        linelen = 1;
      }
    }

    /* Escape lines that begin with/only contain "the message separator". */
    if (linelen == 4 && !m_strncmp("From", line, 4)) {
      m_strcpy(line, sizeof(line), "=46rom");
      linelen = 6;
    }
    else if (linelen == 4 && !m_strncmp("from", line, 4)) {
      m_strcpy(line, sizeof(line), "=66rom");
      linelen = 6;
    }
    else if (linelen == 1 && line[0] == '.') {
      m_strcpy(line, sizeof(line), "=2E");
      linelen = 3;
    }


    if (c == '\n' && istext) {
      /* Check to make sure there is no trailing space on this line. */
      if (linelen > 0
          && (line[linelen - 1] == ' ' || line[linelen - 1] == '\t')) {
        if (linelen < 74) {
          sprintf (line + linelen - 1, "=%2.2X",
                   (unsigned char) line[linelen - 1]);
          fputs (line, fout);
        }
        else {
          savechar = line[linelen - 1];

          line[linelen - 1] = '=';
          line[linelen] = 0;
          fputs (line, fout);
          fprintf (fout, "\n=%2.2X", (unsigned char) savechar);
        }
      }
      else {
        line[linelen] = 0;
        fputs (line, fout);
      }
      fputc ('\n', fout);
      linelen = 0;
    }
    else if (c != 9 && (c < 32 || c > 126 || c == '=')) {
      /* Check to make sure there is enough room for the quoted character.
       * If not, wrap to the next line.
       */
      if (linelen > 73) {
        line[linelen++] = '=';
        line[linelen] = 0;
        fputs (line, fout);
        fputc ('\n', fout);
        linelen = 0;
      }
      sprintf (line + linelen, "=%2.2X", (unsigned char) c);
      linelen += 3;
    }
    else {
      /* Don't worry about wrapping the line here.  That will happen during
       * the next iteration when I'll also know what the next character is.
       */
      line[linelen++] = c;
    }
  }

  /* Take care of anything left in the buffer */
  if (linelen > 0) {
    if (line[linelen - 1] == ' ' || line[linelen - 1] == '\t') {
      /* take care of trailing whitespace */
      if (linelen < 74)
        sprintf (line + linelen - 1, "=%2.2X",
                 (unsigned char) line[linelen - 1]);
      else {
        savechar = line[linelen - 1];
        line[linelen - 1] = '=';
        line[linelen] = 0;
        fputs (line, fout);
        fputc ('\n', fout);
        sprintf (line, "=%2.2X", (unsigned char) savechar);
      }
    }
    else
      line[linelen] = 0;
    fputs (line, fout);
  }
}

static char b64_buffer[3];
static short b64_num;
static short b64_linelen;

static void b64_flush (FILE * fout)
{
  short i;

  if (!b64_num)
    return;

  if (b64_linelen >= 72) {
    fputc ('\n', fout);
    b64_linelen = 0;
  }

  for (i = b64_num; i < 3; i++)
    b64_buffer[i] = '\0';

  fputc(__m_b64chars[(b64_buffer[0] >> 2) & 0x3f], fout);
  b64_linelen++;
  fputc(__m_b64chars
         [((b64_buffer[0] & 0x3) << 4) | ((b64_buffer[1] >> 4) & 0xf)], fout);
  b64_linelen++;

  if (b64_num > 1) {
    fputc (__m_b64chars
           [((b64_buffer[1] & 0xf) << 2) | ((b64_buffer[2] >> 6) & 0x3)],
           fout);
    b64_linelen++;
    if (b64_num > 2) {
      fputc (__m_b64chars[b64_buffer[2] & 0x3f], fout);
      b64_linelen++;
    }
  }

  while (b64_linelen % 4) {
    fputc ('=', fout);
    b64_linelen++;
  }

  b64_num = 0;
}


static void b64_putc (char c, FILE * fout)
{
  if (b64_num == 3)
    b64_flush (fout);

  b64_buffer[b64_num++] = c;
}


static void encode_base64 (fgetconv_t * fc, FILE * fout, int istext)
{
  int ch, ch1 = EOF;

  b64_num = b64_linelen = 0;

  while ((ch = fgetconv (fc)) != EOF) {
    if (istext && ch == '\n' && ch1 != '\r')
      b64_putc ('\r', fout);
    b64_putc (ch, fout);
    ch1 = ch;
  }
  b64_flush (fout);
  fputc ('\n', fout);
}

static void encode_8bit (fgetconv_t * fc, FILE * fout,
                         int istext __attribute__ ((unused)))
{
  int ch;

  while ((ch = fgetconv (fc)) != EOF)
    fputc (ch, fout);
}


int mutt_write_mime_header (BODY * a, FILE * f)
{
  char buffer[STRING];
  char *t;
  char *fn;
  int len;
  int tmplen;
  int encode;

  fprintf (f, "Content-Type: %s/%s", TYPE (a), a->subtype);

  if (a->parameter) {
    parameter_t *p;

    len = 25 + m_strlen(a->subtype);        /* approximate len. of content-type */

    for (p = a->parameter; p; p = p->next) {
      char *tmp;

      if (!p->value)
        continue;

      fputc (';', f);

      buffer[0] = 0;
      tmp = m_strdup(p->value);
      encode = rfc2231_encode_string (&tmp);
      rfc822_strcpy(buffer, sizeof(buffer), tmp, MimeSpecials);

      /* Dirty hack to make messages readable by Outlook Express 
       * for the Mac: force quotes around the boundary parameter
       * even when they aren't needed.
       */

      if (!ascii_strcasecmp (p->attribute, "boundary")
          && !strcmp (buffer, tmp))
        snprintf (buffer, sizeof (buffer), "\"%s\"", tmp);

      p_delete(&tmp);

      tmplen = m_strlen(buffer) + m_strlen(p->attribute) + 1;

      if (len + tmplen + 2 > 76) {
        fputs ("\n\t", f);
        len = tmplen + 8;
      }
      else {
        fputc (' ', f);
        len += tmplen + 1;
      }

      fprintf (f, "%s%s=%s", p->attribute, encode ? "*" : "", buffer);

    }
  }

  fputc ('\n', f);

  if (a->description)
    fprintf (f, "Content-Description: %s\n", a->description);

#define DISPOSITION(X) X==DISPATTACH?"attachment":"inline"
  fprintf (f, "Content-Disposition: %s", DISPOSITION (a->disposition));

  if (a->use_disp) {
    if (!(fn = a->d_filename))
      fn = a->filename;

    if (fn) {
      char *tmp;

      /* Strip off the leading path... */
      if ((t = strrchr (fn, '/')))
        t++;
      else
        t = fn;

      buffer[0] = 0;
      tmp = m_strdup(t);
      encode = rfc2231_encode_string (&tmp);
      rfc822_strcpy(buffer, sizeof(buffer), tmp, MimeSpecials);
      p_delete(&tmp);
      fprintf (f, "; filename%s=%s", encode ? "*" : "", buffer);
    }
  }

  fputc ('\n', f);

  if (a->encoding != ENC7BIT)
    fprintf (f, "Content-Transfer-Encoding: %s\n", ENCODING (a->encoding));

  /* Do NOT add the terminator here!!! */
  return (ferror (f) ? -1 : 0);
}

int mutt_write_mime_body (BODY * a, FILE * f)
{
  const char *p;
  char boundary[STRING];
  char send_charset[STRING];
  FILE *fpin;
  BODY *t;
  fgetconv_t *fc;

  if (a->type == TYPEMULTIPART) {
    /* First, find the boundary to use */
    if (!(p = parameter_getval(a->parameter, "boundary"))) {
      mutt_error _("No boundary parameter found! [report this error]");

      return (-1);
    }
    m_strcpy(boundary, sizeof(boundary), p);

    for (t = a->parts; t; t = t->next) {
      fprintf (f, "\n--%s\n", boundary);
      if (mutt_write_mime_header (t, f) == -1)
        return -1;
      fputc ('\n', f);
      if (mutt_write_mime_body (t, f) == -1)
        return -1;
    }
    fprintf (f, "\n--%s--\n", boundary);
    return (ferror (f) ? -1 : 0);
  }

  /* This is pretty gross, but it's the best solution for now... */
  if (a->type == TYPEAPPLICATION && !m_strcmp(a->subtype, "pgp-encrypted")) {
    fputs ("Version: 1\n", f);
    return 0;
  }

  if ((fpin = fopen (a->filename, "r")) == NULL) {
    mutt_error (_("%s no longer exists!"), a->filename);
    return -1;
  }

  if (a->type == TYPETEXT && (!a->noconv))
    fc = fgetconv_open (fpin, a->file_charset,
                        mutt_get_body_charset (send_charset,
                                               sizeof (send_charset), a), 0);
  else
    fc = fgetconv_open (fpin, 0, 0, 0);

#define write_as_text_part(a)  (mutt_is_text_part(a) || mutt_is_application_pgp(a))
  if (a->encoding == ENCQUOTEDPRINTABLE)
    encode_quoted (fc, f, write_as_text_part (a));
  else if (a->encoding == ENCBASE64)
    encode_base64 (fc, f, write_as_text_part (a));
  else if (a->type == TYPETEXT && (!a->noconv))
    encode_8bit (fc, f, write_as_text_part (a));
  else
    mutt_copy_stream (fpin, f);
#undef write_as_text_part

  fgetconv_close (&fc);
  m_fclose(&fpin);

  return (ferror (f) ? -1 : 0);
}

typedef struct {
  int from;
  int whitespace;
  int dot;
  int linelen;
  int was_cr;
} CONTENT_STATE;


static void update_content_info (CONTENT * info, CONTENT_STATE * s, char *d,
                                 ssize_t dlen)
{
  int from = s->from;
  int whitespace = s->whitespace;
  int dot = s->dot;
  int linelen = s->linelen;
  int was_cr = s->was_cr;

  if (!d) {                     /* This signals EOF */
    if (was_cr)
      info->binary = 1;
    if (linelen > info->linemax)
      info->linemax = linelen;

    return;
  }

  for (; dlen; d++, dlen--) {
    char ch = *d;

    if (was_cr) {
      was_cr = 0;
      if (ch != '\n') {
        info->binary = 1;
      }
      else {
        if (whitespace)
          info->space = 1;
        if (dot)
          info->dot = 1;
        if (linelen > info->linemax)
          info->linemax = linelen;
        whitespace = 0;
        dot = 0;
        linelen = 0;
        continue;
      }
    }

    linelen++;
    if (ch == '\n') {
      info->crlf++;
      if (whitespace)
        info->space = 1;
      if (dot)
        info->dot = 1;
      if (linelen > info->linemax)
        info->linemax = linelen;
      whitespace = 0;
      linelen = 0;
      dot = 0;
    }
    else if (ch == '\r') {
      info->crlf++;
      info->cr = 1;
      was_cr = 1;
      continue;
    }
    else if (ch & 0x80)
      info->hibin++;
    else if (ch == '\t' || ch == '\f') {
      info->ascii++;
      whitespace++;
    }
    else if (ch < 32 || ch == 127)
      info->lobin++;
    else {
      if (linelen == 1) {
        if ((ch == 'F') || (ch == 'f'))
          from = 1;
        else
          from = 0;
        if (ch == '.')
          dot = 1;
        else
          dot = 0;
      }
      else if (from) {
        if (linelen == 2 && ch != 'r')
          from = 0;
        else if (linelen == 3 && ch != 'o')
          from = 0;
        else if (linelen == 4) {
          if (ch == 'm')
            info->from = 1;
          from = 0;
        }
      }
      if (ch == ' ')
        whitespace++;
      info->ascii++;
    }

    if (linelen > 1)
      dot = 0;
    if (ch != ' ' && ch != '\t')
      whitespace = 0;
  }

  s->from = from;
  s->whitespace = whitespace;
  s->dot = dot;
  s->linelen = linelen;
  s->was_cr = was_cr;

}

/*
 * Find the best charset conversion of the file from fromcode into one
 * of the tocodes. If successful, set *tocode and CONTENT *info and
 * return the number of characters converted inexactly. If no
 * conversion was possible, return -1.
 *
 * We convert via UTF-8 in order to avoid the condition -1(EINVAL),
 * which would otherwise prevent us from knowing the number of inexact
 * conversions. Where the candidate target charset is UTF-8 we avoid
 * doing the second conversion because iconv_open("UTF-8", "UTF-8")
 * fails with some libraries.
 *
 * We assume that the output from iconv is never more than 4 times as
 * long as the input for any pair of charsets we might be interested
 * in.
 */
static ssize_t convert_file_to (FILE * file, const char *fromcode,
                               int ncodes, const char **tocodes,
                               int *tocode, CONTENT * info)
{
  iconv_t cd1, *cd;
  char bufi[256], bufu[512], bufo[4 * sizeof (bufi)];
  const char *ib, *ub;
  char *ob;
  ssize_t ibl, obl, ubl, ubl1, n, ret;
  int i;
  CONTENT *infos;
  CONTENT_STATE *states;
  ssize_t *score;

  cd1 = mutt_iconv_open ("UTF-8", fromcode, 0);
  if (cd1 == MUTT_ICONV_ERROR)
    return -1;

  cd = p_new(iconv_t, ncodes);
  score = p_new(ssize_t, ncodes);
  states = p_new(CONTENT_STATE, ncodes);
  infos = p_new(CONTENT, ncodes);

  for (i = 0; i < ncodes; i++)
    if (ascii_strcasecmp (tocodes[i], "UTF-8"))
      cd[i] = mutt_iconv_open (tocodes[i], "UTF-8", 0);
    else
      /* Special case for conversion to UTF-8 */
      cd[i] = MUTT_ICONV_ERROR, score[i] = -1;

  rewind (file);
  ibl = 0;
  for (;;) {

    /* Try to fill input buffer */
    n = fread (bufi + ibl, 1, sizeof (bufi) - ibl, file);
    ibl += n;

    /* Convert to UTF-8 */
    ib = bufi;
    ob = bufu, obl = sizeof (bufu);
    n = my_iconv(cd1, ibl ? &ib : 0, &ibl, &ob, &obl);
    if (n == -1 && ((errno != EINVAL && errno != E2BIG) || ib == bufi)) {
      ret = -1;
      break;
    }
    ubl1 = ob - bufu;

    /* Convert from UTF-8 */
    for (i = 0; i < ncodes; i++)
      if (cd[i] != MUTT_ICONV_ERROR && score[i] != -1) {
        ub = bufu, ubl = ubl1;
        ob = bufo, obl = sizeof (bufo);
        n = my_iconv(cd[i], (ibl || ubl) ? &ub : 0, &ubl, &ob, &obl);
        if (n == -1) {
          score[i] = -1;
        }
        else {
          score[i] += n;
          update_content_info (&infos[i], &states[i], bufo, ob - bufo);
        }
      }
      else if (cd[i] == MUTT_ICONV_ERROR && score[i] == -1)
        /* Special case for conversion to UTF-8 */
        update_content_info (&infos[i], &states[i], bufu, ubl1);

    if (ibl)
      /* Save unused input */
      memmove (bufi, ib, ibl);
    else if (!ubl1 && ib < bufi + sizeof (bufi)) {
      ret = 0;
      break;
    }
  }

  if (!ret) {
    /* Find best score */
    ret = -1;
    for (i = 0; i < ncodes; i++) {
      if (cd[i] == MUTT_ICONV_ERROR && score[i] == -1) {
        /* Special case for conversion to UTF-8 */
        *tocode = i;
        ret = 0;
        break;
      }
      else if (cd[i] == MUTT_ICONV_ERROR || score[i] == -1)
        continue;
      else if (ret == -1 || score[i] < ret) {
        *tocode = i;
        ret = score[i];
        if (!ret)
          break;
      }
    }
    if (ret != -1) {
      memcpy (info, &infos[*tocode], sizeof (CONTENT));
      update_content_info (info, &states[*tocode], 0, 0);       /* EOF */
    }
  }

  for (i = 0; i < ncodes; i++)
    if (cd[i] != MUTT_ICONV_ERROR)
      iconv_close (cd[i]);

  iconv_close (cd1);
  p_delete(&cd);
  p_delete(&infos);
  p_delete(&score);
  p_delete(&states);

  return ret;
}

/*
 * Find the first of the fromcodes that gives a valid conversion and
 * the best charset conversion of the file into one of the tocodes. If
 * successful, set *fromcode and *tocode to dynamically allocated
 * strings, set CONTENT *info, and return the number of characters
 * converted inexactly. If no conversion was possible, return -1.
 *
 * Both fromcodes and tocodes may be colon-separated lists of charsets.
 * However, if fromcode is zero then fromcodes is assumed to be the
 * name of a single charset even if it contains a colon.
 */
static ssize_t convert_file_from_to (FILE * file,
                                    const char *fromcodes,
                                    const char *tocodes, char **fromcode,
                                    char **tocode, CONTENT * info)
{
  char *fcode;
  char **tcode;
  const char *c, *c1;
  ssize_t ret;
  int ncodes, i, cn;

  /* Count the tocodes */
  ncodes = 0;
  for (c = tocodes; c; c = c1 ? c1 + 1 : 0) {
    if ((c1 = strchr (c, ':')) == c)
      continue;
    ++ncodes;
  }

  /* Copy them */
  tcode = p_new(char *, ncodes);
  for (c = tocodes, i = 0; c; c = c1 ? c1 + 1 : 0, i++) {
    if ((c1 = strchr (c, ':')) == c)
      continue;
    tcode[i] = m_substrdup(c, c1);
  }

  ret = -1;
  if (fromcode) {
    /* Try each fromcode in turn */
    for (c = fromcodes; c; c = c1 ? c1 + 1 : 0) {
      if ((c1 = strchr (c, ':')) == c)
        continue;
      fcode = m_substrdup(c, c1);

      ret = convert_file_to (file, fcode, ncodes, (const char **) tcode,
                             &cn, info);
      if (ret != -1) {
        *fromcode = fcode;
        *tocode = tcode[cn];
        tcode[cn] = 0;
        break;
      }
      p_delete(&fcode);
    }
  }
  else {
    /* There is only one fromcode */
    ret = convert_file_to (file, fromcodes, ncodes, (const char **) tcode,
                           &cn, info);
    if (ret != -1) {
      *tocode = tcode[cn];
      tcode[cn] = 0;
    }
  }

  /* Free memory */
  for (i = 0; i < ncodes; i++)
    p_delete(&tcode[i]);

  p_delete(tcode);

  return ret;
}

/* 
 * Analyze the contents of a file to determine which MIME encoding to use.
 * Also set the body charset, sometimes, or not.
 */
CONTENT *mutt_get_content_info (const char *fname, BODY * b)
{
  CONTENT *info;
  CONTENT_STATE state;
  FILE *fp = NULL;
  char *fromcode = NULL;
  char *tocode = NULL;
  char buffer[100];
  char chsbuf[STRING];
  ssize_t r;

  struct stat sb;

  if (b && !fname)
    fname = b->filename;

  if (stat (fname, &sb) == -1) {
    mutt_error (_("Can't stat %s: %s"), fname, strerror (errno));
    return NULL;
  }

  if (!S_ISREG (sb.st_mode)) {
    mutt_error (_("%s isn't a regular file."), fname);
    return NULL;
  }

  if ((fp = fopen (fname, "r")) == NULL) {
    return (NULL);
  }

  info = p_new(CONTENT, 1);
  p_clear(&state, 1);

  if (b != NULL && b->type == TYPETEXT && (!b->noconv && !b->force_charset)) {
    const char *chs = parameter_getval(b->parameter, "charset");
    char *fchs = b->use_disp && !m_strisempty(mod_cset.file_charset)
        ? FileCharset : mod_cset.charset;
    if (mod_cset.charset && (chs || mod_cset.send_charset) &&
        convert_file_from_to (fp, fchs, chs ? chs : mod_cset.send_charset,
                              &fromcode, &tocode, info) != -1) {
      if (!chs) {
        charset_canonicalize (chsbuf, sizeof (chsbuf), tocode);
        parameter_setval(&b->parameter, "charset", chsbuf);
      }
      b->file_charset = fromcode;
      p_delete(&tocode);
      m_fclose(&fp);
      return info;
    }
  }

  rewind (fp);
  while ((r = fread (buffer, 1, sizeof (buffer), fp)))
    update_content_info (info, &state, buffer, r);
  update_content_info (info, &state, 0, 0);

  m_fclose(&fp);

  if (b != NULL && b->type == TYPETEXT && (!b->noconv && !b->force_charset))
    parameter_setval(&b->parameter, "charset",
                     (!info->hibin ? "us-ascii"
                      : mod_cset.charset && !charset_is_us_ascii(mod_cset.charset)
                                         ? mod_cset.charset : "unknown-8bit"));

  return info;
}

/* Given a file with path ``s'', see if there is a registered MIME type.
 * returns the major MIME type, and copies the subtype to ``d''.  First look
 * for ~/.mime.types, then look in a system mime.types if we can find one.
 * The longest match is used so that we can match `ps.gz' when `gz' also
 * exists.
 */

int mutt_lookup_mime_type (BODY * att, const char *path)
{
  FILE *f;
  char *p, *q, *ct;
  char buf[LONG_STRING];
  char subtype[STRING], xtype[STRING];
  int count;
  int szf, sze, cur_sze;
  int type;

  *subtype = '\0';
  *xtype = '\0';
  type = TYPEOTHER;
  cur_sze = 0;

  szf = m_strlen(path);

  for (count = 0; count < 4; count++) {
    /*
     * can't use strtok() because we use it in an inner loop below, so use
     * a switch statement here instead.
     */
    switch (count) {
    case 0:
      snprintf(buf, sizeof (buf), "%s/.mime.types", NONULL(mod_core.homedir));
      break;
    case 1:
      m_strcpy(buf, sizeof(buf), SYSCONFDIR "/madmutt-mime.types");
      break;
    case 2:
      m_strcpy(buf, sizeof(buf), PKGDATADIR "/mime.types");
      break;
    case 3:
      m_strcpy(buf, sizeof(buf), SYSCONFDIR "/mime.types");
      break;
    default:
      goto bye;                 /* shouldn't happen */
    }

    if ((f = fopen (buf, "r")) != NULL) {
      while (fgets (buf, sizeof (buf) - 1, f) != NULL) {
        /* weed out any comments */
        if ((p = strchr (buf, '#')))
          *p = 0;

        /* remove any leading space. */
        ct = vskipspaces(buf);

        /* position on the next field in this line */
        if ((p = strpbrk (ct, " \t")) == NULL)
          continue;
        *p++ = 0;
        p = vskipspaces(p);

        /* cycle through the file extensions */
        while ((p = strtok (p, " \t\n"))) {
          sze = m_strlen(p);
          if ((sze > cur_sze) && (szf >= sze) &&
              (m_strcasecmp(path + szf - sze, p) == 0
               || ascii_strcasecmp (path + szf - sze, p) == 0)
              && (szf == sze || path[szf - sze - 1] == '.'))
          {
            /* get the content-type */

            if ((p = strchr (ct, '/')) == NULL) {
              /* malformed line, just skip it. */
              break;
            }
            *p++ = 0;

            for (q = p; *q && !ISSPACE (*q); q++);

            m_strncpy(subtype, sizeof(subtype), p, q - p);

            if ((type = mutt_check_mime_type (ct)) == TYPEOTHER)
              m_strcpy(xtype, sizeof(xtype), ct);

            cur_sze = sze;
          }
          p = NULL;
        }
      }
      m_fclose(&f);
    }
  }

bye:

  if (type != TYPEOTHER || *xtype != '\0') {
    att->type = type;
    m_strreplace(&att->subtype, subtype);
    m_strreplace(&att->xtype, xtype);
  }

  return (type);
}

void mutt_message_to_7bit (BODY * a, FILE * fp)
{
  char temp[_POSIX_PATH_MAX];
  char *line = NULL;
  FILE *fpin = NULL;
  FILE *fpout = NULL;
  struct stat sb;

  if (!a->filename && fp)
    fpin = fp;
  else if (!a->filename || !(fpin = fopen (a->filename, "r"))) {
    mutt_error (_("Could not open %s"), a->filename ? a->filename : "(null)");
    return;
  }
  else {
    a->offset = 0;
    if (stat (a->filename, &sb) == -1) {
      mutt_perror ("stat");
      m_fclose(&fpin);
    }
    a->length = sb.st_size;
  }

  fpout = m_tempfile(temp, sizeof(temp), NONULL(mod_core.tmpdir), NULL);
  if (!fpout) {
    mutt_error(_("Could not create temporary file"));
    goto cleanup;
  }

  fseeko (fpin, a->offset, 0);
  a->parts = mutt_parse_messageRFC822 (fpin, a);

  transform_to_7bit (a->parts, fpin);

  mutt_copy_hdr (fpin, fpout, a->offset, a->offset + a->length,
                 CH_MIME | CH_NONEWLINE | CH_XMIT, NULL);

  fputs ("MIME-Version: 1.0\n", fpout);
  mutt_write_mime_header (a->parts, fpout);
  fputc ('\n', fpout);
  mutt_write_mime_body (a->parts, fpout);

cleanup:
  p_delete(&line);

  if (fpin && !fp)
    m_fclose(&fpin);
  if (fpout)
    m_fclose(&fpout);
  else
    return;

  a->encoding = ENC7BIT;
  a->d_filename = a->filename;
  if (a->filename && a->unlink)
    unlink (a->filename);
  a->filename = m_strdup(temp);
  a->unlink = 1;
  if (stat (a->filename, &sb) == -1) {
    mutt_perror ("stat");
    return;
  }
  a->length = sb.st_size;
  body_list_wipe(&a->parts);
  a->hdr->content = NULL;
}

static void transform_to_7bit (BODY * a, FILE * fpin)
{
  char buff[_POSIX_PATH_MAX];
  STATE s;
  struct stat sb;

  p_clear(&s, 1);
  for (; a; a = a->next) {
    if (a->type == TYPEMULTIPART) {
      if (a->encoding != ENC7BIT)
        a->encoding = ENC7BIT;

      transform_to_7bit (a->parts, fpin);
    }
    else if (mutt_is_message_type(a)) {
      mutt_message_to_7bit (a, fpin);
    }
    else {
      a->noconv = 1;
      a->force_charset = 1;

      s.fpout = m_tempfile(buff, sizeof(buff), NONULL(mod_core.tmpdir), NULL);
      if (!s.fpout) {
        mutt_error(_("Could not create temporary file"));
        return;
      }
      s.fpin = fpin;
      mutt_decode_attachment (a, &s);
      m_fclose(&s.fpout);
      a->d_filename = a->filename;
      a->filename = m_strdup(buff);
      a->unlink = 1;
      if (stat (a->filename, &sb) == -1) {
        mutt_perror ("stat");
        return;
      }
      a->length = sb.st_size;

      mutt_update_encoding (a);
      if (a->encoding == ENC8BIT)
        a->encoding = ENCQUOTEDPRINTABLE;
      else if (a->encoding == ENCBINARY)
        a->encoding = ENCBASE64;
    }
  }
}

/* determine which Content-Transfer-Encoding to use */
static void mutt_set_encoding (BODY * b, CONTENT * info)
{
  char send_charset[STRING];

  if (b->type == TYPETEXT) {
    char *chsname =
      mutt_get_body_charset (send_charset, sizeof (send_charset), b);
    if ((info->lobin && ascii_strncasecmp (chsname, "iso-2022", 8))
        || info->linemax > 990 || (info->from && option (OPTENCODEFROM)))
      b->encoding = ENCQUOTEDPRINTABLE;
    else if (info->hibin)
      b->encoding = option (OPTALLOW8BIT) ? ENC8BIT : ENCQUOTEDPRINTABLE;
    else
      b->encoding = ENC7BIT;
  }
  else if (b->type == TYPEMESSAGE || b->type == TYPEMULTIPART) {
    if (info->lobin || info->hibin) {
      if (option (OPTALLOW8BIT) && !info->lobin)
        b->encoding = ENC8BIT;
      else
        mutt_message_to_7bit (b, NULL);
    }
    else
      b->encoding = ENC7BIT;
  }
  else if (b->type == TYPEAPPLICATION
           && ascii_strcasecmp (b->subtype, "pgp-keys") == 0)
    b->encoding = ENC7BIT;
  else
  {
    /* Determine which encoding is smaller  */
    if (1.33 * (float) (info->lobin + info->hibin + info->ascii) <
        3.0 * (float) (info->lobin + info->hibin) + (float) info->ascii)
      b->encoding = ENCBASE64;
    else
      b->encoding = ENCQUOTEDPRINTABLE;
  }
}

void mutt_stamp_attachment (BODY * a)
{
  a->stamp = time (NULL);
}

/* Get a body's character set */

char *mutt_get_body_charset(char *d, ssize_t dlen, BODY * b)
{
    const char *p;

    if (b && b->type != TYPETEXT)
        return NULL;

    p = b ? parameter_getval(b->parameter, "charset") : NULL;
    charset_canonicalize(d, dlen, p);
    return d;
}


/* Assumes called from send mode where BODY->filename points to actual file */
void mutt_update_encoding (BODY * a)
{
  CONTENT *info;
  char chsbuff[STRING];

  /* override noconv when it's us-ascii */
  if (charset_is_us_ascii (mutt_get_body_charset (chsbuff, sizeof (chsbuff), a)))
    a->noconv = 0;

  if (!a->force_charset && !a->noconv)
    parameter_delval(&a->parameter, "charset");

  if ((info = mutt_get_content_info (a->filename, a)) == NULL)
    return;

  mutt_set_encoding (a, info);
  mutt_stamp_attachment (a);

  p_delete(&a->content);
  a->content = info;

}

BODY *mutt_make_message_attach (CONTEXT * ctx, HEADER * hdr, int attach_msg)
{
  char buffer[LONG_STRING];
  BODY *body;
  FILE *fp;
  int cmflags, chflags;
  int pgp = hdr->security;

  if ((option (OPTMIMEFORWDECODE) || option (OPTFORWDECRYPT)) &&
      (hdr->security & ENCRYPT)) {
  }

  fp = m_tempfile(buffer, sizeof(buffer), NONULL(mod_core.tmpdir), NULL);
  if (!fp)
    return NULL;

  body = body_new();
  body->type = TYPEMESSAGE;
  body->subtype = m_strdup("rfc822");
  body->filename = m_strdup(buffer);
  body->unlink = 1;
  body->use_disp = 0;
  body->disposition = DISPINLINE;
  body->noconv = 1;

  mutt_parse_mime_message (ctx, hdr);

  chflags = CH_XMIT;
  cmflags = 0;

  /* If we are attaching a message, ignore OPTMIMEFORWDECODE */
  if (!attach_msg && option (OPTMIMEFORWDECODE)) {
    chflags |= CH_MIME | CH_TXTPLAIN;
    cmflags = M_CM_DECODE | M_CM_CHARCONV;
    pgp &= ~(PGPENCRYPT|SMIMEENCRYPT);
  }
  else if (option (OPTFORWDECRYPT) && (hdr->security & ENCRYPT)) {
    if (mutt_is_multipart_encrypted (hdr->content)) {
      chflags |= CH_MIME | CH_NONEWLINE;
      cmflags = M_CM_DECODE_PGP;
      pgp &= ~PGPENCRYPT;
    }
    else if (mutt_is_application_pgp (hdr->content) & PGPENCRYPT) {
      chflags |= CH_MIME | CH_TXTPLAIN;
      cmflags = M_CM_DECODE | M_CM_CHARCONV;
      pgp &= ~PGPENCRYPT;
    }
    else if (mutt_is_application_smime (hdr->content) & SMIMEENCRYPT) {
      chflags |= CH_MIME | CH_TXTPLAIN;
      cmflags = M_CM_DECODE | M_CM_CHARCONV;
      pgp &= ~SMIMEENCRYPT;
    }
  }

  mutt_copy_message (fp, ctx, hdr, cmflags, chflags);

  fflush (fp);
  rewind (fp);

  body->hdr = header_new();
  body->hdr->offset = 0;
  /* we don't need the user headers here */
  body->hdr->env = mutt_read_rfc822_header (fp, body->hdr, 0, 0);
  body->hdr->security = pgp;
  mutt_update_encoding (body);
  body->parts = body->hdr->content;

  m_fclose(&fp);

  return (body);
}

BODY *mutt_make_file_attach (const char *path)
{
  BODY *att;
  CONTENT *info;

  att = body_new();
  att->filename = m_strdup(path);

  /* Attempt to determine the appropriate content-type based on the filename
   * suffix.
   */
  mutt_lookup_mime_type (att, path);

  if ((info = mutt_get_content_info (path, att)) == NULL) {
    body_list_wipe(&att);
    return NULL;
  }

  if (!att->subtype) {
    if (info->lobin == 0
        || (info->lobin + info->hibin + info->ascii) / info->lobin >= 10) {
      /*
       * Statistically speaking, there should be more than 10% "lobin" 
       * chars if this is really a binary file...
       */
      att->type = TYPETEXT;
      att->subtype = m_strdup("plain");
    } else {
      att->type = TYPEAPPLICATION;
      att->subtype = m_strdup("octet-stream");
    }
  }

  mutt_update_encoding (att);
  return att;
}

static int get_toplevel_encoding (BODY * a)
{
    int e = ENC7BIT;

    for (; a; a = a->next) {
        if (a->encoding == ENCBINARY)
            return ENCBINARY;

        if (a->encoding == ENC8BIT)
            e = ENC8BIT;
    }

    return e;
}

BODY *mutt_make_multipart (BODY * b)
{
  BODY *new;

  new = body_new();
  new->type = TYPEMULTIPART;
  new->subtype = m_strdup("mixed");
  new->encoding = get_toplevel_encoding (b);
  parameter_set_boundary(&new->parameter);
  new->use_disp = 0;
  new->disposition = DISPINLINE;
  new->parts = b;

  return new;
}

/* remove the multipart body if it exists */
BODY *mutt_remove_multipart (BODY * b)
{
  BODY *t;

  if (b->parts) {
    t = b;
    b = b->parts;
    t->parts = NULL;
    body_list_wipe(&t);
  }
  return b;
}

char *mutt_make_date (char *s, ssize_t len)
{
  time_t t = time (NULL);
  struct tm *l = localtime (&t);
  time_t tz = mutt_local_tz (t);

  tz /= 60;

  snprintf (s, len, "Date: %s, %d %s %d %02d:%02d:%02d %+03d%02d\n",
            Weekdays[l->tm_wday], l->tm_mday, Months[l->tm_mon],
            l->tm_year + 1900, l->tm_hour, l->tm_min, l->tm_sec,
            (int) tz / 60, (int) abs (tz) % 60);
  return (s);
}

/* wrapper around mutt_write_address() so we can handle very large
   recipient lists without needing a huge temporary buffer in memory */
void
mutt_write_address_list(address_t *addr, FILE *fp, int linelen, int display)
{
    int first = 1;

    while (addr) {
        char buf[LONG_STRING];
        int len = rfc822_addrcpy(buf, ssizeof(buf), addr, display);

        if (!first) {
            if (linelen + len > 74) {
                fputs("\n\t", fp);
                linelen = 8;        /* tab is usually about 8 spaces... */
            } else
            if (addr->mailbox) {
                fputc(' ', fp);
                linelen++;
            }
        }
        first = 0;

        linelen += len + 1;
        fputs(buf, fp);

        if (!addr->group && addr->next && addr->next->mailbox) {
            fputc(',', fp);
            linelen++;
        }

        addr = addr->next;
    }
    fputc ('\n', fp);
}

/* need to write the list in reverse because they are stored in reverse order
 * when parsed to speed up threading
 */
void mutt_write_references(string_list_t *r, FILE *f)
{
    string_list_t *refs[10];
    int i;

    p_clear(refs, countof(refs));
    for (i = 0; i < countof(refs) && r; r = r->next) {
        refs[i++] = r;
    }

    while (i-- > 0) {
        fprintf(f, " %s", refs[i]->data);
    }
}

static int edit_header(int mode, const char *s)
{
    const char *p;
    int slen = m_strlen(s);

    if (mode != 1 || option(OPTXMAILTO))
        return 1;

    p = skipspaces(EditorHeaders);
    while (*p) {
        if (!ascii_strncasecmp(p, s, slen) && p[slen - 1] == ':')
            return 1;
        p = skipspaces(p + slen);
    }

    return 0;
}

/* Note: all RFC2047 encoding should be done outside of this routine, except
 * for the "real name."  This will allow this routine to be used more than
 * once, if necessary.
 * 
 * Likewise, all IDN processing should happen outside of this routine.
 *
 * mode == 1  => "lite" mode (used for edit_hdrs)
 * mode == 0  => normal mode.  write full header + MIME headers
 * mode == -1 => write just the envelope info (used for postponing messages)
 * 
 * privacy != 0 => will omit any headers which may identify the user.
 *               Output generated is suitable for being sent through
 *               anonymous remailer chains.
 *
 */
int mutt_write_rfc822_header (FILE * fp, ENVELOPE * env, BODY * attach,
                              int mode, int privacy)
{
  char buffer[LONG_STRING];
  char *p;
  string_list_t *tmp = env->userhdrs;
  int has_agent = 0;            /* user defined user-agent header field exists */

#ifdef USE_NNTP
  if (!option (OPTNEWSSEND))
#endif
    if (mode == 0 && !privacy)
      fputs (mutt_make_date (buffer, sizeof (buffer)), fp);

  /* OPTUSEFROM is not consulted here so that we can still write a From:
   * field if the user sets it with the `my_hdr' command
   */
  if (env->from && !privacy) {
    buffer[0] = 0;
    rfc822_addrcat(buffer, sizeof(buffer), env->from, 0);
    fprintf (fp, "From: %s\n", buffer);
  }

  if (env->to) {
    fputs ("To: ", fp);
    mutt_write_address_list (env->to, fp, 4, 0);
  }
  else if (mode > 0)
#ifdef USE_NNTP
    if (!option (OPTNEWSSEND))
#endif
      if (edit_header(mode, "To:"))
        fputs ("To:\n", fp);

  if (env->cc) {
    fputs ("Cc: ", fp);
    mutt_write_address_list (env->cc, fp, 4, 0);
  }
  else if (mode > 0)
#ifdef USE_NNTP
    if (!option (OPTNEWSSEND))
#endif
      if (edit_header(mode, "Cc:"))
        fputs ("Cc:\n", fp);

  if (env->bcc) {
    if (mode != 0 || option (OPTWRITEBCC)) {
      fputs ("Bcc: ", fp);
      mutt_write_address_list (env->bcc, fp, 5, 0);
    }
  }
  else if (mode > 0)
#ifdef USE_NNTP
    if (!option (OPTNEWSSEND))
#endif
      if (edit_header(mode, "Bcc:"))
        fputs ("Bcc:\n", fp);

#ifdef USE_NNTP
  if (env->newsgroups)
    fprintf (fp, "Newsgroups: %s\n", env->newsgroups);
  else if (mode == 1 && option (OPTNEWSSEND) && edit_header(mode, "Newsgroups:"))
    fputs ("Newsgroups:\n", fp);

  if (env->followup_to)
    fprintf (fp, "Followup-To: %s\n", env->followup_to);
  else if (mode == 1 && option (OPTNEWSSEND) && edit_header(mode, "Followup-To:"))
    fputs ("Followup-To:\n", fp);
#endif

  if (env->subject)
    fprintf (fp, "Subject: %s\n", env->subject);
  else if (mode == 1 && edit_header(mode, "Subject:"))
    fputs ("Subject:\n", fp);

  /* save message id if the user has set it */
  if (env->message_id && !privacy)
    fprintf (fp, "Message-ID: %s\n", env->message_id);

  if (env->reply_to) {
    fputs ("Reply-To: ", fp);
    mutt_write_address_list (env->reply_to, fp, 10, 0);
  }
  else if (mode > 0 && edit_header(mode, "Reply-To:"))
    fputs ("Reply-To:\n", fp);

  if (env->mail_followup_to)
#ifdef USE_NNTP
    if (!option (OPTNEWSSEND))
#endif
    {
      fputs ("Mail-Followup-To: ", fp);
      mutt_write_address_list (env->mail_followup_to, fp, 18, 0);
    }

  if (mode <= 0) {
    if (env->references) {
      fputs ("References:", fp);
      mutt_write_references (env->references, fp);
      fputc ('\n', fp);
    }

    /* Add the MIME headers */
    fputs ("MIME-Version: 1.0\n", fp);
    mutt_write_mime_header (attach, fp);
  }

  if (env->in_reply_to) {
    fputs ("In-Reply-To:", fp);
    mutt_write_references (env->in_reply_to, fp);
    fputc ('\n', fp);
  }

  /* Add any user defined headers */
  for (; tmp; tmp = tmp->next) {
    if ((p = strchr (tmp->data, ':'))) {
      p = vskipspaces(p + 1);
      if (!*p)
        continue;               /* don't emit empty fields. */

      /* check to see if the user has overridden the user-agent field */
      if (!ascii_strncasecmp ("user-agent", tmp->data, 10)) {
        has_agent = 1;
        if (privacy)
          continue;
      }

      fputs (tmp->data, fp);
      fputc ('\n', fp);
    }
  }

  if (mode == 0 && !privacy && option (OPTXMAILER) && !has_agent) {
    if (mod_core.operating_system) {
      fprintf(fp, "User-Agent: %s (%s)\n", mutt_make_version(),
              mod_core.operating_system);
    } else {
      fprintf(fp, "User-Agent: %s\n", mutt_make_version());
    }
  }

  return (ferror (fp) == 0 ? 0 : -1);
}

static void encode_headers (string_list_t * h)
{
  char *tmp;
  char *p;
  int i;

  for (; h; h = h->next) {
    if (!(p = strchr (h->data, ':')))
      continue;

    i = p - h->data;
    p = vskipspaces(p + 1);
    tmp = m_strdup(p);

    if (!tmp)
      continue;

    rfc2047_encode_string (&tmp);
    p_realloc(&h->data, m_strlen(h->data) + 2 + m_strlen(tmp) + 1);

    sprintf (h->data + i, ": %s", NONULL (tmp));

    p_delete(&tmp);
  }
}

const char *mutt_fqdn(short may_hide_host)
{
  char *p = NULL, *q;

  if (mod_core.hostname && mod_core.hostname[0] != '@') {
    p = mod_core.hostname;

    if (may_hide_host && option (OPTHIDDENHOST)) {
      if ((p = strchr(mod_core.hostname, '.')))
        p++;

      /* sanity check: don't hide the host if
         the fqdn is something like detebe.org.  */

      if (!p || !(q = strchr(p, '.')))
        p = mod_core.hostname;
    }
  }

  return p;
}

static void mutt_gen_localpart(char *buf, unsigned int len, const char *fmt)
{
#define APPEND_FMT(fmt, arg) \
        if (len > 1) {                                  \
            int snlen = snprintf(buf, len, fmt, arg);   \
            buf += snlen;                               \
            len -= snlen;                               \
        }

#define APPEND_BYTE(c) \
        if (len > 1) {                                  \
            *buf++ = c;                                 \
            *buf   = '\0';                              \
            len--;                                      \
        }

    time_t now;
    struct tm *tm;

    now = time (NULL);
    tm = gmtime (&now);

    while (*fmt) {
        static char MsgIdPfx = 'A';
        int c = *fmt++;

        if (c != '%') {
            /* normalized character (we're stricter than RFC2822, 3.6.4) */
            APPEND_BYTE((isalnum(c) || strchr(".!#$%&'*+-/=?^_`{|}~", c)) ? c : '.');
            continue;
        }

        switch (*fmt++) {
          case 0:
            return;
          case 'd':
            APPEND_FMT("%02d", tm->tm_mday);
            break;
          case 'h':
            APPEND_FMT("%02d", tm->tm_hour);
            break;
          case 'm':
            APPEND_FMT("%02d", tm->tm_mon + 1);
            break;
          case 'M':
            APPEND_FMT("%02d", tm->tm_min);
            break;
          case 'O':
            APPEND_FMT("%lo", (unsigned long)now);
            break;
          case 'p':
            APPEND_FMT("%u", (unsigned int)getpid());
            break;
          case 'P':
            APPEND_FMT("%c", MsgIdPfx);
            MsgIdPfx = (MsgIdPfx == 'Z') ? 'A' : MsgIdPfx + 1;
            break;
          case 'r':
            APPEND_FMT("%u", (unsigned int)rand());
            break;
          case 'R':
            APPEND_FMT("%x", (unsigned int)rand());
            break;
          case 's':
            APPEND_FMT("%02d", tm->tm_sec);
            break;
          case 'T':
            APPEND_FMT("%u", (unsigned int) now);
            break;
          case 'X':
            APPEND_FMT("%x", (unsigned int) now);
            break;
          case 'Y':       /* this will break in the year 10000 ;-) */
            APPEND_FMT("%04d", tm->tm_year + 1900);
            break;
          case '%':
            APPEND_BYTE('%');
            break;
          default:       /* invalid formats are replaced by '.' */
            APPEND_BYTE('.');
        }
    }

    *buf = '\0';

#undef APPEND_BYTE
#undef APPEND_FMT
}

static char *mutt_gen_msgid (void)
{
    char buf[STRING];
    char localpart[STRING];
    const char *fqdn;

    if (!(fqdn = mutt_fqdn(0)))
        fqdn = NONULL(mod_core.shorthost);

    mutt_gen_localpart(localpart, sizeof(localpart), MsgIdFormat);
    snprintf(buf, sizeof(buf), "<%s@%s>", localpart, fqdn);
    return m_strdup(buf);
}

static void alarm_handler (int sig __attribute__ ((unused)))
{
  SigAlrm = 1;
}

/* invoke sendmail in a subshell
   path (in)            path to program to execute
   args (in)            arguments to pass to program
   msg (in)             temp file containing message to send
   tempfile (out)       if sendmail is put in the background, this points
                        to the temporary file containing the stdout of the
                        child process */
static int
send_msg(const char *path, const char **args, const char *msg, char **tempfile)
{
  sigset_t set;
  int fd, st;
  pid_t pid, ppid;

  mutt_block_signals_system ();

  sigemptyset (&set);
  /* we also don't want to be stopped right now */
  sigaddset (&set, SIGTSTP);
  sigprocmask (SIG_BLOCK, &set, NULL);

  if (MTransport.sendmail_wait >= 0) {
    char tmp[_POSIX_PATH_MAX];

    mutt_mktemp (tmp);
    *tempfile = m_strdup(tmp);
  }

  if ((pid = fork ()) == 0) {
    struct sigaction act, oldalrm;

    /* save parent's ID before setsid() */
    ppid = getppid ();

    /* we want the delivery to continue even after the main process dies,
     * so we put ourselves into another session right away
     */
    setsid ();

    /* next we close all open files */
    for (fd = 0; fd < getdtablesize(); fd++)
      close (fd);

    /* now the second fork() */
    if ((pid = fork ()) == 0) {
      /* "msg" will be opened as stdin */
      if (open (msg, O_RDONLY, 0) < 0) {
        unlink (msg);
        _exit (S_ERR);
      }
      unlink (msg);

      if (MTransport.sendmail_wait >= 0) {
        /* *tempfile will be opened as stdout */
        if (open (*tempfile, O_WRONLY | O_APPEND | O_CREAT | O_EXCL, 0600) <
            0)
          _exit (S_ERR);
        /* redirect stderr to *tempfile too */
        if (dup (1) < 0)
          _exit (S_ERR);
      } else {
        if (open ("/dev/null", O_WRONLY | O_APPEND) < 0)        /* stdout */
          _exit (S_ERR);
        if (open ("/dev/null", O_RDWR | O_APPEND) < 0)  /* stderr */
          _exit (S_ERR);
      }

      execv (path, (char**)args);
      _exit (S_ERR);
    }
    else if (pid == -1) {
      unlink (msg);
      p_delete(tempfile);
      _exit (S_ERR);
    }

    /* sendmail_wait > 0: interrupt waitpid() after sendmail_wait seconds
     * sendmail_wait = 0: wait forever
     * sendmail_wait < 0: don't wait
     */
    if (MTransport.sendmail_wait > 0) {
      SigAlrm = 0;
      act.sa_handler = alarm_handler;
#ifdef SA_INTERRUPT
      /* need to make sure waitpid() is interrupted on SIGALRM */
      act.sa_flags = SA_INTERRUPT;
#else
      act.sa_flags = 0;
#endif
      sigemptyset (&act.sa_mask);
      sigaction (SIGALRM, &act, &oldalrm);
      alarm (MTransport.sendmail_wait);
    }
    else if (MTransport.sendmail_wait < 0)
      _exit (0xff & EX_OK);

    if (waitpid (pid, &st, 0) > 0) {
      st = WIFEXITED (st) ? WEXITSTATUS (st) : S_ERR;
      if (MTransport.sendmail_wait && st == (0xff & EX_OK)) {
        unlink (*tempfile);     /* no longer needed */
        p_delete(tempfile);
      }
    } else {
      st = (MTransport.sendmail_wait > 0 && errno == EINTR && SigAlrm) ? S_BKG : S_ERR;
      if (MTransport.sendmail_wait > 0) {
        unlink (*tempfile);
        p_delete(tempfile);
      }
    }

    /* reset alarm; not really needed, but... */
    alarm (0);
    sigaction (SIGALRM, &oldalrm, NULL);

    if (kill (ppid, 0) == -1 && errno == ESRCH) {
      /* the parent is already dead */
      unlink (*tempfile);
      p_delete(tempfile);
    }

    _exit (st);
  }

  sigprocmask (SIG_UNBLOCK, &set, NULL);

  if (pid != -1 && waitpid (pid, &st, 0) > 0)
    st = WIFEXITED (st) ? WEXITSTATUS (st) : S_ERR;     /* return child status */
  else
    st = S_ERR;                 /* error */

  mutt_unblock_signals_system (1);

  return (st);
}

static const char **
add_args(const char **args, ssize_t *argslen, ssize_t *argsmax, address_t * addr)
{
  for (; addr; addr = addr->next) {
    /* weed out group mailboxes, since those are for display only */
    if (addr->mailbox && !addr->group) {
      if (*argslen == *argsmax)
        p_realloc(&args, *argsmax += 5);
      args[(*argslen)++] = addr->mailbox;
    }
  }
  return (args);
}

static const char **
add_option(const char **args, ssize_t *argslen, ssize_t *argsmax, const char *s)
{
    if (*argslen == *argsmax) {
        p_realloc(&args, *argsmax += 5);
    }
    args[(*argslen)++] = s;
    return (args);
}

static int mutt_invoke_sendmail (address_t * from,        /* the sender */
                                 address_t * to, address_t * cc, address_t * bcc,     /* recips */
                                 const char *msg,       /* file containing message */
                                 int eightbit)
{                               /* message contains 8bit chars */
  char cmd[LONG_STRING];
  char *ps = NULL, *path = NULL, *childout = NULL;
  const char **args = NULL;
  ssize_t argslen = 0, argsmax = 0;
  int i;

#ifdef USE_NNTP
  if (option (OPTNEWSSEND)) {
    m_strformat(cmd, sizeof(cmd), 0, Inews, nntp_format_str, 0, 0);
    if (m_strisempty(cmd)) {
      i = nntp_post (msg);
      unlink (msg);
      return i;
    }
  } else
#endif
  {
    m_strcpy(cmd, sizeof(cmd), MTransport.sendmail);
  }

  ps = cmd;
  i = 0;
  while ((ps = strtok(ps, " "))) {
    if (argslen == argsmax)
      p_realloc(&args, argsmax += 5);

    if (i)
      args[argslen++] = ps;
    else {
      path = m_strdup(ps);
      ps = strrchr (ps, '/');
      if (ps)
        ps++;
      else
        ps = path;
      args[argslen++] = ps;
    }
    ps = NULL;
    i++;
  }

#ifdef USE_NNTP
  if (!option (OPTNEWSSEND)) {
#endif
    if (eightbit && MTransport.use_8bitmime)
      args = add_option(args, &argslen, &argsmax, "-B8BITMIME");

    if (MTransport.use_envelope_from) {
      address_t *f = MTransport.envelope_from_address;
      if (!f && from && !from->next)
        f = from;
      if (f) {
        args = add_option (args, &argslen, &argsmax, "-f");
        args = add_args (args, &argslen, &argsmax, f);
      }
    }
    if (MTransport.dsn_notify) {
      args = add_option (args, &argslen, &argsmax, "-N");
      args = add_option (args, &argslen, &argsmax, MTransport.dsn_notify);
    }
    if (MTransport.dsn_return) {
      args = add_option (args, &argslen, &argsmax, "-R");
      args = add_option (args, &argslen, &argsmax, MTransport.dsn_return);
    }
    args = add_option (args, &argslen, &argsmax, "--");
    args = add_args (args, &argslen, &argsmax, to);
    args = add_args (args, &argslen, &argsmax, cc);
    args = add_args (args, &argslen, &argsmax, bcc);
#ifdef USE_NNTP
  }
#endif

  if (argslen >= argsmax)
    p_realloc(&args, ++argsmax);

  args[argslen++] = NULL;

  if ((i = send_msg (path, args, msg, &childout)) != (EX_OK & 0xff)) {
    if (i != S_BKG) {
      mutt_error (_("Error sending message, child exited %d (%s)."), i,
                  m_strsysexit(i));
      if (childout) {
        struct stat st;

        if (!stat(childout, &st) && st.st_size > 0)
          mutt_pager(_("Output of the delivery process"), childout, 0, NULL);
      }
    }
  } else {
    unlink (childout);
  }

  p_delete(&childout);
  p_delete(&path);
  p_delete(&args);

  if (i == (EX_OK & 0xff))
    i = 0;
  else if (i == S_BKG)
    i = 1;
  else
    i = -1;
  return (i);
}

int mutt_invoke_mta (address_t * from,    /* the sender */
                     address_t * to, address_t * cc, address_t * bcc, /* recips */
                     const char *msg,   /* file containing message */
                     int eightbit)
{                               /* message contains 8bit chars */
#ifdef USE_LIBESMTP
#ifdef USE_NNTP
  if (!option (OPTNEWSSEND))
#endif
    if (SmtpHost)
      return send_smtp_invoke (from, to, cc, bcc, msg, eightbit);
#endif

  return mutt_invoke_sendmail (from, to, cc, bcc, msg, eightbit);
}

/* For postponing (!final) do the necessary encodings only */
void mutt_prepare_envelope (ENVELOPE * env, int final)
{
  if (final) {
    if (env->bcc && !(env->to || env->cc)) {
      /* some MTA's will put an Apparently-To: header field showing the Bcc:
       * recipients if there is no To: or Cc: field, so attempt to suppress
       * it by using an empty To: field.
       */
      env->to = address_new();
      env->to->group = 1;
      env->to->next  = address_new();
      env->to->mailbox = m_strdup("undisclosed-recipients");
    }

    mutt_set_followup_to(env);

    if (!env->message_id && !m_strisempty(MsgIdFormat))
      env->message_id = mutt_gen_msgid();
  }

  /* Take care of 8-bit => 7-bit conversion. */
  rfc2047_encode_adrlist(env->to, "To");
  rfc2047_encode_adrlist(env->cc, "Cc");
  rfc2047_encode_adrlist(env->bcc, "Bcc");
  rfc2047_encode_adrlist(env->from, "From");
  rfc2047_encode_adrlist(env->mail_followup_to, "Mail-Followup-To");
  rfc2047_encode_adrlist(env->reply_to, "Reply-To");

  if (env->subject)
    rfc2047_encode_string (&env->subject);
  encode_headers (env->userhdrs);
}

void mutt_unprepare_envelope (ENVELOPE * env)
{
    string_list_t *item;

    for (item = env->userhdrs; item; item = item->next)
        rfc2047_decode(&item->data);

    address_list_wipe(&env->mail_followup_to);

    /* back conversions */
    rfc2047_decode_adrlist(env->to);
    rfc2047_decode_adrlist(env->cc);
    rfc2047_decode_adrlist(env->bcc);
    rfc2047_decode_adrlist(env->from);
    rfc2047_decode_adrlist(env->reply_to);
    rfc2047_decode(&env->subject);
}

static int _mutt_bounce_message (FILE * fp, HEADER * h, address_t * to,
                                 const char *resent_from, address_t * env_from)
{
  int i, ret = 0;
  FILE *f;
  char date[STRING], tempfile[_POSIX_PATH_MAX];
  MESSAGE *msg = NULL;

  if (!h) {
    /* Try to bounce each message out, aborting if we get any failures. */
    for (i = 0; i < Context->msgcount; i++)
      if (Context->hdrs[i]->tagged)
        ret |=
          _mutt_bounce_message (fp, Context->hdrs[i], to, resent_from,
                                env_from);
    return ret;
  }

  /* If we failed to open a message, return with error */
  if (!fp && (msg = mx_open_message (Context, h->msgno)) == NULL)
    return -1;

  if (!fp)
    fp = msg->fp;

  f = m_tempfile(tempfile, sizeof(tempfile), NONULL(mod_core.tmpdir), NULL);
  if (f) {
    int ch_flags = CH_XMIT | CH_NONEWLINE | CH_NOQFROM;

    if (!option (OPTBOUNCEDELIVERED))
      ch_flags |= CH_WEED_DELIVERED;

    fseeko (fp, h->offset, 0);
    fprintf (f, "Resent-From: %s", resent_from);
    fprintf (f, "\nResent-%s", mutt_make_date (date, sizeof (date)));
    if (!m_strisempty(MsgIdFormat))
      fprintf (f, "Resent-Message-ID: %s\n", mutt_gen_msgid());
    fputs ("Resent-To: ", f);
    mutt_write_address_list (to, f, 11, 0);
    mutt_copy_header (fp, h, f, ch_flags, NULL);
    fputc ('\n', f);
    mutt_copy_bytes (fp, f, h->content->length);
    m_fclose(&f);

    ret = mutt_invoke_mta(env_from, to, NULL, NULL, tempfile,
                          h->content->encoding == ENC8BIT);
  }

  if (msg)
    mx_close_message (&msg);

  return ret;
}

int mutt_bounce_message (FILE * fp, HEADER * h, address_t * to)
{
  address_t *from;
  char resent_from[STRING];
  int ret;
  char *err;

  resent_from[0] = '\0';
  from = mutt_default_from ();

  rfc822_qualify(from, mutt_fqdn(1));

  rfc2047_encode_adrlist(from, "Resent-From");
  if (mutt_addrlist_to_idna (from, &err)) {
    mutt_error (_("Bad IDN %s while preparing resent-from."), err);
    return -1;
  }
  rfc822_addrcat(resent_from, sizeof(resent_from), from, 0);

#ifdef USE_NNTP
  unset_option (OPTNEWSSEND);
#endif

  ret = _mutt_bounce_message (fp, h, to, resent_from, from);

  address_list_wipe(&from);

  return ret;
}

static void set_noconv_flags (BODY * b, short flag)
{
  for (; b; b = b->next) {
    if (b->type == TYPEMESSAGE || b->type == TYPEMULTIPART)
      set_noconv_flags (b->parts, flag);
    else if (b->type == TYPETEXT && b->noconv) {
      parameter_setval(&b->parameter, "x-mutt-noconv", flag ? "yes" : NULL);
    }
  }
}

int mutt_write_fcc (const char *path, HEADER * hdr, const char *msgid,
                    int post, char *fcc)
{
  CONTEXT f;
  MESSAGE *msg;
  char tempfile[_POSIX_PATH_MAX];
  FILE *tempfp = NULL;
  int r;

  if (post)
    set_noconv_flags (hdr->content, 1);

  if (mx_open_mailbox (path, M_APPEND | M_QUIET, &f) == NULL) {
    return (-1);
  }

  /* We need to add a Content-Length field to avoid problems where a line in
   * the message body begins with "From "   
   */
  if (f.magic == M_MBOX) {
    tempfp = m_tempfile(tempfile, sizeof(tempfile), NONULL(mod_core.tmpdir), NULL);
    if (!tempfp) {
      mutt_error(_("Could not create temporary file"));
      mx_close_mailbox (&f, NULL);
      return -1;
    }
  }

  hdr->read = !post;            /* make sure to put it in the `cur' directory (maildir) */
  if ((msg = mx_open_new_message (&f, hdr, M_ADD_FROM)) == NULL) {
    mx_close_mailbox (&f, NULL);
    return (-1);
  }

  /* post == 1 => postpone message. Set mode = -1 in mutt_write_rfc822_header()
   * post == 0 => Normal mode. Set mode = 0 in mutt_write_rfc822_header() 
   * */
  mutt_write_rfc822_header(msg->fp, hdr->env, hdr->content, -post, 0);

  /* (postponment) if this was a reply of some sort, <msgid> contians the
   * Message-ID: of message replied to.  Save it using a special X-Mutt-
   * header so it can be picked up if the message is recalled at a later
   * point in time.  This will allow the message to be marked as replied if
   * the same mailbox is still open.
   */
  if (post && msgid)
    fprintf (msg->fp, "X-Mutt-References: %s\n", msgid);

  /* (postponment) save the Fcc: using a special X-Mutt- header so that
   * it can be picked up when the message is recalled 
   */
  if (post && fcc)
    fprintf (msg->fp, "X-Mutt-Fcc: %s\n", fcc);
  fprintf (msg->fp, "Status: RO\n");

  /* (postponment) if the mail is to be signed or encrypted, save this info */
  if (post && (hdr->security & APPLICATION_PGP)) {
    fputs ("X-Mutt-PGP: ", msg->fp);
    if (hdr->security & ENCRYPT)
      fputc ('E', msg->fp);
    if (hdr->security & SIGN) {
      fputc ('S', msg->fp);
      if (PgpSignAs && *PgpSignAs)
        fprintf (msg->fp, "<%s>", PgpSignAs);
    }
    if (hdr->security & INLINE)
      fputc ('I', msg->fp);
    fputc ('\n', msg->fp);
  }

  /* (postponment) if the mail is to be signed or encrypted, save this info */
  if (post && (hdr->security & APPLICATION_SMIME)) {
    fputs ("X-Mutt-SMIME: ", msg->fp);
    if (hdr->security & ENCRYPT) {
      fputc ('E', msg->fp);
      if (SmimeCryptAlg && *SmimeCryptAlg)
        fprintf (msg->fp, "C<%s>", SmimeCryptAlg);
    }
    if (hdr->security & SIGN) {
      fputc ('S', msg->fp);
      if (SmimeDefaultKey && *SmimeDefaultKey)
        fprintf (msg->fp, "<%s>", SmimeDefaultKey);
    }
    if (hdr->security & INLINE)
      fputc ('I', msg->fp);
    fputc ('\n', msg->fp);
  }

  /* (postponement) if the mail is to be sent through a mixmaster 
   * chain, save that information
   */
  if (post && hdr->chain && hdr->chain) {
    string_list_t *p;

    fputs ("X-Mutt-Mix:", msg->fp);
    for (p = hdr->chain; p; p = p->next)
      fprintf (msg->fp, " %s", (char *) p->data);

    fputc ('\n', msg->fp);
  }

  if (tempfp) {
    char sasha[LONG_STRING];
    int lines = 0;

    mutt_write_mime_body (hdr->content, tempfp);

    /* make sure the last line ends with a newline.  Emacs doesn't ensure
     * this will happen, and it can cause problems parsing the mailbox   
     * later.
     */
    fseeko (tempfp, -1, 2);
    if (fgetc (tempfp) != '\n') {
      fseeko (tempfp, 0, 2);
      fputc ('\n', tempfp);
    }

    fflush (tempfp);
    if (ferror (tempfp)) {
      m_fclose(&tempfp);
      unlink (tempfile);
      mx_commit_message (msg, &f);      /* XXX - really? */
      mx_close_message (&msg);
      mx_close_mailbox (&f, NULL);
      return -1;
    }

    /* count the number of lines */
    rewind (tempfp);
    while (fgets (sasha, sizeof (sasha), tempfp) != NULL)
      lines++;
    fprintf (msg->fp, "Content-Length: %zd\n", ftello (tempfp));
    fprintf (msg->fp, "Lines: %d\n\n", lines);

    /* copy the body and clean up */
    rewind (tempfp);
    r = mutt_copy_stream (tempfp, msg->fp);
    if (m_fclose(&tempfp) != 0)
      r = -1;
    /* if there was an error, leave the temp version */
    if (!r)
      unlink (tempfile);
  } else {
    fputc ('\n', msg->fp);      /* finish off the header */
    r = mutt_write_mime_body (hdr->content, msg->fp);
  }

  if (mx_commit_message (msg, &f) != 0)
    r = -1;
  mx_close_message (&msg);
  mx_close_mailbox (&f, NULL);

  if (post)
    set_noconv_flags (hdr->content, 0);

  return r;
}