main.c

   1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
   2  *@ Startup and initialization.
   3  *@ This file is also used to materialize externals.
   4  *
   5  * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
   6  * Copyright (c) 2012 - 2017 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
   7  */
   8 /*
   9  * Copyright (c) 1980, 1993
  10  *      The Regents of the University of California.  All rights reserved.
  11  *
  12  * Redistribution and use in source and binary forms, with or without
  13  * modification, are permitted provided that the following conditions
  14  * are met:
  15  * 1. Redistributions of source code must retain the above copyright
  16  *    notice, this list of conditions and the following disclaimer.
  17  * 2. Redistributions in binary form must reproduce the above copyright
  18  *    notice, this list of conditions and the following disclaimer in the
  19  *    documentation and/or other materials provided with the distribution.
  20  * 3. Neither the name of the University nor the names of its contributors
  21  *    may be used to endorse or promote products derived from this software
  22  *    without specific prior written permission.
  23  *
  24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34  * SUCH DAMAGE.
  35  */
  36 #undef n_FILE
  37 #define n_FILE main
  38 #define n_MAIN_SOURCE
  39
  40 #include "nail.h"
  41
  42 #include <sys/ioctl.h>
  43
  44 #include <pwd.h>
  45
  46 struct a_arg{
  47    struct a_arg *aa_next;
  48    char const *aa_file;
  49 };
  50
  51 /* (extern, but not with amalgamation, so define here) */
  52 VL char const n_weekday_names[7 + 1][4] = {
  53    "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", ""
  54 };
  55 VL char const n_month_names[12 + 1][4] = {
  56    "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  57    "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", ""
  58 };
  59 VL char const n_uagent[sizeof VAL_UAGENT] = VAL_UAGENT;
  60 VL char const n_error[sizeof n_ERROR] = N_(n_ERROR);
  61 VL char const n_path_devnull[sizeof n_PATH_DEVNULL] = n_PATH_DEVNULL;
  62 VL char const n_reproducible_name[sizeof "reproducible_build"] =
  63       "reproducible_build";
  64 VL char const n_unirepl[sizeof n_UNIREPL] = n_UNIREPL;
  65 VL char const n_empty[1] = "";
  66 VL char const n_0[2] = "0";
  67 VL char const n_1[2] = "1";
  68 VL char const n_m1[3] = "-1";
  69 VL char const n_qm[2] = "?";
  70 VL char const n_em[2] = "!";
  71 VL char const n_star[2] = "*";
  72 VL char const n_at[2] = "@";
  73 VL char const n_ns[2] = "#";
  74 VL ui16_t const n_class_char[1 + 0x7F] = {
  75 #define a_BC C_BLANK | C_CNTRL
  76 #define a_SC C_SPACE | C_CNTRL
  77 #define a_WC C_WHITE | C_CNTRL
  78 /* 000 nul  001 soh  002 stx  003 etx  004 eot  005 enq  006 ack  007 bel */
  79    C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL,
  80 /* 010 bs   011 ht   012 nl   013 vt   014 np   015 cr   016 so   017 si */
  81    C_CNTRL, a_BC,    a_WC,    a_SC,    a_SC,    a_SC,    C_CNTRL, C_CNTRL,
  82 /* 020 dle  021 dc1  022 dc2  023 dc3  024 dc4  025 nak  026 syn  027 etb */
  83    C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL,
  84 /* 030 can  031 em   032 sub  033 esc  034 fs   035 gs   036 rs   037 us */
  85    C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL,
  86 #undef a_WC
  87 #undef a_SC
  88 #undef a_BC
  89 /* 040 sp   041  !   042  "   043  #   044  $   045  %   046  &   047  ' */
  90    C_BLANK, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
  91 /* 050  (   051  )   052  *   053  +   054  ,    055  -   056  .   057  / */
  92    C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
  93 /* 060  0   061  1   062  2   063  3   064  4   065  5   066  6   067  7 */
  94    C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL,
  95 /* 070  8   071  9   072  :   073  ;   074  <   075  =   076  >   077  ? */
  96    C_DIGIT, C_DIGIT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
  97 /* 100  @   101  A   102  B   103  C   104  D   105  E   106  F   107  G */
  98    C_PUNCT, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER,
  99 /* 110  H   111  I   112  J   113  K   114  L   115  M   116  N   117  O */
 100    C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER,
 101 /* 120  P   121  Q   122  R   123  S   124  T   125  U   126  V   127  W */
 102    C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER,
 103 /* 130  X   131  Y   132  Z   133  [   134  \   135  ]   136  ^   137  _ */
 104    C_UPPER, C_UPPER, C_UPPER, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
 105 /* 140  `   141  a   142  b   143  c   144  d   145  e   146  f   147  g */
 106    C_PUNCT, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER,
 107 /* 150  h   151  i   152  j   153  k   154  l   155  m   156  n   157  o */
 108    C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER,
 109 /* 160  p   161  q   162  r   163  s   164  t   165  u   166  v   167  w */
 110    C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER,
 111 /* 170  x   171  y   172  z   173  {   174  |   175  }   176  ~   177 del */
 112    C_LOWER, C_LOWER, C_LOWER, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_CNTRL
 113 };
 114
 115 /* Our own little getopt(3) */
 116 static char const *a_main_oarg;
 117 static int a_main_oind, /*_oerr,*/ a_main_oopt;
 118
 119 /* Our own little getopt(3); note --help is special-treated as 'h' */
 120 static int a_main_getopt(int argc, char * const argv[], char const *optstring);
 121
 122 /* */
 123 static void a_main_usage(FILE *fp);
 124
 125 /* Perform basic startup initialization */
 126 static void a_main_startup(void);
 127
 128 /* Grow a char** */
 129 static size_t a_main_grow_cpp(char const ***cpp, size_t newsize, size_t oldcnt);
 130
 131 /* Setup some variables which we require to be valid / verified */
 132 static void a_main_setup_vars(void);
 133
 134 /* We're in an interactive session - compute what the screen size for printing
 135  * headers etc. should be; notify tty upon resize if *is_sighdl* is not 0.
 136  * We use the following algorithm for the height:
 137  * If baud rate < 1200, use  9
 138  * If baud rate = 1200, use 14
 139  * If baud rate > 1200, use 24 or ws_row
 140  * Width is either 80 or ws_col */
 141 static void a_main_setscreensize(int is_sighdl);
 142
 143 /* Ok, we are reading mail.  Decide whether we are editing a mailbox or reading
 144  * the system mailbox, and open up the right stuff */
 145 static int a_main_rcv_mode(char const *folder, char const *Larg);
 146
 147 /* Interrupt printing of the headers */
 148 static void a_main_hdrstop(int signo);
 149
 150 static int
 151 a_main_getopt(int argc, char * const argv[], char const *optstring){
 152    static char const *lastp;
 153    char const *curp;
 154    int rv/*, colon*/;
 155    NYD2_ENTER;
 156
 157    a_main_oarg = NULL;
 158    rv = -1;
 159
 160    /*if((colon = (optstring[0] == ':')))
 161       ++optstring;*/
 162
 163    if(lastp != NULL){
 164       curp = lastp;
 165       lastp = NULL;
 166    }else{
 167       if(a_main_oind >= argc || argv[a_main_oind] == NULL ||
 168             argv[a_main_oind][0] != '-' || argv[a_main_oind][1] == '\0')
 169          goto jleave;
 170       if(argv[a_main_oind][1] == '-' && argv[a_main_oind][2] == '\0'){
 171          /* We need this in for MTA arg detection (easier) ++a_main_oind;*/
 172          goto jleave;
 173       }
 174       curp = &argv[a_main_oind][1];
 175    }
 176
 177    for(a_main_oopt = curp[0]; optstring[0] != '\0';){
 178       if(optstring[0] != a_main_oopt){
 179          optstring += 1 + (optstring[1] == ':');
 180          continue;
 181       }
 182
 183       if(optstring[1] == ':'){
 184          if(curp[1] != '\0'){
 185             a_main_oarg = n_UNCONST(curp + 1);
 186             ++a_main_oind;
 187          }else{
 188             if((a_main_oind += 2) > argc){
 189                /*if(!colon *//*&& _oerr*//*)*/{
 190                   n_err(_("%s: option requires an argument -- %c\n"),
 191                      argv[0], (char)a_main_oopt);
 192                }
 193                rv = (/*colon ? ':' :*/ '?');
 194                goto jleave;
 195             }
 196             a_main_oarg = argv[a_main_oind - 1];
 197          }
 198       }else{
 199          if(curp[1] != '\0')
 200             lastp = curp + 1;
 201          else
 202             ++a_main_oind;
 203       }
 204       rv = a_main_oopt;
 205       goto jleave;
 206    }
 207
 208    /* Special support for --help, which is quite common */
 209    if(a_main_oopt == '-' && !strcmp(curp, "-help") &&
 210          &curp[-1] == argv[a_main_oind]){
 211       ++a_main_oind;
 212       rv = 'h';
 213       goto jleave;
 214    }
 215
 216    /* Definitive error */
 217    /*if(!colon *//*&& opterr*//*)*/
 218       n_err(_("%s: invalid option -- %c\n"), argv[0], a_main_oopt);
 219    if(curp[1] != '\0')
 220       lastp = curp + 1;
 221    else
 222       ++a_main_oind;
 223    a_main_oarg = NULL;
 224    rv = '?';
 225 jleave:
 226    NYD2_LEAVE;
 227    return rv;
 228 }
 229
 230 static void
 231 a_main_usage(FILE *fp){
 232    /* Stay in 24 lines */
 233    char buf[64];
 234    size_t i;
 235    NYD2_ENTER;
 236
 237    i = strlen(n_progname);
 238    i = n_MIN(i, sizeof(buf) -1);
 239    if(i > 0)
 240       memset(buf, ' ', i);
 241    buf[i] = '\0';
 242
 243    fprintf(fp, _("%s (%s %s): send and receive Internet mail\n"),
 244          n_progname, n_uagent, ok_vlook(version));
 245    fprintf(fp, _(
 246          "Send-only mode: send mail \"to-address\" receiver(s):\n"
 247          "  %s [-BdEFinv~#] [-: spec] [-A account]\n"
 248          "  %s [:-a attachment:] [:-b bcc-address:] [:-c cc-address:]\n"
 249          "  %s [-M type | -m file | -q file | -t] [-r from-address]\n"
 250          "  %s [:-S var[=value]:] [-s subject] [:-X cmd:]\n"
 251          "  %s [-.] :to-address: [-- :mta-option:]\n"),
 252          n_progname, buf, buf, buf, buf);
 253    fprintf(fp, _(
 254          "\"Receive\" mode, starting on -u user, primary *inbox* or [$MAIL]:\n"
 255          "  %s [-BdEeHiNnRv~#] [-: spec] [-A account]\n"
 256          "  %s [-L spec] [-r from-address] [:-S var[=value]:]\n"
 257          "  %s [-u user] [:-X cmd:] [-- :mta-option:]\n"),
 258          n_progname, buf, buf);
 259    fprintf(fp, _(
 260          "\"Receive\" mode, starting on -f (secondary $MBOX or [file]):\n"
 261          "  %s [-BdEeHiNnRv~#] [-: spec] [-A account] -f\n"
 262          "  %s [-L spec] [-r from-address] [:-S var[=value]:]\n"
 263          "  %s [:-X cmd:] [file] [-- :mta-option:]\n"),
 264          n_progname, buf, buf);
 265
 266    if(fp != n_stderr)
 267       putc('\n', fp);
 268    fprintf(fp, _(
 269          ". -d sandbox, -:/ no .rc files, -. end options and force send-mode\n"
 270          ". -a attachment[=input-charset[#output-charset]]\n"
 271          ". -b, -c, to-address, (-r): ex@am.ple or '(Lovely) Ex <am@p.le>'\n"
 272          ". -[Mmqt]: special input data (-t: template message on stdin)\n"
 273          ". -e only mail check, -H header summary; both: specification via -L\n"
 274          ". -S sets variables, -X executes commands, -# enters batch mode\n"
 275          ". Features: \"$ %s -Xversion -Xx\", WWW: %s\n"
 276          ". Mail contact: \"$ %s %s\"\n"),
 277          n_progname, ok_vlook(contact_web), n_progname, ok_vlook(contact_mail));
 278    NYD2_LEAVE;
 279 }
 280
 281 static void
 282 a_main_startup(void){
 283    char *cp;
 284    NYD_ENTER;
 285
 286    n_stdin = stdin;
 287    n_stdout = stdout;
 288    n_stderr = stderr;
 289    dflpipe = SIG_DFL;
 290
 291    a_main_oind = /*_oerr =*/ 1;
 292
 293    if((cp = strrchr(n_progname, '/')) != NULL)
 294       n_progname = ++cp;
 295
 296 #ifdef HAVE_NYD
 297    safe_signal(SIGABRT, &_nyd_oncrash);
 298 # ifdef SIGBUS
 299    safe_signal(SIGBUS, &_nyd_oncrash);
 300 # endif
 301    safe_signal(SIGFPE, &_nyd_oncrash);
 302    safe_signal(SIGILL, &_nyd_oncrash);
 303    safe_signal(SIGSEGV, &_nyd_oncrash);
 304 #endif
 305
 306    /* Initialize our input, loop and command machinery */
 307    n_go_init();
 308
 309    /* Set up a reasonable environment */
 310
 311    /* TODO This is wrong: interactive is STDIN/STDERR for a POSIX sh(1).
 312     * TODO For now we get this wrong, all over the place, as this software
 313     * TODO has always been developed with stdout as an output channel.
 314     * TODO Start doing it right for at least explicit terminal-related things,
 315     * TODO but v15 should use ONLY this, also for terminal input! */
 316    if(isatty(STDIN_FILENO)){
 317       n_psonce |= n_PSO_TTYIN;
 318 #if defined HAVE_MLE || defined HAVE_TERMCAP
 319       n_tty_fp = fdopen(fileno(n_stdin), "w");
 320       setvbuf(n_tty_fp, NULL, _IOLBF, 0);
 321 #endif
 322    }
 323    if(isatty(STDOUT_FILENO))
 324       n_psonce |= n_PSO_TTYOUT;
 325    if((n_psonce & (n_PSO_TTYIN | n_PSO_TTYOUT)) ==
 326          (n_PSO_TTYIN | n_PSO_TTYOUT)){
 327       n_psonce |= n_PSO_INTERACTIVE;
 328       safe_signal(SIGPIPE, dflpipe = SIG_IGN);
 329    }
 330
 331    /* STDOUT is always line buffered from our point of view */
 332    setvbuf(n_stdout, NULL, _IOLBF, 0);
 333    if(n_tty_fp == NULL)
 334       n_tty_fp = n_stdout;
 335
 336    /*  --  >8  --  8<  --  */
 337
 338    /* We need the endianess, runtime detected due to OPT_CROSS_BUILD */
 339    /* C99 */{
 340       union {ui16_t bom; ui8_t buf[2];} volatile u;
 341
 342       u.bom = 0xFEFFu;
 343       if(u.buf[1] != 0xFEu)
 344          n_psonce |= n_PSO_BIG_ENDIAN;
 345    }
 346
 347    n_locale_init();
 348
 349 #ifdef HAVE_ICONV
 350    iconvd = (iconv_t)-1;
 351 #endif
 352    NYD_LEAVE;
 353 }
 354
 355 static size_t
 356 a_main_grow_cpp(char const ***cpp, size_t newsize, size_t oldcnt){
 357    /* Just use auto-reclaimed storage, it will be preserved */
 358    char const **newcpp;
 359    NYD_ENTER;
 360
 361    newcpp = salloc(sizeof(char*) * (newsize + 1));
 362
 363    if(oldcnt > 0)
 364       memcpy(newcpp, *cpp, oldcnt * sizeof(char*));
 365    *cpp = newcpp;
 366    NYD_LEAVE;
 367    return newsize;
 368 }
 369
 370 static void
 371 a_main_setup_vars(void){
 372    struct passwd *pwuid;
 373    char const *cp;
 374    NYD_ENTER;
 375
 376    n_group_id = getgid();
 377    if((pwuid = getpwuid(n_user_id = getuid())) == NULL)
 378       n_panic(_("Cannot associate a name with uid %lu"), (ul_i)n_user_id);
 379
 380    /* C99 */{
 381       char const *ep;
 382       bool_t doenv;
 383
 384       if(!(doenv = (ep = ok_vlook(LOGNAME)) == NULL) &&
 385             (doenv = strcmp(pwuid->pw_name, ep)))
 386          n_err(_("Warning: $LOGNAME (%s) not identical to user (%s)!\n"),
 387             ep, pwuid->pw_name);
 388       if(doenv){
 389          n_pstate |= n_PS_ROOT;
 390          ok_vset(LOGNAME, pwuid->pw_name);
 391          n_pstate &= ~n_PS_ROOT;
 392       }
 393
 394       if((ep = ok_vlook(USER)) != NULL && strcmp(pwuid->pw_name, ep)){
 395          n_err(_("Warning: $USER (%s) not identical to user (%s)!\n"),
 396             ep, pwuid->pw_name);
 397          n_pstate |= n_PS_ROOT;
 398          ok_vset(USER, pwuid->pw_name);
 399          n_pstate &= ~n_PS_ROOT;
 400       }
 401    }
 402
 403    /* XXX myfullname = pw->pw_gecos[OPTIONAL!] -> GUT THAT; TODO pw_shell */
 404
 405    /* Ensure some variables get loaded and/or verified */
 406
 407    /* This is not automatized just as $TMPDIR is for the initial setting, since
 408     * we have the pwuid at hand and can simply use it!  See accmacvar.c! */
 409    if((cp = ok_vlook(HOME)) == NULL){
 410       cp = pwuid->pw_dir;
 411       n_pstate |= n_PS_ROOT;
 412       ok_vset(HOME, cp);
 413       n_pstate &= ~n_PS_ROOT;
 414    }
 415
 416    (void)ok_vlook(TMPDIR);
 417    (void)ok_blook(POSIXLY_CORRECT);
 418
 419    /* Are we in a reproducible-builds.org environment? */
 420    if(ok_vlook(SOURCE_DATE_EPOCH) != NULL){
 421       n_psonce |= n_PSO_REPRODUCIBLE;
 422       n_pstate |= n_PS_ROOT;
 423       n_progname = n_reproducible_name;
 424       ok_vset(LOGNAME, n_reproducible_name);
 425       n_pstate &= ~n_PS_ROOT;
 426       cp = savecat(n_reproducible_name, ": ");
 427       ok_vset(log_prefix, cp);
 428    }
 429
 430    if(n_psonce & n_PSO_INTERACTIVE){
 431       a_main_setscreensize(FAL0);
 432 #ifdef SIGWINCH
 433 # ifndef TTY_WANTS_SIGWINCH
 434       if(safe_signal(SIGWINCH, SIG_IGN) != SIG_IGN)
 435 # endif
 436          safe_signal(SIGWINCH, &a_main_setscreensize);
 437 #endif
 438    }else
 439       n_scrnheight = n_realscreenheight = 24, n_scrnwidth = 80;
 440    NYD_LEAVE;
 441 }
 442
 443 static void
 444 a_main_setscreensize(int is_sighdl){/* TODO globl policy; int wraps; minvals! */
 445    struct termios tbuf;
 446 #ifdef TIOCGWINSZ
 447    struct winsize ws;
 448 #elif defined TIOCGSIZE
 449    struct ttysize ts;
 450 #endif
 451    NYD_ENTER;
 452
 453    n_scrnheight = n_realscreenheight = n_scrnwidth = 0;
 454
 455    /* (Also) POSIX: LINES and COLUMNS always override.  Adjust this
 456     * a little bit to be able to honour resizes during our lifetime and
 457     * only honour it upon first run; abuse *is_sighdl* as an indicator */
 458    if(!is_sighdl){
 459       char const *cp;
 460
 461       /* We manage those variables for our child processes, so ensure they
 462        * are up to date, always */
 463       assert(n_psonce & n_PSO_INTERACTIVE);
 464       n_pstate |= n_PS_SIGWINCH_PEND;
 465
 466       if((cp = ok_vlook(LINES)) != NULL){
 467          n_idec_ui32_cp(&n_scrnheight, cp, 0, NULL);
 468          n_realscreenheight = n_scrnheight;
 469       }
 470       if((cp = ok_vlook(COLUMNS)) != NULL)
 471          n_idec_ui32_cp(&n_scrnwidth, cp, 0, NULL);
 472
 473       if(n_scrnwidth != 0 && n_scrnheight != 0)
 474          goto jleave;
 475    }
 476
 477 #ifdef TIOCGWINSZ
 478    if(ioctl(STDOUT_FILENO, TIOCGWINSZ, &ws) == -1)
 479       ws.ws_col = ws.ws_row = 0;
 480 #elif defined TIOCGSIZE
 481    if(ioctl(STDOUT_FILENO, TIOCGSIZE, &ws) == -1)
 482       ts.ts_lines = ts.ts_cols = 0;
 483 #endif
 484
 485    if(n_scrnheight == 0){
 486       speed_t ospeed;
 487
 488       ospeed = ((tcgetattr(fileno(n_tty_fp), &tbuf) == -1)
 489             ? B9600 : cfgetospeed(&tbuf));
 490
 491       if(ospeed < B1200)
 492          n_scrnheight = 9;
 493       else if(ospeed == B1200)
 494          n_scrnheight = 14;
 495 #ifdef TIOCGWINSZ
 496       else if(ws.ws_row != 0)
 497          n_scrnheight = ws.ws_row;
 498 #elif defined TIOCGSIZE
 499       else if(ts.ts_lines != 0)
 500          n_scrnheight = ts.ts_lines;
 501 #endif
 502       else
 503          n_scrnheight = 24;
 504
 505 #if defined TIOCGWINSZ || defined TIOCGSIZE
 506       if(0 ==
 507 # ifdef TIOCGWINSZ
 508             (n_realscreenheight = ws.ws_row)
 509 # else
 510             (n_realscreenheight = ts.ts_lines)
 511 # endif
 512       )
 513          n_realscreenheight = 24;
 514 #endif
 515    }
 516
 517    if(n_scrnwidth == 0 && 0 ==
 518 #ifdef TIOCGWINSZ
 519          (n_scrnwidth = ws.ws_col)
 520 #elif defined TIOCGSIZE
 521          (n_scrnwidth = ts.ts_cols)
 522 #endif
 523    )
 524       n_scrnwidth = 80;
 525
 526 jleave:
 527 #ifdef SIGWINCH
 528    if(is_sighdl){
 529       assert(n_psonce & n_PSO_INTERACTIVE);
 530       n_pstate |= n_PS_SIGWINCH_PEND; /* XXX Not atomic */
 531       n_tty_signal(SIGWINCH);
 532    }
 533 #endif
 534    NYD_LEAVE;
 535 }
 536
 537 static sigjmp_buf a_main__hdrjmp; /* XXX */
 538
 539 static int
 540 a_main_rcv_mode(char const *folder, char const *Larg){
 541    int i;
 542    sighandler_type prevint;
 543    NYD_ENTER;
 544
 545    if(folder == NULL)
 546       folder = "%";
 547
 548    i = (n_poption & n_PO_QUICKRUN_MASK) ? FEDIT_RDONLY : FEDIT_NONE;
 549    i = setfile(folder, i);
 550    if(i < 0){
 551       n_exit_status = n_EXIT_ERR; /* error already reported */
 552       goto jquit;
 553    }
 554    if(n_poption & n_PO_QUICKRUN_MASK){
 555       n_exit_status = i;
 556       if(i == n_EXIT_OK && (!(n_poption & n_PO_EXISTONLY) ||
 557             (n_poption & n_PO_HEADERLIST)))
 558          print_header_summary(Larg);
 559       goto jquit;
 560    }
 561    temporary_folder_hook_check(FAL0);
 562
 563    if(i > 0 && !ok_blook(emptystart)){
 564       n_exit_status = n_EXIT_ERR;
 565       goto jleave;
 566    }
 567
 568    if(sigsetjmp(a_main__hdrjmp, 1) == 0){
 569       if((prevint = safe_signal(SIGINT, SIG_IGN)) != SIG_IGN)
 570          safe_signal(SIGINT, &a_main_hdrstop);
 571       if(!ok_blook(quiet))
 572          fprintf(n_stdout, _("%s version %s.  Type `?' for help\n"),
 573             n_uagent,
 574             (n_psonce & n_PSO_REPRODUCIBLE
 575                ? n_reproducible_name : ok_vlook(version)));
 576       n_folder_announce(n_ANNOUNCE_MAIN_CALL | n_ANNOUNCE_CHANGE);
 577       safe_signal(SIGINT, prevint);
 578    }
 579
 580    /* Enter the command loop */
 581    if(n_psonce & n_PSO_INTERACTIVE)
 582       n_tty_init();
 583    n_go_main_loop();
 584    if(n_psonce & n_PSO_INTERACTIVE)
 585       n_tty_destroy((n_psonce & n_PSO_XIT) != 0);
 586
 587    if(!(n_psonce & n_PSO_XIT)){
 588       if(mb.mb_type == MB_FILE || mb.mb_type == MB_MAILDIR){
 589          safe_signal(SIGHUP, SIG_IGN);
 590          safe_signal(SIGINT, SIG_IGN);
 591          safe_signal(SIGQUIT, SIG_IGN);
 592       }
 593 jquit:
 594       save_mbox_for_possible_quitstuff();
 595       quit(FAL0);
 596    }
 597 jleave:
 598    NYD_LEAVE;
 599    return n_exit_status;
 600 }
 601
 602 static void
 603 a_main_hdrstop(int signo){
 604    NYD_X; /* Signal handler */
 605    n_UNUSED(signo);
 606
 607    fflush(n_stdout);
 608    n_err_sighdl(_("\nInterrupt\n"));
 609    siglongjmp(a_main__hdrjmp, 1);
 610 }
 611
 612 int
 613 main(int argc, char *argv[]){
 614    /* TODO Once v15 control flow/carrier rewrite took place main() should
 615     * TODO be rewritten and option parsing++ should be outsourced.
 616     * TODO Like so we can get rid of some stack locals etc. */
 617    /* Keep in SYNC: ./nail.1:"SYNOPSIS, main() */
 618    static char const optstr[] =
 619          "A:a:Bb:c:dEeFfHhiL:M:m:NnO:q:Rr:S:s:tu:VvX:::~#.";
 620    int i;
 621    char *cp;
 622    enum{
 623       a_RF_NONE = 0,
 624       a_RF_SET = 1<<0,
 625       a_RF_SYSTEM = 1<<1,
 626       a_RF_USER = 1<<2,
 627       a_RF_ALL = a_RF_SYSTEM | a_RF_USER
 628    } resfiles;
 629    size_t oargs_size, oargs_cnt, Xargs_size, Xargs_cnt, smopts_size;
 630    char const *Aarg, *emsg, *folder, *Larg, *okey, **oargs, *qf,
 631       *subject, *uarg, **Xargs;
 632    struct attachment *attach;
 633    struct name *to, *cc, *bcc;
 634    struct a_arg *a_head, *a_curr;
 635    NYD_ENTER;
 636
 637    a_head = NULL;
 638    n_UNINIT(a_curr, NULL);
 639    to = cc = bcc = NULL;
 640    attach = NULL;
 641    Aarg = emsg = folder = Larg = okey = qf = subject = uarg = NULL;
 642    oargs = Xargs = NULL;
 643    oargs_size = oargs_cnt = Xargs_size = Xargs_cnt = smopts_size = 0;
 644    resfiles = a_RF_ALL;
 645
 646    /*
 647     * Start our lengthy setup, finalize by setting n_PSO_STARTED
 648     */
 649
 650    n_progname = argv[0];
 651    a_main_startup();
 652
 653    /* Command line parsing
 654     * -S variable settings need to be done twice, since the user surely wants
 655     * the setting to take effect immediately, but also doesn't want it to be
 656     * overwritten from within resource files */
 657    while((i = a_main_getopt(argc, argv, optstr)) >= 0){
 658       switch(i){
 659       case 'A':
 660          /* Execute an account command later on */
 661          Aarg = a_main_oarg;
 662          break;
 663       case 'a':{
 664          struct a_arg *nap;
 665
 666          n_psonce |= n_PSO_SENDMODE;
 667          nap = salloc(sizeof(struct a_arg));
 668          if(a_head == NULL)
 669             a_head = nap;
 670          else
 671             a_curr->aa_next = nap;
 672          nap->aa_next = NULL;
 673          nap->aa_file = a_main_oarg;
 674          a_curr = nap;
 675       }  break;
 676       case 'B':
 677          n_OBSOLETE(_("-B is obsolete, please use -# as necessary"));
 678          break;
 679       case 'b':
 680          /* Get Blind Carbon Copy Recipient list */
 681          n_psonce |= n_PSO_SENDMODE;
 682          bcc = cat(bcc, lextract(a_main_oarg, GBCC | GFULL));
 683          break;
 684       case 'c':
 685          /* Get Carbon Copy Recipient list */
 686          n_psonce |= n_PSO_SENDMODE;
 687          cc = cat(cc, lextract(a_main_oarg, GCC | GFULL));
 688          break;
 689       case 'd':
 690          ok_bset(debug);
 691          okey = "debug";
 692          goto joarg;
 693       case 'E':
 694          n_OBSOLETE(_("-E will be removed, please use \"-Sskipemptybody\""));
 695          ok_bset(skipemptybody);
 696          okey = "skipemptybody";
 697          goto joarg;
 698       case 'e':
 699          n_poption |= n_PO_EXISTONLY;
 700          break;
 701       case 'F':
 702          n_poption |= n_PO_F_FLAG;
 703          n_psonce |= n_PSO_SENDMODE;
 704          break;
 705       case 'f':
 706          /* User is specifying file to "edit" with Mail, as opposed to reading
 707           * system mailbox.  If no argument is given, we read his mbox file.
 708           * Check for remaining arguments later */
 709          folder = "&";
 710          break;
 711       case 'H':
 712          n_poption |= n_PO_HEADERSONLY;
 713          break;
 714       case 'h':
 715          a_main_usage(n_stdout);
 716          goto j_leave;
 717       case 'i':
 718          /* Ignore interrupts */
 719          ok_bset(ignore);
 720          okey = "ignore";
 721          goto joarg;
 722       case 'L':
 723          Larg = a_main_oarg;
 724          n_poption |= n_PO_HEADERLIST;
 725          if(*Larg == '"' || *Larg == '\''){ /* TODO list.c:listspec_check() */
 726             size_t j;
 727
 728             j = strlen(++Larg);
 729             if(j > 0){
 730                cp = savestrbuf(Larg, --j);
 731                Larg = cp;
 732             }
 733          }
 734          break;
 735       case 'M':
 736          if(qf != NULL && (!(n_poption & n_PO_Mm_FLAG) || qf != (char*)-1))
 737             goto jeMmq;
 738          n_poption_arg_Mm = a_main_oarg;
 739          qf = (char*)-1;
 740          if(0){
 741             /* FALLTHRU*/
 742       case 'm':
 743             if(qf != NULL && (!(n_poption & n_PO_Mm_FLAG) || qf == (char*)-1))
 744                goto jeMmq;
 745             qf = a_main_oarg;
 746          }
 747          n_poption |= n_PO_Mm_FLAG;
 748          n_psonce |= n_PSO_SENDMODE;
 749          break;
 750       case 'N':
 751          /* Avoid initial header printing */
 752          ok_bclear(header);
 753          okey = "noheader";
 754          goto joarg;
 755       case 'n':
 756          /* Don't source "unspecified system start-up file" */
 757          if(resfiles & a_RF_SET){
 758             emsg = N_("-n cannot be used in conjunction with -:");
 759             goto jusage;
 760          }
 761          resfiles = a_RF_USER;
 762          break;
 763       case 'O':
 764          /* Additional options to pass-through to MTA TODO v15-compat legacy */
 765          if(n_smopts_cnt == smopts_size)
 766             smopts_size = a_main_grow_cpp(&n_smopts, smopts_size + 8,
 767                   n_smopts_cnt);
 768          n_smopts[n_smopts_cnt++] = a_main_oarg;
 769          break;
 770       case 'q':
 771          if(qf != NULL && (n_poption & n_PO_Mm_FLAG)){
 772 jeMmq:
 773             emsg = N_("Only one of -M, -m or -q may be given");
 774             goto jusage;
 775          }
 776          /* Quote file TODO drop? -Q with real quote?? what ? */
 777          n_psonce |= n_PSO_SENDMODE;
 778          /* Allow for now, we have to special check validity of -q- later on! */
 779          qf = (a_main_oarg[0] == '-' && a_main_oarg[1] == '\0')
 780                ? (char*)-1 : a_main_oarg;
 781          break;
 782       case 'R':
 783          /* Open folders read-only */
 784          n_poption |= n_PO_R_FLAG;
 785          break;
 786       case 'r':
 787          /* Set From address. */
 788          n_poption |= n_PO_r_FLAG;
 789          if(a_main_oarg[0] != '\0'){
 790             struct name *fa;
 791
 792             fa = nalloc(a_main_oarg, GSKIN | GFULL | GFULLEXTRA);
 793             if(is_addr_invalid(fa, EACM_STRICT | EACM_NOLOG)){
 794                emsg = N_("Invalid address argument with -r");
 795                goto jusage;
 796             }
 797             n_poption_arg_r = fa;
 798             /* TODO -r options is set in n_smopts, but may
 799              * TODO be overwritten by setting from= in
 800              * TODO an interactive session!
 801              * TODO Maybe disable setting of from?
 802              * TODO Warn user?  Update manual!! */
 803             okey = savecat("from=", fa->n_fullname);
 804             goto joarg;
 805          }
 806          break;
 807       case 'S':
 808          /* Set variable (TODO twice [only if successful]) */
 809          {  char const *a[2];
 810             bool_t b;
 811
 812             okey = a[0] = a_main_oarg;
 813             a[1] = NULL;
 814             n_pstate |= n_PS_ROBOT;
 815             b = (c_set(a) == 0);
 816             n_pstate &= ~n_PS_ROBOT;
 817             if(!b)
 818                break;
 819          }
 820 joarg:
 821          if(oargs_cnt == oargs_size)
 822             oargs_size = a_main_grow_cpp(&oargs, oargs_size + 8, oargs_cnt);
 823          oargs[oargs_cnt++] = okey;
 824          break;
 825       case 's':
 826          /* Subject:; take care for Debian #419840 and strip any \r and \n */
 827          if(n_anyof_cp("\n\r", subject = a_main_oarg)){
 828             n_err(_("-s: normalizing away invalid ASCII NL / CR bytes\n"));
 829             for(subject = cp = savestr(a_main_oarg); *cp != '\0'; ++cp)
 830                if(*cp == '\n' || *cp == '\r')
 831                   *cp = ' ';
 832          }
 833          n_psonce |= n_PSO_SENDMODE;
 834          break;
 835       case 't':
 836          /* Read defined set of headers from mail to be sent */
 837          n_poption |= n_PO_t_FLAG;
 838          n_psonce |= n_PSO_SENDMODE;
 839          break;
 840       case 'u':
 841          uarg = savecat("%", a_main_oarg);
 842          break;
 843       case 'V':
 844          fprintf(n_stdout, _("%s version %s\n"), n_uagent, ok_vlook(version));
 845          n_exit_status = n_EXIT_OK;
 846          goto j_leave;
 847       case 'v':
 848          /* Be verbose */
 849          ok_bset(verbose);
 850          okey = "verbose";
 851          goto joarg;
 852       case 'X':
 853          /* Add to list of commands to exec before entering normal operation */
 854          if(Xargs_cnt == Xargs_size)
 855             Xargs_size = a_main_grow_cpp(&Xargs, Xargs_size + 8, Xargs_cnt);
 856          Xargs[Xargs_cnt++] = a_main_oarg;
 857          break;
 858       case ':':
 859          /* Control which resource files shall be loaded */
 860          if(!(resfiles & (a_RF_SET | a_RF_SYSTEM))){
 861             emsg = N_("-n cannot be used in conjunction with -:");
 862             goto jusage;
 863          }
 864          resfiles = a_RF_SET;
 865          while((i = *a_main_oarg++) != '\0')
 866             switch(i){
 867             case 'S': case 's': resfiles |= a_RF_SYSTEM; break;
 868             case 'U': case 'u': resfiles |= a_RF_USER; break;
 869             case ':': case '/': resfiles &= ~a_RF_ALL; break;
 870             default:
 871                emsg = N_("Invalid argument of -:");
 872                goto jusage;
 873             }
 874          break;
 875       case '~':
 876          /* Enable command escapes even in non-interactive mode */
 877          n_poption |= n_PO_TILDE_FLAG;
 878          break;
 879       case '#':
 880          /* Work in batch mode, even if non-interactive */
 881          if(!(n_psonce & n_PSO_INTERACTIVE))
 882             setvbuf(n_stdin, NULL, _IOLBF, 0);
 883          n_poption |= n_PO_TILDE_FLAG | n_PO_BATCH_FLAG;
 884          folder = n_path_devnull;
 885          if(oargs_cnt + 10 >= oargs_size)
 886             oargs_size = a_main_grow_cpp(&oargs, oargs_size + 11, oargs_cnt);
 887          n_pstate |= n_PS_ROBOT; /* (be silent unsetting undefined variables) */
 888          ok_vset(MAIL, folder), oargs[oargs_cnt++] = "MAIL=" n_PATH_DEVNULL;
 889          ok_vset(MBOX, folder), oargs[oargs_cnt++] = "MBOX=" n_PATH_DEVNULL;
 890          ok_bset(emptystart), oargs[oargs_cnt++] = "emptystart";
 891          ok_bclear(errexit), oargs[oargs_cnt++] = "noerrexit";
 892          ok_bclear(header), oargs[oargs_cnt++] = "noheader";
 893          ok_vset(inbox, folder), oargs[oargs_cnt++] = "inbox=" n_PATH_DEVNULL;
 894          ok_bclear(posix), oargs[oargs_cnt++] = "noposix";
 895          ok_bset(quiet), oargs[oargs_cnt++] = "quiet";
 896          ok_bset(sendwait), oargs[oargs_cnt++] = "sendwait";
 897          ok_bset(typescript_mode), oargs[oargs_cnt++] = "typescript-mode";
 898          n_pstate &= ~n_PS_ROBOT;
 899          break;
 900       case '.':
 901          n_psonce |= n_PSO_SENDMODE;
 902          goto jgetopt_done;
 903       case '?':
 904 jusage:
 905          if(emsg != NULL)
 906             n_err("%s\n", V_(emsg));
 907          a_main_usage(n_stderr);
 908          n_exit_status = n_EXIT_USE;
 909          goto j_leave;
 910       }
 911    }
 912 jgetopt_done:
 913    ;
 914
 915    /* The normal arguments may be followed by MTA arguments after a "--";
 916     * however, -f may take off an argument, too, and before that.
 917     * Since MTA arguments after "--" require *expandargv*, delay parsing off
 918     * those options until after the resource files are loaded... */
 919    if((cp = argv[i = a_main_oind]) == NULL)
 920       ;
 921    else if(cp[0] == '-' && cp[1] == '-' && cp[2] == '\0')
 922       ++i;
 923    /* n_PO_BATCH_FLAG sets to /dev/null, but -f can still be used and sets & */
 924    else if(folder != NULL && /*folder[0] == '&' &&*/ folder[1] == '\0'){
 925       folder = cp;
 926       if((cp = argv[++i]) != NULL){
 927          if(cp[0] != '-' || cp[1] != '-' || cp[2] != '\0'){
 928             emsg = N_("More than one file given with -f");
 929             goto jusage;
 930          }
 931          ++i;
 932       }
 933    }else{
 934       n_psonce |= n_PSO_SENDMODE;
 935       for(;;){
 936          to = cat(to, lextract(cp, GTO | GFULL));
 937          if((cp = argv[++i]) == NULL)
 938             break;
 939          if(cp[0] == '-' && cp[1] == '-' && cp[2] == '\0'){
 940             ++i;
 941             break;
 942          }
 943       }
 944    }
 945    a_main_oind = i;
 946
 947    /* ...BUT, since we use salloc() for the MTA n_smopts storage we need to
 948     * allocate the necessary space for them before we fixate that storage! */
 949    while(argv[i] != NULL)
 950       ++i;
 951    if(n_smopts_cnt + i > smopts_size)
 952       DBG(smopts_size =)
 953       a_main_grow_cpp(&n_smopts, n_smopts_cnt + i + 1, n_smopts_cnt);
 954
 955    /* Check for inconsistent arguments, fix some temporaries */
 956    if(n_psonce & n_PSO_SENDMODE){
 957       /* XXX This is only because BATCH_FLAG sets *folder*=/dev/null
 958        * XXX in order to function.  Ideally that would not be needed */
 959       if(folder != NULL && !(n_poption & n_PO_BATCH_FLAG)){
 960          emsg = N_("Cannot give -f and people to send to.");
 961          goto jusage;
 962       }
 963       if(uarg != NULL){
 964          emsg = N_("The -u option cannot be used in send mode");
 965          goto jusage;
 966       }
 967       if(!(n_poption & n_PO_t_FLAG) && to == NULL){
 968          emsg = N_("Send options without primary recipient specified.");
 969          goto jusage;
 970       }
 971       if((n_poption & n_PO_t_FLAG) && qf != NULL){
 972          emsg = N_("The -M, -m, -q and -t options are mutual exclusive.");
 973          goto jusage;
 974       }
 975       if(n_poption & (n_PO_EXISTONLY | n_PO_HEADERSONLY | n_PO_HEADERLIST)){
 976          emsg = N_("The -e, -H and -L options cannot be used in send mode.");
 977          goto jusage;
 978       }
 979       if(n_poption & n_PO_R_FLAG){
 980          emsg = N_("The -R option is meaningless in send mode.");
 981          goto jusage;
 982       }
 983
 984       if(n_psonce & n_PSO_INTERACTIVE){
 985          if(qf == (char*)-1){
 986             if(!(n_poption & n_PO_Mm_FLAG))
 987                emsg = N_("-q can't use standard input when interactive.\n");
 988             goto jusage;
 989          }
 990       }
 991    }else{
 992       if(uarg != NULL && folder != NULL){
 993          emsg = N_("The options -u and -f (and -#) are mutually exclusive");
 994          goto jusage;
 995       }
 996       if((n_poption & (n_PO_EXISTONLY | n_PO_HEADERSONLY)) ==
 997             (n_PO_EXISTONLY | n_PO_HEADERSONLY)){
 998          emsg = N_("The options -e and -H are mutual exclusive");
 999          goto jusage;
1000       }
1001       if((n_poption & (n_PO_HEADERSONLY | n_PO_HEADERLIST) /* TODO OBSOLETE */
1002             ) == (n_PO_HEADERSONLY | n_PO_HEADERLIST))
1003          n_OBSOLETE(_("please use \"-e -L xy\" instead of \"-H -L xy\""));
1004
1005       if(uarg != NULL)
1006          folder = uarg;
1007    }
1008
1009    /*
1010     * Likely to go, perform more setup
1011     */
1012
1013    a_main_setup_vars();
1014
1015    /* Create memory pool snapshot; Memory is auto-reclaimed from now on */
1016    n_memory_pool_fixate();
1017
1018    /* load() any resource files */
1019    if(resfiles & a_RF_ALL){
1020       /* *expand() returns a savestr(), but load() only uses the file name
1021        * for fopen(), so it is safe to do this */
1022       if(resfiles & a_RF_SYSTEM){
1023          bool_t nload;
1024
1025          if((nload = ok_blook(NAIL_NO_SYSTEM_RC)))
1026             n_OBSOLETE(_("Please use $MAILX_NO_SYSTEM_RC instead of "
1027                "$NAIL_NO_SYSTEM_RC"));
1028          if(!nload && !ok_blook(MAILX_NO_SYSTEM_RC) &&
1029                !n_go_load(VAL_SYSCONFDIR "/" VAL_SYSCONFRC))
1030             goto j_leave;
1031       }
1032
1033       if((resfiles & a_RF_USER) &&
1034             !n_go_load(fexpand(ok_vlook(MAILRC), FEXP_LOCAL | FEXP_NOPROTO)))
1035          goto j_leave;
1036
1037       if((cp = ok_vlook(NAIL_EXTRA_RC)) != NULL)
1038          n_OBSOLETE(_("Please use *mailx-extra-rc*, not *NAIL_EXTRA_RC*"));
1039       if((cp != NULL || (cp = ok_vlook(mailx_extra_rc)) != NULL) &&
1040             !n_go_load(fexpand(cp, FEXP_LOCAL | FEXP_NOPROTO)))
1041          goto j_leave;
1042    }
1043
1044    /* Ensure the -S and other command line options take precedence over
1045     * anything that may have been placed in resource files.
1046     * Our "ternary binary" option *verbose* needs special treament */
1047    if((n_poption & (n_PO_VERB | n_PO_VERBVERB)) == n_PO_VERB)
1048       n_poption &= ~n_PO_VERB;
1049    /* ..and be silent when unsetting undefined variables again */
1050    if(oargs_cnt > 0){
1051       n_pstate |= n_PS_ROBOT;
1052       oargs[oargs_cnt] = NULL;
1053       c_set(oargs);
1054       n_pstate &= ~n_PS_ROBOT;
1055    }
1056
1057    /* Cause possible umask(2) to be applied, now that any setting is
1058     * established, and before we change accounts, evaluate commands etc. */
1059    (void)ok_vlook(umask);
1060
1061    /* Additional options to pass-through to MTA, and allowed to do so? */
1062    i = a_main_oind;
1063    if((cp = ok_vlook(expandargv)) != NULL){
1064       bool_t isfail, isrestrict;
1065
1066       isfail = !asccasecmp(cp, "fail");
1067       isrestrict = (!isfail && !asccasecmp(cp, "restrict"));
1068
1069       if((n_poption & n_PO_D_V) && !isfail && !isrestrict && *cp != '\0')
1070          n_err(_("Unknown *expandargv* value: %s\n"), cp);
1071
1072       if((cp = argv[i]) != NULL){
1073          if(isfail || (isrestrict && (!(n_poption & n_PO_TILDE_FLAG) ||
1074                   !(n_psonce & n_PSO_INTERACTIVE)))){
1075             n_err(_("*expandargv* doesn't allow MTA arguments; consider "
1076                "using *mta-arguments*\n"));
1077             n_exit_status = n_EXIT_USE | n_EXIT_SEND_ERROR;
1078             goto jleave;
1079          }
1080          do{
1081             assert(n_smopts_cnt + 1 <= smopts_size);
1082             n_smopts[n_smopts_cnt++] = cp;
1083          }while((cp = argv[++i]) != NULL);
1084       }
1085    }else if(argv[i] != NULL && (n_poption & n_PO_D_V))
1086       n_err(_("*expandargv* not set, ignoring given MTA arguments\n"));
1087
1088    /* We had to wait until the resource files are loaded and any command line
1089     * setting has been restored, but get the termcap up and going before we
1090     * switch account or running commands */
1091 #ifdef n_HAVE_TCAP
1092    if((n_psonce & n_PSO_INTERACTIVE) && !(n_poption & n_PO_QUICKRUN_MASK))
1093       n_termcap_init();
1094 #endif
1095
1096    /* Now we can set the account */
1097    if(Aarg != NULL){
1098       char const *a[2];
1099
1100       a[0] = Aarg;
1101       a[1] = NULL;
1102       c_account(a);
1103    }
1104
1105    /* "load()" commands given on command line */
1106    if(Xargs_cnt > 0){
1107       if(!n_go_Xargs(Xargs, Xargs_cnt))
1108          goto jleave;
1109    }
1110
1111    /* Final tests */
1112    if(n_poption & n_PO_Mm_FLAG){
1113       if(qf == (char*)-1){
1114          if(!n_mimetype_check_mtname(n_poption_arg_Mm)){
1115             n_err(_("Could not find `mimetype' for -M argument: %s\n"),
1116                n_poption_arg_Mm);
1117             n_exit_status = n_EXIT_ERR;
1118             goto jleave;
1119          }
1120       }else if((n_poption_arg_Mm = n_mimetype_classify_filename(qf)) == NULL){
1121          n_err(_("Could not `mimetype'-classify -m argument: %s\n"),
1122             n_shexp_quote_cp(qf, FAL0));
1123          n_exit_status = n_EXIT_ERR;
1124          goto jleave;
1125       }else if(!asccasecmp(n_poption_arg_Mm, "text/plain")) /* TODO no: magic */
1126          n_poption_arg_Mm = NULL;
1127    }
1128
1129    /*
1130     * We're finally completely setup and ready to go
1131     */
1132    n_psonce |= n_PSO_STARTED;
1133
1134    if(!(n_psonce & n_PSO_SENDMODE))
1135       n_exit_status = a_main_rcv_mode(folder, Larg);
1136    else{
1137       /* Now that full mailx(1)-style file expansion is possible handle the
1138        * attachments which we had delayed due to this.
1139        * This may use savestr(), but since we won't enter the command loop we
1140        * don't need to care about that */
1141       for(; a_head != NULL; a_head = a_head->aa_next){
1142          enum n_attach_error aerr;
1143
1144          attach = n_attachment_append(attach, a_head->aa_file, &aerr, NULL);
1145          if(aerr != n_ATTACH_ERR_NONE){
1146             n_exit_status = n_EXIT_ERR;
1147             goto jleave;
1148          }
1149       }
1150
1151       if(n_psonce & n_PSO_INTERACTIVE)
1152          n_tty_init();
1153       mail(to, cc, bcc, subject, attach, qf, ((n_poption & n_PO_F_FLAG) != 0));
1154       if(n_psonce & n_PSO_INTERACTIVE)
1155          n_tty_destroy((n_psonce & n_PSO_XIT) != 0);
1156    }
1157
1158 jleave:
1159   /* Be aware of identical code for `exit' command! */
1160 #ifdef n_HAVE_TCAP
1161    if((n_psonce & n_PSO_INTERACTIVE) && !(n_poption & n_PO_QUICKRUN_MASK))
1162       n_termcap_destroy();
1163 #endif
1164
1165 j_leave:
1166 #if defined HAVE_MEMORY_DEBUG || defined HAVE_NOMEMDBG
1167    n_memory_pool_pop(NULL);
1168 #endif
1169 #if defined HAVE_DEBUG || defined HAVE_DEVEL || defined HAVE_NOMEMDBG
1170    n_memory_reset();
1171 #endif
1172    NYD_LEAVE;
1173    return n_exit_status;
1174 }
1175
1176 /* Source the others in that case! */
1177 #ifdef HAVE_AMALGAMATION
1178 # include "mk-config.h"
1179 #endif
1180
1181 /* s-it-mode */