Revert "we use glibc, and gconv. Don't need our own transcoding stuff, glibc does"
[apps/madmutt.git] / main.c
diff --git a/main.c b/main.c
index c081229..1db6a40 100644 (file)
--- a/main.c
+++ b/main.c
 /*
+ * Copyright notice from original mutt:
  * Copyright (C) 1996-2002 Michael R. Elkins <me@mutt.org>
  * Copyright (C) 1999-2002 Thomas Roessler <roessler@does-not-exist.org>
  * Copyright (C) 2004 g10 Code GmbH
- * 
- *     This program is free software; you can redistribute it and/or modify
- *     it under the terms of the GNU General Public License as published by
- *     the Free Software Foundation; either version 2 of the License, or
- *     (at your option) any later version.
- * 
- *     This program is distributed in the hope that it will be useful,
- *     but WITHOUT ANY WARRANTY; without even the implied warranty of
- *     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *     GNU General Public License for more details.
- * 
- *     You should have received a copy of the GNU General Public License
- *     along with this program; if not, write to the Free Software
- *     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
- */ 
+ *
+ * Parts written/modified by:
+ * Nico Golde <nion@muttng.org>
+ * Andreas Krennmair <ak@synflood.at>
+ *
+ * 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.
+ */
 
 #define MAIN_C 1
 
-#if HAVE_CONFIG_H
-# include "config.h"
-#endif
+#include <lib-lib/lib-lib.h>
+
+#include <sys/utsname.h>
+
+#include <lib-lua/lib-lua.h>
+#include <lib-sys/mutt_signal.h>
+#include <lib-mime/mime.h>
+#include <lib-ui/lib-ui.h>
+#include <lib-mx/mx.h>
 
 #include "mutt.h"
-#include "mutt_curses.h"
+#include "crypt.h"
+#include "alias.h"
+#include "buffy.h"
+#include "sort.h"
 #include "keymap.h"
-#include "mailbox.h"
-#include "url.h"
-#include "mutt_crypt.h"
 #include "mutt_idna.h"
-
-#include <string.h>
-#include <stdlib.h>
-#include <locale.h>
-#include <unistd.h>
-#include <errno.h>
-#include <sys/stat.h>
-#include <sys/utsname.h>
+#include "mutt_sasl.h"
 
 #ifdef HAVE_GETOPT_H
 #include <getopt.h>
+#else
+extern char *optarg;
+extern int optind;
 #endif
 
 #ifdef HAVE_LIBIDN
 #include <stringprep.h>
 #endif
 
-#ifdef USE_NNTP
-#include <nntp.h>
+#ifdef USE_HCACHE
+#if defined(HAVE_TOKYOCABINET)
+#include <tcutil.h>
+#elif defined(HAVE_GDBM)
+#include <gdbm.h>
+#endif
 #endif
 
-static const char *ReachingUs = N_("\
-To contact the developers, please mail to <mutt-ng-devel@lists.berlios.de>.\n\
-To report a bug, please use the fleang(1) utility.\n");
-
-static const char *Notice = N_("\
-Copyright (C) 1996-2002 Michael R. Elkins and others.\n\
-Mutt comes with ABSOLUTELY NO WARRANTY; for details type `muttng -vv'.\n\
-Mutt is free software, and you are welcome to redistribute it\n\
-under certain conditions; type `muttng -vv' for details.\n");
-
-static const char *Copyright = N_("\
-Copyright (C) 1996-2002 Michael R. Elkins <me@mutt.org>\n\
-Copyright (C) 1996-2002 Brandon Long <blong@fiction.net>\n\
-Copyright (C) 1997-2002 Thomas Roessler <roessler@does-not-exist.org>\n\
-Copyright (C) 1998-2002 Werner Koch <wk@isil.d.shuttle.de>\n\
-Copyright (C) 1999-2002 Brendan Cully <brendan@kublai.com>\n\
-Copyright (C) 1999-2002 Tommi Komulainen <Tommi.Komulainen@iki.fi>\n\
-Copyright (C) 2000-2002 Edmund Grimley Evans <edmundo@rano.org>\n\
-Copyright (C) 2004-2005 Andreas Krennmair <ak@synflood.at>\n\
-\n\
-Lots of others not mentioned here contributed lots of code,\n\
-fixes, and suggestions.\n\
-\n\
-    This program is free software; you can redistribute it and/or modify\n\
-    it under the terms of the GNU General Public License as published by\n\
-    the Free Software Foundation; either version 2 of the License, or\n\
-    (at your option) any later version.\n\
-\n\
-    This program is distributed in the hope that it will be useful,\n\
-    but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
-    GNU General Public License for more details.\n\
-\n\
-    You should have received a copy of the GNU General Public License\n\
-    along with this program; if not, write to the Free Software\n\
-    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.\n\
-");
-
-void mutt_exit (int code)
+#include <gnutls/gnutls.h>
+#include <gpgme.h>
+
+void mutt_exit(int code)
 {
-  mutt_endwin (NULL);
-  exit (code);
+    mutt_endwin(NULL);
+    exit(code);
 }
 
 static void mutt_usage (void)
 {
-  puts (mutt_make_version ());
-
-  puts _(
-"usage: muttng [ -nRyzZ ] [ -e <cmd> ] [ -F <file> ] [ -m <type> ] [ -f <file> ]\n\
-       muttng [ -nR ] [ -e <cmd> ] [ -F <file> ] -Q <query> [ -Q <query> ] [...]\n\
-       muttng [ -nR ] [ -e <cmd> ] [ -F <file> ] -A <alias> [ -A <alias> ] [...]\n\
-       muttng [ -nx ] [ -e <cmd> ] [ -a <file> ] [ -F <file> ] [ -H <file> ] [ -i <file> ] [ -s <subj> ] [ -b <addr> ] [ -c <addr> ] <addr> [ ... ]\n\
-       muttng [ -n ] [ -e <cmd> ] [ -F <file> ] -p\n\
-       muttng -v[v]\n\
-\n\
-options:\n\
-  -A <alias>\texpand the given alias\n\
-  -a <file>\tattach a file to the message\n\
-  -b <address>\tspecify a blind carbon-copy (BCC) address\n\
-  -c <address>\tspecify a carbon-copy (CC) address\n\
-  -e <command>\tspecify a command to be executed after initialization\n\
-  -f <file>\tspecify which mailbox to read\n\
-  -F <file>\tspecify an alternate muttrc file\n\
-  -g <server>\tspecify a newsserver (if compiled with NNTP)\n\
-  -G\t\tselect a newsgroup (if compiled with NNTP)\n\
-  -H <file>\tspecify a draft file to read header and body from\n\
-  -i <file>\tspecify a file which Mutt should include in the body\n\
-  -m <type>\tspecify a default mailbox type\n\
-  -n\t\tcauses Mutt not to read the system Muttrc\n\
-  -p\t\trecall a postponed message\n\
-  -Q <variable>\tquery a configuration variable\n\
-  -R\t\topen mailbox in read-only mode\n\
-  -s <subj>\tspecify a subject (must be in quotes if it has spaces)\n\
-  -v\t\tshow version and compile-time definitions\n\
-  -x\t\tsimulate the mailx send mode\n\
-  -y\t\tselect a mailbox specified in your `mailboxes' list\n\
-  -z\t\texit immediately if there are no messages in the mailbox\n\
-  -Z\t\topen the first folder with new message, exit immediately if none\n\
-  -h\t\tthis help message");
-
-  exit (0);
+    puts(madmutt_version);
+
+    puts(_("\
+usage: madmutt [ -nRyzZ ] [ -e <cmd> ] [ -F <file> ] [ -f <file> ]\n\
+       madmutt [ -n ] [ -e <cmd> ] [ -a <file> ] [ -F <file> ] [ -H <file> ] [ -i <file> ] [ -s <subj> ] [ -b <addr> ] [ -c <addr> ] <addr> [ ... ]\n\
+       madmutt [ -n ] [ -e <cmd> ] [ -F <file> ] -p\n\
+       madmutt -v\n"));
+
+    puts(_("Options:"));
+    puts(_("  -a <file>     attach a file to the message"));
+    puts(_("  -b <address>  specify a blind carbon-copy (BCC) address"));
+    puts(_("  -c <address>  specify a carbon-copy (CC) address"));
+    puts(_("  -e <command>  specify a command to be executed after initialization"));
+    puts(_("  -f <file>     specify which mailbox to read"));
+    puts(_("  -F <file>     specify an alternate Madmuttrc file"));
+    puts(_("  -H <file>     specify a draft file to read header and body from"));
+    puts(_("  -i <file>     specify a file which Madmutt should include in the body"));
+    puts(_("  -n            causes Madmutt not to read the system Madmuttrc"));
+    puts(_("  -p            recall a postponed message"));
+    puts(_("  -R            open mailbox in read-only mode"));
+    puts(_("  -s <subj>     specify a subject (must be in quotes if it has spaces)"));
+    puts(_("  -v            show version and compile-time definitions"));
+    puts(_("  -z            exit immediately if there are no messages in the mailbox"));
+    puts(_("  -Z            open the first folder with new message, exit immediately if none"));
+    puts(_("  -h            this help message"));
+
+    exit(0);
 }
 
 static void show_version (void)
 {
-  struct utsname uts;
-
-  puts (mutt_make_version());
-  puts (_(Notice));
-
-  uname (&uts);
-
-#ifdef _AIX
-  printf ("System: %s %s.%s", uts.sysname, uts.version, uts.release);
-#elif defined (SCO)
-  printf ("System: SCO %s", uts.release);
-#else
-  printf ("System: %s %s", uts.sysname, uts.release);
-#endif
-
-  printf (" (%s)", uts.machine);
-
+    struct utsname uts;
+    uname(&uts);
+
+    puts(madmutt_version);
+    puts(_("  Copyright (C) 1996-2002 Michael R. Elkins and others."));
+    puts(_("  Copyright (C) 2005      The Mutt-ng Team"));
+    puts(_("  Copyright (C) 2006-2007 Pierre Habouzit"));
+    puts(_("  MadMutt is based on Mutt-ng wich was based on Mutt before"));
+    puts("");
+
+    printf("System:\n  %s %s (%s)\n", uts.sysname, uts.release, uts.machine);
+    puts("External Libraries:");
 #ifdef NCURSES_VERSION
-  printf (" [using ncurses %s]", NCURSES_VERSION);
-#elif defined(USE_SLANG_CURSES)
-  printf (" [using slang %d]", SLANG_VERSION);
+    printf("  ncurses %s\n", NCURSES_VERSION);
 #endif
-
 #ifdef _LIBICONV_VERSION
-  printf (" [using libiconv %d.%d]", _LIBICONV_VERSION >> 8,
-         _LIBICONV_VERSION & 0xff);
+    printf("  libiconv %d.%d\n", _LIBICONV_VERSION >> 8,
+           _LIBICONV_VERSION & 0xff);
 #endif
-
-#ifdef HAVE_LIBIDN
-  printf (" [using libidn %s (compiled with %s)]", stringprep_check_version (NULL), 
-         STRINGPREP_VERSION);
+#ifdef STRINGPREP_VERSION
+    printf("  libidn %s\n", STRINGPREP_VERSION);
 #endif
-  
-  puts (_("\nCompile options:"));
-
-#ifdef DOMAIN
-  printf ("DOMAIN=\"%s\"\n", DOMAIN);
-#else
-  puts ("-DOMAIN");
+#ifdef USE_HCACHE
+#if defined(HAVE_TOKYOCABINET)
+    printf("  tokyocabinet %s\n", tcversion);
+#elif defined(HAVE_GDBM)
+    printf("  gdbm %s\n", gdbm_version);
 #endif
-
-#ifdef DEBUG
-  puts ("+DEBUG");
-#else
-  puts ("-DEBUG");
 #endif
-  
+    printf("  gnutls %s\n", LIBGNUTLS_VERSION);
+    printf("  gpgme %s\n",  GPGME_VERSION);
+    puts (_("Compile Options:"));
 
-  
-  puts (
-
-#ifdef HOMESPOOL
-       "+HOMESPOOL  "
+    puts (
+#ifdef USE_HCACHE
+        "  +USE_HCACHE"
 #else
-       "-HOMESPOOL  "
+        "  -USE_HCACHE"
 #endif
-
-#ifdef USE_SETGID
-       "+USE_SETGID  "
-#else
-       "-USE_SETGID  "
-#endif
-
-#ifdef USE_DOTLOCK
-       "+USE_DOTLOCK  "
-#else
-       "-USE_DOTLOCK  "
-#endif
-
-#ifdef DL_STANDALONE
-       "+DL_STANDALONE  "
-#else
-       "-DL_STANDALONE  "
-#endif
-
-       "\n"
-       
-#ifdef USE_FCNTL
-       "+USE_FCNTL  "
-#else
-       "-USE_FCNTL  "
-#endif
-
-#ifdef USE_FLOCK
-       "+USE_FLOCK   "
-#else
-       "-USE_FLOCK   "
-#endif
-       
-#ifdef USE_INODESORT
-       "+USE_INODESORT   "
-#else
-       "-USE_INODESORT   "
-#endif
-       );
-  puts (
-#ifdef USE_POP
-       "+USE_POP  "
-#else
-       "-USE_POP  "
-#endif
-
-#ifdef USE_NNTP
-       "+USE_NNTP  "
-#else
-       "-USE_NNTP  "
-#endif
-
-#ifdef USE_IMAP
-        "+USE_IMAP  "
-#else
-        "-USE_IMAP  "
-#endif
-
-#ifdef IMAP_EDIT_THREADS
-        "+IMAP_EDIT_THREADS  "
-#else
-        "-IMAP_EDIT_THREADS  "
-#endif
-
-#ifdef USE_GSS
-       "+USE_GSS  "
-#else
-       "-USE_GSS  "
-#endif
-
-       
-#ifdef USE_SSL
-       "+USE_SSL  "
-#else
-       "-USE_SSL  "
-#endif
-
-#ifdef USE_GNUTLS
-       "+USE_GNUTLS  "
-#else
-       "-USE_GNUTLS  "
-#endif
-
-#ifdef USE_GNUTLS
-       "+USE_GNUTLS  "
-#else
-       "-USE_GNUTLS  "
-#endif
-
-#ifdef USE_SASL
-       "+USE_SASL  "
-#else
-       "-USE_SASL  "
-#endif
-#ifdef USE_SASL2
-       "+USE_SASL2  "
-#else
-       "-USE_SASL2  "
-#endif
-
-#ifdef USE_LIBESMTP
-    "+USE_LIBESMTP  "
-#else
-    "-USE_LIBESMTP  "
-#endif
-       "\n"
-       
-#ifdef HAVE_REGCOMP
-       "+HAVE_REGCOMP  "
-#else
-       "-HAVE_REGCOMP  "
-#endif
-
-#ifdef USE_GNU_REGEX
-       "+USE_GNU_REGEX  "
-#else
-       "-USE_GNU_REGEX  "
-#endif
-
-#ifdef USE_COMPRESSED
-       "+COMPRESSED  "
-#else
-       "-COMPRESSED  "
-#endif
-
-       "\n"
-       
-#ifdef HAVE_COLOR
-       "+HAVE_COLOR  "
-#else
-       "-HAVE_COLOR  "
-#endif
-       
-#ifdef HAVE_START_COLOR
-       "+HAVE_START_COLOR  "
-#else
-       "-HAVE_START_COLOR  "
-#endif
-       
-#ifdef HAVE_TYPEAHEAD
-       "+HAVE_TYPEAHEAD  "
-#else
-       "-HAVE_TYPEAHEAD  "
-#endif
-       
-#ifdef HAVE_BKGDSET
-       "+HAVE_BKGDSET  "
-#else
-       "-HAVE_BKGDSET  "
-#endif
-
-       "\n"
-       
-#ifdef HAVE_CURS_SET
-       "+HAVE_CURS_SET  "
-#else
-       "-HAVE_CURS_SET  "
-#endif
-       
-#ifdef HAVE_META
-       "+HAVE_META  "
-#else
-       "-HAVE_META  "
-#endif
-       
-#ifdef HAVE_RESIZETERM
-       "+HAVE_RESIZETERM  "
-#else
-       "-HAVE_RESIZETERM  "
-#endif
-        );     
-  
-  puts (
-#ifdef CRYPT_BACKEND_CLASSIC_PGP
-        "+CRYPT_BACKEND_CLASSIC_PGP  "
-#else
-        "-CRYPT_BACKEND_CLASSIC_PGP  "
-#endif
-#ifdef CRYPT_BACKEND_CLASSIC_SMIME
-        "+CRYPT_BACKEND_CLASSIC_SMIME  "
-#else
-        "-CRYPT_BACKEND_CLASSIC_SMIME  "
-#endif
-#ifdef CRYPT_BACKEND_GPGME
-        "+CRYPT_BACKEND_GPGME  "
-#else
-        "-CRYPT_BACKEND_GPGME  "
-#endif
-
-#ifdef BUFFY_SIZE
-       "+BUFFY_SIZE "
-#else
-       "-BUFFY_SIZE "
-#endif
-#ifdef EXACT_ADDRESS
-       "+EXACT_ADDRESS  "
-#else
-       "-EXACT_ADDRESS  "
-#endif
-
-#ifdef SUN_ATTACHMENT
-       "+SUN_ATTACHMENT  "
-#else
-       "-SUN_ATTACHMENT  "
-#endif
-
-       "\n"
-       
-#ifdef ENABLE_NLS
-       "+ENABLE_NLS  "
-#else
-       "-ENABLE_NLS  "
-#endif
-
-#ifdef LOCALES_HACK
-       "+LOCALES_HACK  "
-#else
-       "-LOCALES_HACK  "
-#endif
-             
-#ifdef HAVE_WC_FUNCS
-       "+HAVE_WC_FUNCS  "
-#else
-       "-HAVE_WC_FUNCS  "
-#endif
-       
-#ifdef HAVE_LANGINFO_CODESET
-       "+HAVE_LANGINFO_CODESET  "
-#else
-       "-HAVE_LANGINFO_CODESET  "
-#endif
-
-       
-#ifdef HAVE_LANGINFO_YESEXPR
-       "+HAVE_LANGINFO_YESEXPR  "
-#else
-       "-HAVE_LANGINFO_YESEXPR  "
-#endif
-       
-       "\n"
-
-#if HAVE_ICONV
-       "+HAVE_ICONV  "
-#else
-       "-HAVE_ICONV  "
-#endif
-
-#if ICONV_NONTRANS
-       "+ICONV_NONTRANS  "
-#else
-       "-ICONV_NONTRANS  "
-#endif
-
-#if HAVE_LIBIDN
-       "+HAVE_LIBIDN  "
-#else
-       "-HAVE_LIBIDN  "
-#endif
-       
-#if HAVE_GETSID
-       "+HAVE_GETSID  "
-#else
-       "-HAVE_GETSID  "
-#endif
-
-#if HAVE_GETADDRINFO
-       "+HAVE_GETADDRINFO  "
-#else
-       "-HAVE_GETADDRINFO  "
-#endif
-
-#if USE_HCACHE
-       "+USE_HCACHE  "
-#else
-       "-USE_HCACHE  "
-#endif
-
-#if USE_HCACHE
-       "+USE_HCACHE  "
-#else
-       "-USE_HCACHE  "
-#endif
-
-       );
-
-#ifdef ISPELL
-  printf ("ISPELL=\"%s\"\n", ISPELL);
+#ifdef HAVE_LIBIDN
+        "  +HAVE_LIBIDN"
 #else
-  puts ("-ISPELL");
+        "  -HAVE_LIBIDN"
 #endif
+        );
 
-  printf ("SENDMAIL=\"%s\"\n", SENDMAIL);
-  printf ("MAILPATH=\"%s\"\n", MAILPATH);
-  printf ("PKGDATADIR=\"%s\"\n", PKGDATADIR);
-  printf ("SYSCONFDIR=\"%s\"\n", SYSCONFDIR);
-  printf ("EXECSHELL=\"%s\"\n", EXECSHELL);
-#ifdef MIXMASTER
-  printf ("MIXMASTER=\"%s\"\n", MIXMASTER);
-#else
-  puts ("-MIXMASTER");
-#endif
+    puts(_("Built-In Defaults:"));
+    printf("  SENDMAIL   \"%s\"\n", SENDMAIL);
+    printf("  MAILPATH   \"%s\"\n", MAILPATH);
+    printf("  PKGDATADIR \"%s\"\n", PKGDATADIR);
+    printf("  PKGDOCDIR  \"%s\"\n", PKGDOCDIR);
+    printf("  SYSCONFDIR \"%s\"\n", SYSCONFDIR);
 
-  puts(_(ReachingUs));
+    puts("");
+    puts(_("This is free software.  You may redistribute copies of it under the terms of"));
+    puts(_("the GNU General Public License <http://www.gnu.org/licenses/gpl.html>."));
+    puts(_("There is NO WARRANTY, to the extent permitted by law."));
 
-  mutt_print_patchlist();
-  
-  exit (0);
+    exit(0);
 }
 
-static void start_curses (void)
+#define M_IGNORE  (1<<0)        /* -z */
+#define M_BUFFY   (1<<1)        /* -Z */
+#define M_NOSYSRC (1<<2)        /* -n */
+#define M_RO      (1<<3)        /* -R */
+
+__attribute__((format(printf, 1, 0)))
+static void mutt_nocurses_error (const char *fmt, ...)
 {
-  km_init (); /* must come before mutt_init */
+    va_list ap;
 
-#ifdef USE_SLANG_CURSES
-  SLtt_Ignore_Beep = 1; /* don't do that #*$@^! annoying visual beep! */
-  SLsmg_Display_Eight_Bit = 128; /* characters above this are printable */
-  SLtt_set_color(0, NULL, "default", "default");
-#else
-  /* should come before initscr() so that ncurses 4.2 doesn't try to install
-     its own SIGWINCH handler */
-  mutt_signal_init ();
-#endif
-  if (initscr () == NULL)
-  {
-    puts _("Error initializing terminal.");
-    exit (1);
-  }
-#if 1 /* USE_SLANG_CURSES  - commenting out suggested in #455. */
-  /* slang requires the signal handlers to be set after initializing */
-  mutt_signal_init ();
-#endif
-  ci_start_color ();
-  keypad (stdscr, TRUE);
-  cbreak ();
-  noecho ();
-#if HAVE_TYPEAHEAD
-  typeahead (-1);       /* simulate smooth scrolling */
-#endif
-#if HAVE_META
-  meta (stdscr, TRUE);
-#endif
+    va_start(ap, fmt);
+    vfprintf(stderr, fmt, ap);
+    va_end(ap);
+    fputc('\n', stderr);
 }
 
-#define M_IGNORE  (1<<0)       /* -z */
-#define M_BUFFY   (1<<1)       /* -Z */
-#define M_NOSYSRC (1<<2)       /* -n */
-#define M_RO      (1<<3)       /* -R */
-#define M_SELECT  (1<<4)       /* -y */
-#ifdef USE_NNTP
-#define M_NEWS    (1<<5)       /* -g and -G */
-#endif
-
 int main (int argc, char **argv)
 {
   char folder[_POSIX_PATH_MAX] = "";
   char *subject = NULL;
   char *includeFile = NULL;
   char *draftFile = NULL;
-  char *newMagic = NULL;
   HEADER *msg = NULL;
-  LIST *attach = NULL;
-  LIST *commands = NULL;
-  LIST *queries = NULL;
-  LIST *alias_queries = NULL;
+  string_list_t *attach = NULL;
+  string_list_t *commands = NULL;
   int sendflags = 0;
   int flags = 0;
   int version = 0;
   int i;
   int explicit_folder = 0;
-  extern char *optarg;
-  extern int optind;
 
+  /* initialize random number for tmp file creation */ 
+  srand48((unsigned int) time (NULL));
+  
   /* sanity check against stupid administrators */
   
-  if(getegid() != getgid())
-  {
-    fprintf(stderr, "%s: I don't want to run with privileges!\n",
-           argv[0]);
-    exit(1);
+  if (getegid () != getgid ()) {
+    fprintf (stderr, "%s: I don't want to run with privileges!\n", argv[0]);
+    exit (1);
   }
 
-#ifdef ENABLE_NLS
-  /* FIXME what about init.c:1439 ? */
   setlocale (LC_ALL, "");
   bindtextdomain (PACKAGE, MUTTLOCALEDIR);
   textdomain (PACKAGE);
-#endif
-
   setlocale (LC_CTYPE, "");
 
-  mutt_error = mutt_nocurses_error;
-  mutt_message = mutt_nocurses_error;
-  SRAND (time (NULL));
+  mutt_error = mutt_message = mutt_nocurses_error;
+  srand48 (time (NULL));
   umask (077);
 
-  memset (Options, 0, sizeof (Options));
-  memset (QuadOptions, 0, sizeof (QuadOptions));
-  
-#ifdef USE_NNTP
-  while ((i = getopt (argc, argv, "A:a:b:F:f:c:d:e:g:GH:s:i:hm:npQ:RvxyzZ")) != EOF)
-#else
-  while ((i = getopt (argc, argv, "A:a:b:F:f:c:d:e:H:s:i:hm:npQ:RvxyzZ")) != EOF)
-#endif
-    switch (i)
-    {
-      case 'A':
-        alias_queries = mutt_add_list (alias_queries, optarg);
-        break;
-      case 'a':
-       attach = mutt_add_list (attach, optarg);
-       break;
-
-      case 'F':
-       mutt_str_replace (&Muttrc, optarg);
-       break;
-
-      case 'f':
-       strfcpy (folder, optarg, sizeof (folder));
-        explicit_folder = 1;
-       break;
-
-      case 'b':
-      case 'c':
-       if (!msg)
-         msg = mutt_new_header ();
-       if (!msg->env)
-         msg->env = mutt_new_envelope ();
-       if (i == 'b')
-         msg->env->bcc = rfc822_parse_adrlist (msg->env->bcc, optarg);
-       else
-         msg->env->cc = rfc822_parse_adrlist (msg->env->cc, optarg);
-       break;
-
-      case 'd':
-#ifdef DEBUG
-       debuglevel = atoi (optarg);
-       printf (_("Debugging at level %d.\n"), debuglevel);
-#else
-       printf _("DEBUG was not defined during compilation.  Ignored.\n");
-#endif
-       break;
-
-      case 'e':
-       commands = mutt_add_list (commands, optarg);
-       break;
-
-      case 'H':
-       draftFile = optarg;
-       break;
-
-      case 'i':
-       includeFile = optarg;
-       break;
-
-      case 'm':
-       /* should take precedence over .muttrc setting, so save it for later */
-       newMagic = optarg; 
-       break;
-
-      case 'n':
-       flags |= M_NOSYSRC;
-       break;
-
-      case 'p':
-       sendflags |= SENDPOSTPONED;
-       break;
-
-      case 'Q':
-        queries = mutt_add_list (queries, optarg);
-        break;
-      
-      case 'R':
-       flags |= M_RO; /* read-only mode */
-       break;
-
-      case 's':
-       subject = optarg;
-       break;
-
-      case 'v':
-       version++;
-       break;
-
-      case 'x': /* mailx compatible send mode */
-       sendflags |= SENDMAILX;
-       break;
-
-      case 'y': /* My special hack mode */
-       flags |= M_SELECT;
-       break;
-
-#ifdef USE_NNTP
-      case 'g': /* Specify a newsserver */
-       {
-         char buf[LONG_STRING];
-
-         snprintf (buf, sizeof (buf), "set news_server=%s", optarg);
-         commands = mutt_add_list (commands, buf);
-       }
-
-      case 'G': /* List of newsgroups */
-       flags |= M_SELECT | M_NEWS;
-       break;
-#endif
+  while ((i = getopt(argc, argv, "a:b:F:f:c:e:H:s:i:hnpRTtvzZ")) >= 0)
+    switch (i) {
+    case 'a':
+      if (strlen(optarg)<=512)
+        attach = mutt_add_list (attach, optarg);
+      else{
+        printf("too long arguments. exiting ...\n");
+        exit(1);
+      }
+      break;
+
+    case 'F':
+      m_strreplace(&Muttrc, optarg);
+      break;
 
-      case 'z':
-       flags |= M_IGNORE;
-       break;
+    case 'f':
+      m_strcpy(folder, sizeof(folder), optarg);
+      explicit_folder = 1;
+      break;
+
+    case 'b':
+    case 'c':
+      if (!msg)
+        msg = header_new();
+      if (!msg->env)
+        msg->env = envelope_new();
+      if (i == 'b')
+        msg->env->bcc = rfc822_parse_adrlist (msg->env->bcc, optarg);
+      else
+        msg->env->cc = rfc822_parse_adrlist (msg->env->cc, optarg);
+      break;
 
-      case 'Z':
-       flags |= M_BUFFY | M_IGNORE;
-       break;
+    case 'e':
+      commands = mutt_add_list (commands, optarg);
+      break;
 
-      default:
-       mutt_usage ();
-    }
+    case 'H':
+      draftFile = optarg;
+      break;
+
+    case 'i':
+      includeFile = optarg;
+      break;
+
+    case 'n':
+      flags |= M_NOSYSRC;
+      break;
+
+    case 'p':
+      sendflags |= SENDPOSTPONED;
+      break;
+
+    case 'R':
+      flags |= M_RO;            /* read-only mode */
+      break;
+
+    case 's':
+      subject = optarg;
+      break;
+
+    case 'v':
+      version++;
+      break;
 
-  switch (version)
-  {
-    case 0:
+    case 'z':
+      flags |= M_IGNORE;
       break;
-    case 1:
-      show_version ();
+
+    case 'Z':
+      flags |= M_BUFFY | M_IGNORE;
       break;
+
     default:
-      puts (mutt_make_version ());
-      puts (_(Copyright));
-      puts (_(ReachingUs));
-      exit (0);
+      mutt_usage ();
+    }
+
+  if (version) {
+    show_version ();
   }
 
   /* Check for a batch send. */
-  if (!isatty (0) || queries || alias_queries)
-  {
-    set_option (OPTNOCURSES);
+  if (!isatty (0)) {
+    set_option(OPTNOCURSES);
     sendflags = SENDBATCH;
   }
 
   /* This must come before mutt_init() because curses needs to be started
      before calling the init_pair() function to set the color scheme.  */
-  if (!option (OPTNOCURSES))
-    start_curses ();
+  if (!option (OPTNOCURSES)) {
+    km_init();
+    curses_initialize();
+    mutt_signal_initialize();
+  }
 
   /* set defaults and read init files */
   mutt_init (flags & M_NOSYSRC, commands);
-  mutt_free_list (&commands);
-
-  /* Initialize crypto backends.  */
-  crypt_init ();
-
-  if (queries)
-    return mutt_query_variables (queries);
+  string_list_wipe(&commands);
 
-  if (alias_queries)
-  {
-    int rv = 0;
-    ADDRESS *a;
-    for (; alias_queries; alias_queries = alias_queries->next)
-    {
-      if ((a = mutt_lookup_alias (alias_queries->data)))
-      {        
-       /* output in machine-readable form */
-       mutt_addrlist_to_idna (a, NULL);
-       mutt_write_address_list (a, stdout, 0, 0);
-      }
-      else
-      {
-       rv = 1;
-       printf ("%s\n", alias_queries->data);
-      }
-    }
-    return rv;
-  }
-  
-  if (newMagic)
-    mx_set_magic (newMagic);
-
-  if (!option (OPTNOCURSES))
-  {
-    SETCOLOR (MT_COLOR_NORMAL);
-    clear ();
-    mutt_error = mutt_curses_error;
-    mutt_message = mutt_curses_message;
+  if (!option(OPTNOCURSES)) {
+      ui_layout_init();
   }
 
   /* Create the Maildir directory if it doesn't exist. */
-  if (!option (OPTNOCURSES) && Maildir)
-  {
+  if (!option(OPTNOCURSES) && Maildir) {
     struct stat sb;
     char fpath[_POSIX_PATH_MAX];
-    char msg[STRING];
+    char mesg[STRING];
 
-    strfcpy (fpath, Maildir, sizeof (fpath));
+    m_strcpy(fpath, sizeof(fpath), Maildir);
     mutt_expand_path (fpath, sizeof (fpath));
-#ifdef USE_IMAP
     /* we're not connected yet - skip mail folder creation */
-    if (!mx_is_imap (fpath))
-#endif
-    if (stat (fpath, &sb) == -1 && errno == ENOENT)
-    {
-      snprintf (msg, sizeof (msg), _("%s does not exist. Create it?"), Maildir);
-      if (mutt_yesorno (msg, M_YES) == M_YES)
-      {
-       if (mkdir (fpath, 0700) == -1 && errno != EEXIST)
-         mutt_error ( _("Can't create %s: %s."), Maildir, strerror (errno));
+    if (mx_get_magic (fpath) != M_IMAP)
+      if (stat (fpath, &sb) == -1 && errno == ENOENT) {
+        snprintf (mesg, sizeof (mesg), _("%s does not exist. Create it?"),
+                  Maildir);
+        if (mutt_yesorno (mesg, M_YES) == M_YES) {
+          if (mkdir (fpath, 0700) == -1 && errno != EEXIST)
+            mutt_error (_("Can't create %s: %s."), Maildir, strerror (errno));
+        }
       }
-    }
   }
 
-  if (sendflags & SENDPOSTPONED)
-  {
+  if (sendflags & SENDPOSTPONED) {
     if (!option (OPTNOCURSES))
       mutt_flushinp ();
     ci_send_message (SENDPOSTPONED, NULL, NULL, NULL, NULL);
     mutt_endwin (NULL);
   }
-  else if (subject || msg || sendflags || draftFile || includeFile || attach ||
-          optind < argc)
-  {
+  else if (subject || msg || sendflags || draftFile || includeFile || attach
+           || optind < argc) {
     FILE *fin = NULL;
     char buf[LONG_STRING];
     char *tempfile = NULL, *infile = NULL;
     char *bodytext = NULL;
-    
+    FILE *fout;
+
     if (!option (OPTNOCURSES))
       mutt_flushinp ();
 
     if (!msg)
-      msg = mutt_new_header ();
+      msg = header_new();
 
     if (draftFile)
       infile = draftFile;
-    else
-    {
+    else {
       if (!msg->env)
-       msg->env = mutt_new_envelope ();
-
-      for (i = optind; i < argc; i++)
-      {
-       if (url_check_scheme (argv[i]) == U_MAILTO)
-         url_parse_mailto (msg->env, &bodytext, argv[i]);
-       else
-         msg->env->to = rfc822_parse_adrlist (msg->env->to, argv[i]);
+        msg->env = envelope_new();
+
+      for (i = optind; i < argc; i++) {
+        if (url_check_scheme (argv[i]) == U_MAILTO)
+          url_parse_mailto (msg->env, &bodytext, argv[i]);
+        else
+          msg->env->to = rfc822_parse_adrlist (msg->env->to, argv[i]);
       }
 
-      if (option (OPTAUTOEDIT) && !msg->env->to && !msg->env->cc)
-      {
-       if (!option (OPTNOCURSES))
-         mutt_endwin (NULL);
-       fputs (_("No recipients specified.\n"), stderr);
-       exit (1);
+      if (option (OPTAUTOEDIT) && !msg->env->to && !msg->env->cc) {
+        if (!option (OPTNOCURSES))
+          mutt_endwin (NULL);
+        fputs (_("No recipients specified.\n"), stderr);
+        exit (1);
       }
 
       if (subject)
-       msg->env->subject = safe_strdup (subject);
+        msg->env->subject = m_strdup(subject);
 
       if (includeFile)
-       infile = includeFile;
+        infile = includeFile;
     }
 
-    if (infile || bodytext)
-    {
-      if (infile)
-      {
-       if (mutt_strcmp ("-", infile) == 0)
-         fin = stdin;
-       else 
-       {
-         char path[_POSIX_PATH_MAX];
-         
-         strfcpy (path, infile, sizeof (path));
-         mutt_expand_path (path, sizeof (path));
-         if ((fin = fopen (path, "r")) == NULL)
-         {
-           if (!option (OPTNOCURSES))
-             mutt_endwin (NULL);
-           perror (path);
-           exit (1);
-         }
-       }
+    if (infile || bodytext) {
+      if (infile) {
+        if (m_strcmp("-", infile) == 0)
+          fin = stdin;
+        else {
+          char path[_POSIX_PATH_MAX];
+
+          m_strcpy(path, sizeof(path), infile);
+          mutt_expand_path (path, sizeof (path));
+          if ((fin = fopen (path, "r")) == NULL) {
+            if (!option (OPTNOCURSES))
+              mutt_endwin (NULL);
+            perror (path);
+            exit (1);
+          }
+        }
       }
       else
-       fin = NULL;
-
-      mutt_mktemp (buf);
-      tempfile = safe_strdup (buf);
+        fin = NULL;
 
       if (draftFile)
-       msg->env = mutt_read_rfc822_header (fin, NULL, 1, 0);
+        msg->env = mutt_read_rfc822_header (fin, NULL, 1, 0);
 
       /* is the following if still needed? */
-      
-      if (tempfile)
-      {
-       FILE *fout;
-
-       if ((fout = safe_fopen (tempfile, "w")) == NULL)
-       {
-         if (!option (OPTNOCURSES))
-           mutt_endwin (NULL);
-         perror (tempfile);
-         fclose (fin);
-         FREE (&tempfile);
-         exit (1);
-       }
-       if (fin)
-         mutt_copy_stream (fin, fout);
-       else if (bodytext)
-         fputs (bodytext, fout);
-       fclose (fout);
-       if (fin && fin != stdin)
-         fclose (fin);
+
+      fout = m_tempfile(buf, sizeof(buf), NONULL(mod_core.tmpdir), NULL);
+      tempfile = m_strdup(buf);
+
+      if (tempfile) {
+        if (!fout) {
+          if (!option (OPTNOCURSES))
+            mutt_endwin (NULL);
+          perror (tempfile);
+          m_fclose(&fin);
+          p_delete(&tempfile);
+          exit (1);
+        }
+        if (fin)
+          mutt_copy_stream (fin, fout);
+        else if (bodytext)
+          fputs (bodytext, fout);
+        m_fclose(&fout);
+        if (fin && fin != stdin)
+          m_fclose(&fin);
       }
     }
 
-    FREE (&bodytext);
-    
-    if (attach)
-    {
-      LIST *t = attach;
+    p_delete(&bodytext);
+
+    if (attach) {
+      string_list_t *t = attach;
       BODY *a = NULL;
 
-      while (t)
-      {
-       if (a)
-       {
-         a->next = mutt_make_file_attach (t->data);
-         a = a->next;
-       }
-       else
-         msg->content = a = mutt_make_file_attach (t->data);
-       if (!a)
-       {
-         if (!option (OPTNOCURSES))
-           mutt_endwin (NULL);
-         fprintf (stderr, _("%s: unable to attach file.\n"), t->data);
-         mutt_free_list (&attach);
-         exit (1);
-       }
-       t = t->next;
+      while (t) {
+        if (a) {
+          a->next = mutt_make_file_attach (t->data);
+          a = a->next;
+        }
+        else
+          msg->content = a = mutt_make_file_attach (t->data);
+        if (!a) {
+          if (!option (OPTNOCURSES))
+            mutt_endwin (NULL);
+          fprintf (stderr, _("%s: unable to attach file.\n"), t->data);
+          string_list_wipe(&attach);
+          exit (1);
+        }
+        t = t->next;
       }
-      mutt_free_list (&attach);
+      string_list_wipe(&attach);
     }
 
     ci_send_message (sendflags, msg, tempfile, NULL, NULL);
@@ -943,85 +452,51 @@ int main (int argc, char **argv)
     if (!option (OPTNOCURSES))
       mutt_endwin (NULL);
   }
-  else
-  {
-    if (flags & M_BUFFY)
-    {
-      if (!mutt_buffy_check (0))
-      {
-       mutt_endwin _("No mailbox with new mail.");
-       exit (1);
-      }
-      folder[0] = 0;
-      mutt_buffy (folder, sizeof (folder));
-    }
-    else if (flags & M_SELECT)
-    {
-#ifdef USE_NNTP
-      if (flags & M_NEWS)
-      {
-       set_option (OPTNEWS);
-       if(!(CurrentNewsSrv = mutt_select_newsserver (NewsServer)))
-       {
-         mutt_endwin (Errorbuf);
-         exit (1);
-       }
-      }
-      else
-#endif
-      if (!Incoming) {
-       mutt_endwin _("No incoming mailboxes defined.");
-       exit (1);
+  else {
+    if (flags & M_BUFFY) {
+      if (!buffy_check (0)) {
+        mutt_endwin _("No mailbox with new mail.");
+
+        exit (1);
       }
       folder[0] = 0;
-      mutt_select_file (folder, sizeof (folder), M_SEL_FOLDER | M_SEL_BUFFY);
-      if (!folder[0])
-      {
-       mutt_endwin (NULL);
-       exit (0);
-      }
+      buffy_next (folder, sizeof (folder));
     }
 
     if (!folder[0])
-      strfcpy (folder, NONULL(Spoolfile), sizeof (folder));
+      m_strcpy(folder, sizeof(folder), NONULL(Spoolfile));
 
-#ifdef USE_NNTP
-    if (option (OPTNEWS))
-    {
-      unset_option (OPTNEWS);
-      nntp_expand_path (folder, sizeof (folder), &CurrentNewsSrv->conn->account);
-    }
-    else
-#endif
     mutt_expand_path (folder, sizeof (folder));
+    m_strreplace(&CurrentFolder, folder);
+    m_strreplace(&LastFolder, folder);
 
-    mutt_str_replace (&LastFolder, folder);
-
-    if (flags & M_IGNORE)
-    {
+    if (flags & M_IGNORE) {
       /* check to see if there are any messages in the folder */
-      switch (mx_check_empty (folder))
-      {
-       case -1:
-         mutt_endwin (strerror (errno));
-         exit (1);
-       case 1:
-         mutt_endwin _("Mailbox is empty.");
-         exit (1);
+      switch (mx_check_empty (folder)) {
+      case -1:
+        mutt_endwin (strerror (errno));
+        exit (1);
+      case 1:
+        mutt_endwin _("Mailbox is empty.");
+        exit (1);
       }
     }
 
     mutt_folder_hook (folder);
 
-    if((Context = mx_open_mailbox (folder, ((flags & M_RO) || option (OPTREADONLY)) ? M_READONLY : 0, NULL))
-       || !explicit_folder)
+    if ((Context = mx_open_mailbox(folder, (flags & M_RO) ?  M_READONLY : 0,
+                                   NULL)) || !explicit_folder)
     {
       mutt_index_menu ();
+      if (option (OPTXTERMSETTITLES))
+        printf("\033]2;%s\007", NONULL(XtermLeave));
       if (Context)
-       FREE (&Context);
+        p_delete(&Context);
     }
     mutt_endwin (Errorbuf);
   }
 
+  luaM_shutdown();
+  mutt_sasl_shutdown();
   exit (0);
 }