Replace deprecated luaL_openlib() by luaL_register()
[apps/madmutt.git] / send.c
diff --git a/send.c b/send.c
index f403320..2ec0954 100644 (file)
--- a/send.c
+++ b/send.c
@@ -12,8 +12,7 @@
 #include <lib-mime/mime.h>
 #include <lib-mime/rfc3676.h>
 #include <lib-sys/unix.h>
-#include <lib-ui/curses.h>
-#include <lib-ui/enter.h>
+#include <lib-ui/lib-ui.h>
 #include <lib-mx/mx.h>
 
 #include "alias.h"
 #include "mutt_idna.h"
 #include "attach.h"
 
-#ifdef USE_NNTP
-#include <nntp/nntp.h>
-#endif
-
-#include "remailer.h"
-
 int url_parse_mailto(ENVELOPE *e, char **body, const char *src)
 {
     char *t;
@@ -124,9 +117,9 @@ static int mutt_addrsrc (address_t * a, address_t * lst)
 {
   for (; lst; lst = lst->next) {
     if (mutt_addrcmp (a, lst))
-      return (1);
+      return 1;
   }
-  return (0);
+  return 0;
 }
 
 /* removes addresses from "b" which are contained in "a" */
@@ -225,7 +218,7 @@ static int edit_address (address_t ** a, const char *field)
     mutt_addrlist_to_local (*a);
     rfc822_addrcat(buf, sizeof(buf), *a, 0);
     if (mutt_get_field (field, buf, sizeof (buf), M_ALIAS) != 0)
-      return (-1);
+      return -1;
     address_list_wipe(a);
     *a = mutt_expand_aliases (mutt_parse_adrlist (NULL, buf));
     if ((idna_ok = mutt_addrlist_to_idna (*a, &err)) != 0) {
@@ -245,51 +238,16 @@ static int edit_envelope (ENVELOPE * en, int flags)
   string_list_t *uh = UserHeader;
   regmatch_t pat_match[1];
 
-#ifdef USE_NNTP
-  if (option (OPTNEWSSEND)) {
-    if (en->newsgroups)
-      m_strcpy(buf, sizeof(buf), en->newsgroups);
-    else
-      buf[0] = 0;
-    if (mutt_get_field ("Newsgroups: ", buf, sizeof (buf), 0) != 0)
-      return (-1);
-    p_delete(&en->newsgroups);
-    en->newsgroups = m_strdup(buf);
-
-    if (en->followup_to)
-      m_strcpy(buf, sizeof(buf), en->followup_to);
-    else
-      buf[0] = 0;
-    if (option (OPTASKFOLLOWUP)
-        && mutt_get_field ("Followup-To: ", buf, sizeof (buf), 0) != 0)
-      return (-1);
-    p_delete(&en->followup_to);
-    en->followup_to = m_strdup(buf);
-
-    if (en->x_comment_to)
-      m_strcpy(buf, sizeof(buf), en->x_comment_to);
-    else
-      buf[0] = 0;
-    if (option (OPTXCOMMENTTO) && option (OPTASKXCOMMENTTO)
-        && mutt_get_field ("X-Comment-To: ", buf, sizeof (buf), 0) != 0)
-      return (-1);
-    p_delete(&en->x_comment_to);
-    en->x_comment_to = m_strdup(buf);
-  }
-  else
-#endif
-  {
-    if (edit_address (&en->to, "To: ") == -1 || en->to == NULL)
-      return (-1);
-    if (option (OPTASKCC) && edit_address (&en->cc, "Cc: ") == -1)
-      return (-1);
-    if (option (OPTASKBCC) && edit_address (&en->bcc, "Bcc: ") == -1)
-      return (-1);
-  }
+  if (edit_address (&en->to, "To: ") == -1 || en->to == NULL)
+    return -1;
+  if (option (OPTASKCC) && edit_address (&en->cc, "Cc: ") == -1)
+    return -1;
+  if (option (OPTASKBCC) && edit_address (&en->bcc, "Bcc: ") == -1)
+    return -1;
 
   if (en->subject) {
     if (option (OPTFASTREPLY))
-      return (0);
+      return 0;
     else
       m_strcpy(buf, sizeof(buf), en->subject);
   }
@@ -316,7 +274,7 @@ static int edit_envelope (ENVELOPE * en, int flags)
     }
     else {
       mutt_error (_("Ignoring $strip_was: Subject would be empty."));
-      sleep (2);
+      mutt_sleep (2);
     }
   }
   if (mutt_get_field ("Subject: ", buf, sizeof (buf), 0) != 0 || (!buf[0]
@@ -328,20 +286,13 @@ static int edit_envelope (ENVELOPE * en, int flags)
                                                                   != M_NO)) {
     mutt_message _("No subject, aborting.");
 
-    return (-1);
+    return -1;
   }
   m_strreplace(&en->subject, buf);
 
   return 0;
 }
 
-#ifdef USE_NNTP
-static char *nntp_get_header(const char *s)
-{
-    return m_strdup(skipspaces(s));
-}
-#endif
-
 static void process_user_recips (ENVELOPE * env)
 {
     string_list_t *uh = UserHeader;
@@ -361,17 +312,6 @@ static void process_user_recips (ENVELOPE * env)
           case MIME_BCC:
             env->bcc = rfc822_parse_adrlist(env->bcc, p);
             break;
-#ifdef USE_NNTP
-          case MIME_NEWSGROUPS:
-            env->newsgroups = nntp_get_header(p);
-            break;
-          case MIME_FOLLOWUP_TO:
-            env->followup_to = nntp_get_header(p);
-            break;
-          case MIME_X_COMMENT_TO:
-            env->x_comment_to = nntp_get_header(p);
-            break;
-#endif
           default: break;
         }
     }
@@ -406,11 +346,6 @@ static void process_user_header(ENVELOPE * env)
           case MIME_TO:
           case MIME_CC:
           case MIME_BCC:
-#ifdef USE_NNTP
-          case MIME_NEWSGROUPS:
-          case MIME_FOLLOWUP_TO:
-          case MIME_X_COMMENT_TO:
-#endif
           case MIME_SUPERSEDES:
           case MIME_SUPERCEDES:
           case MIME_SUBJECT:
@@ -527,7 +462,7 @@ static int default_to (address_t ** to, ENVELOPE * env, int flags, int hmfupto)
     }
   }
 
-  if (!option (OPTREPLYSELF) && mutt_addr_is_user (env->from)) {
+  if (mutt_addr_is_user(env->from)) {
     /* mail is from the user, assume replying to recipients */
     address_list_append(to, address_list_dup(env->to));
   }
@@ -566,7 +501,7 @@ static int default_to (address_t ** to, ENVELOPE * env, int flags, int hmfupto)
         break;
 
       default:
-        return (-1);            /* abort */
+        return -1;            /* abort */
       }
     }
     else
@@ -575,7 +510,7 @@ static int default_to (address_t ** to, ENVELOPE * env, int flags, int hmfupto)
   else
     address_list_append(to, address_list_dup(env->from));
 
-  return (0);
+  return 0;
 }
 
 int mutt_fetch_recips (ENVELOPE * out, ENVELOPE * in, int flags)
@@ -597,11 +532,11 @@ int mutt_fetch_recips (ENVELOPE * out, ENVELOPE * in, int flags)
 
     if (in->mail_followup_to && hmfupto == M_YES &&
         default_to (&out->cc, in, flags & SENDLISTREPLY, hmfupto) == -1)
-      return (-1);              /* abort */
+      return -1;              /* abort */
   }
   else {
     if (default_to (&out->to, in, flags & SENDGROUPREPLY, hmfupto) == -1)
-      return (-1);              /* abort */
+      return -1;              /* abort */
 
     if ((flags & SENDGROUPREPLY)
         && (!in->mail_followup_to || hmfupto != M_YES))
@@ -660,11 +595,6 @@ void mutt_make_misc_reply_headers (ENVELOPE * env,
   }
   else if (!env->subject)
     env->subject = m_strdup("Re: your mail");
-
-#ifdef USE_NNTP
-  if (option (OPTNEWSSEND) && option (OPTXCOMMENTTO) && curenv->from)
-    env->x_comment_to = m_strdup(mutt_get_name (curenv->from));
-#endif
 }
 
 static string_list_t *mutt_make_references (ENVELOPE * e)
@@ -762,22 +692,13 @@ envelope_defaults (ENVELOPE * env, CONTEXT * ctx, HEADER * cur, int flags)
        */
       mutt_error _("No tagged messages are visible!");
 
-      return (-1);
+      return -1;
     }
   }
   else
     curenv = cur->env;
 
   if (flags & SENDREPLY) {
-#ifdef USE_NNTP
-    if ((flags & SENDNEWS)) {
-      /* in case followup set Newsgroups: with Followup-To: if it present */
-      if (!env->newsgroups && curenv &&
-          m_strcasecmp(curenv->followup_to, "poster"))
-        env->newsgroups = m_strdup(curenv->followup_to);
-    }
-    else
-#endif
     if (tag) {
       HEADER *h;
 
@@ -793,7 +714,7 @@ envelope_defaults (ENVELOPE * env, CONTEXT * ctx, HEADER * cur, int flags)
     if ((flags & SENDLISTREPLY) && !env->to) {
       mutt_error _("No mailing lists found!");
 
-      return (-1);
+      return -1;
     }
 
     mutt_make_misc_reply_headers (env, ctx, cur, curenv);
@@ -802,7 +723,7 @@ envelope_defaults (ENVELOPE * env, CONTEXT * ctx, HEADER * cur, int flags)
   else if (flags & SENDFORWARD)
     mutt_make_forward_subject (env, ctx, cur);
 
-  return (0);
+  return 0;
 }
 
 static int generate_body (FILE * tempfp,        /* stream for outgoing message */
@@ -819,7 +740,7 @@ static int generate_body (FILE * tempfp,        /* stream for outgoing message *
     if ((i =
          query_quadoption (OPT_INCLUDE,
                            _("Include message in reply?"))) == -1)
-      return (-1);
+      return -1;
 
     if (i == M_YES) {
       mutt_message _("Including quoted message...");
@@ -831,7 +752,7 @@ static int generate_body (FILE * tempfp,        /* stream for outgoing message *
             if (include_reply (ctx, h, tempfp) == -1) {
               mutt_error _("Could not include all requested messages!");
 
-              return (-1);
+              return -1;
             }
             fputc ('\n', tempfp);
           }
@@ -888,7 +809,7 @@ static int generate_body (FILE * tempfp,        /* stream for outgoing message *
 
   mutt_clear_error ();
 
-  return (0);
+  return 0;
 }
 
 void mutt_set_followup_to (ENVELOPE * e)
@@ -900,14 +821,6 @@ void mutt_set_followup_to (ENVELOPE * e)
     if (!option(OPTFOLLOWUPTO))
         return;
 
-#ifdef USE_NNTP
-    if (option(OPTNEWSSEND)) {
-        if (!e->followup_to && e->newsgroups && strrchr(e->newsgroups, ','))
-            e->followup_to = m_strdup(e->newsgroups);
-        return;
-    }
-#endif
-
     if (e->mail_followup_to)
         return;
 
@@ -990,17 +903,17 @@ address_t *mutt_default_from (void)
 
   if (MAlias.from)
     adr = address_dup(MAlias.from);
-  else if (MCore.use_domain) {
+  else if (mod_core.use_domain) {
     const char *fqdn = mutt_fqdn (1);
     adr = address_new();
-    adr->mailbox = p_new(char, m_strlen(MCore.username) + m_strlen(fqdn) + 2);
-    sprintf(adr->mailbox, "%s@%s", NONULL(MCore.username), NONULL(fqdn));
+    adr->mailbox = p_new(char, m_strlen(mod_core.username) + m_strlen(fqdn) + 2);
+    sprintf(adr->mailbox, "%s@%s", NONULL(mod_core.username), NONULL(fqdn));
   } else {
     adr = address_new ();
-    adr->mailbox = m_strdup(NONULL(MCore.username));
+    adr->mailbox = m_strdup(NONULL(mod_core.username));
   }
 
-  return (adr);
+  return adr;
 }
 
 static int send_message (HEADER * msg)
@@ -1010,33 +923,29 @@ static int send_message (HEADER * msg)
   int i;
 
   /* Write out the message in MIME form. */
-  tempfp = m_tempfile(tempfile, sizeof(tempfile), NONULL(MCore.tmpdir), NULL);
+  tempfp = m_tempfile(tempfile, sizeof(tempfile), NONULL(mod_core.tmpdir), NULL);
   if (!tempfp)
     return -1;
 
-  mutt_write_rfc822_header (tempfp, msg->env, msg->content, 0,
-                            msg->chain ? 1 : 0);
+  mutt_write_rfc822_header (tempfp, msg->env, msg->content, 0);
   fputc ('\n', tempfp);         /* tie off the header. */
 
   if ((mutt_write_mime_body (msg->content, tempfp) == -1)) {
     m_fclose(&tempfp);
     unlink (tempfile);
-    return (-1);
+    return -1;
   }
 
   if (m_fclose(&tempfp) != 0) {
     mutt_perror (_("Can't create temporary file"));
     unlink (tempfile);
-    return (-1);
+    return -1;
   }
 
-  if (msg->chain)
-    return mix_send_message (msg->chain, tempfile);
-
   i = mutt_invoke_mta (msg->env->from, msg->env->to, msg->env->cc,
                        msg->env->bcc, tempfile,
                        (msg->content->encoding == ENC8BIT));
-  return (i);
+  return i;
 }
 
 /* rfc2047 encode the content-descriptions */
@@ -1114,13 +1023,6 @@ int ci_send_message (int flags, /* send mode */
 
   int rv = -1;
 
-#ifdef USE_NNTP
-  if (flags & SENDNEWS)
-    set_option (OPTNEWSSEND);
-  else
-    unset_option (OPTNEWSSEND);
-#endif
-
   if (!flags && !msg && quadoption (OPT_RECALL) != M_NO &&
       mutt_num_postponed (1)) {
     /* If the user is composing a new message, check to see if there
@@ -1150,20 +1052,6 @@ int ci_send_message (int flags, /* send mode */
       if ((flags =
            mutt_get_postponed (ctx, msg, &cur, fcc, sizeof (fcc))) < 0)
         goto cleanup;
-#ifdef USE_NNTP
-      /*
-       * If postponed message is a news article, it have
-       * a "Newsgroups:" header line, then set appropriate flag.
-       */
-      if (msg->env->newsgroups) {
-        flags |= SENDNEWS;
-        set_option (OPTNEWSSEND);
-      }
-      else {
-        flags &= ~SENDNEWS;
-        unset_option (OPTNEWSSEND);
-      }
-#endif
     }
 
     if (flags & (SENDPOSTPONED | SENDRESEND)) {
@@ -1208,7 +1096,7 @@ int ci_send_message (int flags, /* send mode */
 
     if (!tempfile) {
       char buffer[_POSIX_PATH_MAX];
-      tempfp = m_tempfile(buffer, sizeof(buffer), NONULL(MCore.tmpdir), NULL);
+      tempfp = m_tempfile(buffer, sizeof(buffer), NONULL(mod_core.tmpdir), NULL);
       msg->content->filename = m_strdup(buffer);
     } else {
       tempfp = safe_fopen(tempfile, "a+");
@@ -1244,10 +1132,8 @@ int ci_send_message (int flags, /* send mode */
 
   if (flags & SENDBATCH) {
     mutt_copy_stream (stdin, tempfp);
-    if (option (OPTHDRS)) {
-      process_user_recips (msg->env);
-      process_user_header (msg->env);
-    }
+    process_user_recips (msg->env);
+    process_user_header (msg->env);
     mutt_expand_aliases_env (msg->env);
   }
   else if (!(flags & (SENDPOSTPONED | SENDRESEND))) {
@@ -1255,18 +1141,11 @@ int ci_send_message (int flags, /* send mode */
         envelope_defaults (msg->env, ctx, cur, flags) == -1)
       goto cleanup;
 
-    if (option (OPTHDRS))
-      process_user_recips (msg->env);
+    process_user_recips (msg->env);
 
     /* Expand aliases and remove duplicates/crossrefs */
     mutt_fix_reply_recipients (msg->env);
 
-#ifdef USE_NNTP
-    if ((flags & SENDNEWS) && ctx && ctx->magic == M_NNTP
-        && !msg->env->newsgroups)
-      msg->env->newsgroups = m_strdup(((NNTP_DATA *) ctx->data)->group);
-#endif
-
     if (!(option (OPTAUTOEDIT) && option (OPTEDITHDRS)) &&
         !((flags & SENDREPLY) && option (OPTFASTREPLY))) {
       if (edit_envelope (msg->env, flags) == -1)
@@ -1312,8 +1191,7 @@ int ci_send_message (int flags, /* send mode */
       killfrom = 0;
     }
 
-    if (option (OPTHDRS))
-      process_user_header (msg->env);
+    process_user_header (msg->env);
 
     /* include replies/forwarded messages, unless we are given a template */
     if (!tempfile && (ctx || !(flags & (SENDREPLY | SENDFORWARD)))
@@ -1327,16 +1205,15 @@ int ci_send_message (int flags, /* send mode */
      * can take effect.
      */
 
-    if (option (OPTCRYPTAUTOSIGN))
+    if (mod_crypt.autosign)
       msg->security |= SIGN;
-    if (option (OPTCRYPTAUTOENCRYPT))
+    if (mod_crypt.autoencrypt)
       msg->security |= ENCRYPT;
-    if (option (OPTCRYPTREPLYENCRYPT) && cur && (cur->security & ENCRYPT))
+    if (mod_crypt.replyencrypt && cur && (cur->security & ENCRYPT))
       msg->security |= ENCRYPT;
-    if (option (OPTCRYPTREPLYSIGN) && cur && (cur->security & SIGN))
+    if (mod_crypt.replysign && cur && (cur->security & SIGN))
       msg->security |= SIGN;
-    if (option (OPTCRYPTREPLYSIGNENCRYPTED) && cur
-        && (cur->security & ENCRYPT))
+    if (mod_crypt.replysignencrypted && cur && (cur->security & ENCRYPT))
       msg->security |= SIGN;
 
     if (msg->security) {
@@ -1350,10 +1227,9 @@ int ci_send_message (int flags, /* send mode */
        * disable individual mechanisms at run-time?
        */
       if (cur) {
-        if (option (OPTCRYPTAUTOPGP) && (cur->security & APPLICATION_PGP))
+        if (mod_crypt.autopgp && (cur->security & APPLICATION_PGP))
           msg->security |= APPLICATION_PGP;
-        else if (option (OPTCRYPTAUTOSMIME)
-                 && (cur->security & APPLICATION_SMIME))
+        else if (mod_crypt.autosmime && (cur->security & APPLICATION_SMIME))
           msg->security |= APPLICATION_SMIME;
       }
 
@@ -1362,11 +1238,11 @@ int ci_send_message (int flags, /* send mode */
        * for the decision. 
        */
       if (!(msg->security & (APPLICATION_SMIME | APPLICATION_PGP))) {
-        if (option (OPTCRYPTAUTOSMIME) && option (OPTSMIMEISDEFAULT))
+        if (mod_crypt.autosmime && mod_crypt.smime_is_default)
           msg->security |= APPLICATION_SMIME;
-        else if (option (OPTCRYPTAUTOPGP))
+        else if (mod_crypt.autopgp)
           msg->security |= APPLICATION_PGP;
-        else if (option (OPTCRYPTAUTOSMIME))
+        else if (mod_crypt.autosmime)
           msg->security |= APPLICATION_SMIME;
       }
     }
@@ -1464,7 +1340,8 @@ int ci_send_message (int flags, /* send mode */
       killfrom = 1;             /* no need to check $use_from because if the user specified
                                    a from address it would have already been set by now */
     }
-    mutt_select_fcc (fcc, sizeof (fcc), msg);
+    m_strcpy(fcc, sizeof(fcc), NONULL(MAlias.record));
+    mutt_pretty_mailbox(fcc);
     if (killfrom) {
       address_list_wipe(&msg->env->from);
       killfrom = 0;
@@ -1482,13 +1359,7 @@ int ci_send_message (int flags, /* send mode */
     i = mutt_compose_menu (msg, fcc, sizeof (fcc), cur);
     if (i == -1) {
       /* abort */
-#ifdef USE_NNTP
-      if (flags & SENDNEWS)
-        mutt_message (_("Article not posted."));
-
-      else
-#endif
-        mutt_message _("Mail not sent.");
+      mutt_message _("Mail not sent.");
       goto cleanup;
     }
     else if (i == 1) {
@@ -1524,21 +1395,18 @@ int ci_send_message (int flags, /* send mode */
     }
   }
 
-#ifdef USE_NNTP
-  if (!(flags & SENDNEWS))
-#endif
-    if (!msg->env->to && !msg->env->cc && !msg->env->bcc) {
-      if (!(flags & SENDBATCH)) {
-        mutt_error _("No recipients are specified!");
+  if (!msg->env->to && !msg->env->cc && !msg->env->bcc) {
+    if (!(flags & SENDBATCH)) {
+      mutt_error _("No recipients are specified!");
 
-        goto main_loop;
-      }
-      else {
-        puts _("No recipients were specified.");
+      goto main_loop;
+    }
+    else {
+      puts _("No recipients were specified.");
 
-        goto cleanup;
-      }
+      goto cleanup;
     }
+  }
 
   if (mutt_env_to_idna (msg->env, &tag, &err)) {
     mutt_error (_("Bad IDN in \"%s\": '%s'"), tag, err);
@@ -1559,19 +1427,6 @@ int ci_send_message (int flags, /* send mode */
 
     goto main_loop;
   }
-#ifdef USE_NNTP
-  if ((flags & SENDNEWS) && !msg->env->subject) {
-    mutt_error _("No subject specified.");
-
-    goto main_loop;
-  }
-
-  if ((flags & SENDNEWS) && !msg->env->newsgroups) {
-    mutt_error _("No newsgroup specified.");
-
-    goto main_loop;
-  }
-#endif
 
   if (msg->content->next)
     msg->content = mutt_make_multipart (msg->content);
@@ -1584,7 +1439,7 @@ int ci_send_message (int flags, /* send mode */
     if (quadoption (OPT_ATTACH) == M_YES) {
       mutt_message _("No attachments made but indicator found in text. "
                      "Abort sending.");
-      sleep (2);
+      mutt_sleep (2);
     }
     mutt_message (_("Mail not sent."));
     goto main_loop;
@@ -1767,14 +1622,7 @@ int ci_send_message (int flags, /* send mode */
     }
   }
   else if (!option (OPTNOCURSES))
-    mutt_message (i != 0 ? _("Sending in background.") :
-#ifdef USE_NNTP
-                  (flags & SENDNEWS) ? _("Article posted.") :
-                  _("Mail sent.")
-#else
-                  _("Mail sent.")
-#endif
-    );
+    mutt_message (i != 0 ? _("Sending in background.") : _("Mail sent."));
   if (msg->security & ENCRYPT)
     p_delete(&pgpkeylist);