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) != 0)))
 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          ((n_psonce & (n_PSO_TTYIN | n_PSO_TTYOUT)) &&
 432           (n_poption & n_PO_BATCH_FLAG))){
 433       a_main_setscreensize(FAL0);
 434       if(n_psonce & n_PSO_INTERACTIVE){
 435 #ifdef SIGWINCH
 436 # ifndef TTY_WANTS_SIGWINCH
 437          if(safe_signal(SIGWINCH, SIG_IGN) != SIG_IGN)
 438 # endif
 439             safe_signal(SIGWINCH, &a_main_setscreensize);
 440 #endif
 441       }
 442    }else
 443       n_scrnheight = n_realscreenheight = 24, n_scrnwidth = 80;
 444    NYD_LEAVE;
 445 }
 446
 447 static void
 448 a_main_setscreensize(int is_sighdl){/* TODO globl policy; int wraps; minvals! */
 449    struct termios tbuf;
 450 #ifdef TIOCGWINSZ
 451    struct winsize ws;
 452 #elif defined TIOCGSIZE
 453    struct ttysize ts;
 454 #endif
 455    NYD_ENTER;
 456
 457    n_scrnheight = n_realscreenheight = n_scrnwidth = 0;
 458
 459    /* (Also) POSIX: LINES and COLUMNS always override.  Adjust this
 460     * a little bit to be able to honour resizes during our lifetime and
 461     * only honour it upon first run; abuse *is_sighdl* as an indicator */
 462    if(!is_sighdl){
 463       char const *cp;
 464
 465       if((cp = ok_vlook(LINES)) != NULL){
 466          n_idec_ui32_cp(&n_scrnheight, cp, 0, NULL);
 467          n_realscreenheight = n_scrnheight;
 468       }
 469       if((cp = ok_vlook(COLUMNS)) != NULL)
 470          n_idec_ui32_cp(&n_scrnwidth, cp, 0, NULL);
 471
 472       if(n_scrnwidth != 0 && n_scrnheight != 0)
 473          goto jleave;
 474
 475       /* For batch mode without explicit request, stop now */
 476       if(!(n_psonce & n_PSO_INTERACTIVE)){
 477          n_scrnheight = n_realscreenheight = 24;
 478          n_scrnwidth = 80;
 479          goto jleave;
 480       }
 481    }
 482
 483 #ifdef TIOCGWINSZ
 484    if(ioctl(fileno(n_tty_fp), TIOCGWINSZ, &ws) == -1)
 485       ws.ws_col = ws.ws_row = 0;
 486 #elif defined TIOCGSIZE
 487    if(ioctl(fileno(n_tty_fp), TIOCGSIZE, &ws) == -1)
 488       ts.ts_lines = ts.ts_cols = 0;
 489 #endif
 490
 491    if(n_scrnheight == 0){
 492       speed_t ospeed;
 493
 494       ospeed = ((tcgetattr(fileno(n_tty_fp), &tbuf) == -1)
 495             ? B9600 : cfgetospeed(&tbuf));
 496
 497       if(ospeed < B1200)
 498          n_scrnheight = 9;
 499       else if(ospeed == B1200)
 500          n_scrnheight = 14;
 501 #ifdef TIOCGWINSZ
 502       else if(ws.ws_row != 0)
 503          n_scrnheight = ws.ws_row;
 504 #elif defined TIOCGSIZE
 505       else if(ts.ts_lines != 0)
 506          n_scrnheight = ts.ts_lines;
 507 #endif
 508       else
 509          n_scrnheight = 24;
 510
 511 #if defined TIOCGWINSZ || defined TIOCGSIZE
 512       if(0 ==
 513 # ifdef TIOCGWINSZ
 514             (n_realscreenheight = ws.ws_row)
 515 # else
 516             (n_realscreenheight = ts.ts_lines)
 517 # endif
 518       )
 519          n_realscreenheight = 24;
 520 #endif
 521    }
 522
 523    if(n_scrnwidth == 0 && 0 ==
 524 #ifdef TIOCGWINSZ
 525          (n_scrnwidth = ws.ws_col)
 526 #elif defined TIOCGSIZE
 527          (n_scrnwidth = ts.ts_cols)
 528 #endif
 529    )
 530       n_scrnwidth = 80;
 531
 532    /**/
 533    n_pstate |= n_PS_SIGWINCH_PEND;
 534 #ifdef SIGWINCH
 535    if(is_sighdl && (n_psonce & n_PSO_INTERACTIVE))
 536       n_tty_signal(SIGWINCH);
 537 #endif
 538 jleave:
 539    NYD_LEAVE;
 540 }
 541
 542 static sigjmp_buf a_main__hdrjmp; /* XXX */
 543
 544 static int
 545 a_main_rcv_mode(char const *folder, char const *Larg){
 546    int i;
 547    sighandler_type prevint;
 548    NYD_ENTER;
 549
 550    if(folder == NULL)
 551       folder = "%";
 552 #ifdef HAVE_IMAP
 553    else if(*folder == '@'){
 554       /* This must be treated specially to make possible invocation like
 555        * -A imap -f @mailbox */
 556       char const *cp;
 557
 558       cp = n_folder_query();
 559       if(which_protocol(cp, FAL0, FAL0, NULL) == PROTO_IMAP)
 560          n_strscpy(mailname, cp, sizeof mailname);
 561    }
 562 #endif
 563
 564    i = (n_poption & n_PO_QUICKRUN_MASK) ? FEDIT_RDONLY : FEDIT_NONE;
 565    i = setfile(folder, i);
 566    if(i < 0){
 567       n_exit_status = n_EXIT_ERR; /* error already reported */
 568       goto jquit;
 569    }
 570    if(n_poption & n_PO_QUICKRUN_MASK){
 571       n_exit_status = i;
 572       if(i == n_EXIT_OK && (!(n_poption & n_PO_EXISTONLY) ||
 573             (n_poption & n_PO_HEADERLIST)))
 574          print_header_summary(Larg);
 575       goto jquit;
 576    }
 577    temporary_folder_hook_check(FAL0);
 578
 579    if(i > 0 && !ok_blook(emptystart)){
 580       n_exit_status = n_EXIT_ERR;
 581       goto jleave;
 582    }
 583
 584    if(sigsetjmp(a_main__hdrjmp, 1) == 0){
 585       if((prevint = safe_signal(SIGINT, SIG_IGN)) != SIG_IGN)
 586          safe_signal(SIGINT, &a_main_hdrstop);
 587       if(!ok_blook(quiet))
 588          fprintf(n_stdout, _("%s version %s.  Type `?' for help\n"),
 589             n_uagent,
 590             (n_psonce & n_PSO_REPRODUCIBLE
 591                ? n_reproducible_name : ok_vlook(version)));
 592       n_folder_announce(n_ANNOUNCE_MAIN_CALL | n_ANNOUNCE_CHANGE);
 593       safe_signal(SIGINT, prevint);
 594    }
 595
 596    /* Enter the command loop */
 597    if(n_psonce & n_PSO_INTERACTIVE)
 598       n_tty_init();
 599    n_go_main_loop();
 600    if(n_psonce & n_PSO_INTERACTIVE)
 601       n_tty_destroy((n_psonce & n_PSO_XIT) != 0);
 602
 603    if(!(n_psonce & n_PSO_XIT)){
 604       if(mb.mb_type == MB_FILE || mb.mb_type == MB_MAILDIR){
 605          safe_signal(SIGHUP, SIG_IGN);
 606          safe_signal(SIGINT, SIG_IGN);
 607          safe_signal(SIGQUIT, SIG_IGN);
 608       }
 609 jquit:
 610       save_mbox_for_possible_quitstuff();
 611       quit(FAL0);
 612    }
 613 jleave:
 614    NYD_LEAVE;
 615    return n_exit_status;
 616 }
 617
 618 static void
 619 a_main_hdrstop(int signo){
 620    NYD_X; /* Signal handler */
 621    n_UNUSED(signo);
 622
 623    fflush(n_stdout);
 624    n_err_sighdl(_("\nInterrupt\n"));
 625    siglongjmp(a_main__hdrjmp, 1);
 626 }
 627
 628 int
 629 main(int argc, char *argv[]){
 630    /* TODO Once v15 control flow/carrier rewrite took place main() should
 631     * TODO be rewritten and option parsing++ should be outsourced.
 632     * TODO Like so we can get rid of some stack locals etc. */
 633    /* Keep in SYNC: ./nail.1:"SYNOPSIS, main() */
 634    static char const optstr[] =
 635          "A:a:Bb:c:dEeFfHhiL:M:m:NnO:q:Rr:S:s:tu:VvX:::~#.";
 636    int i;
 637    char *cp;
 638    enum{
 639       a_RF_NONE = 0,
 640       a_RF_SET = 1<<0,
 641       a_RF_SYSTEM = 1<<1,
 642       a_RF_USER = 1<<2,
 643       a_RF_ALL = a_RF_SYSTEM | a_RF_USER
 644    } resfiles;
 645    size_t oargs_size, oargs_cnt, Xargs_size, Xargs_cnt, smopts_size;
 646    char const *Aarg, *emsg, *folder, *Larg, *okey, **oargs, *qf,
 647       *subject, *uarg, **Xargs;
 648    struct attachment *attach;
 649    struct name *to, *cc, *bcc;
 650    struct a_arg *a_head, *a_curr;
 651    NYD_ENTER;
 652
 653    a_head = NULL;
 654    n_UNINIT(a_curr, NULL);
 655    to = cc = bcc = NULL;
 656    attach = NULL;
 657    Aarg = emsg = folder = Larg = okey = qf = subject = uarg = NULL;
 658    oargs = Xargs = NULL;
 659    oargs_size = oargs_cnt = Xargs_size = Xargs_cnt = smopts_size = 0;
 660    resfiles = a_RF_ALL;
 661
 662    /*
 663     * Start our lengthy setup, finalize by setting n_PSO_STARTED
 664     */
 665
 666    n_progname = argv[0];
 667    a_main_startup();
 668
 669    /* Command line parsing
 670     * -S variable settings need to be done twice, since the user surely wants
 671     * the setting to take effect immediately, but also doesn't want it to be
 672     * overwritten from within resource files */
 673    while((i = a_main_getopt(argc, argv, optstr)) >= 0){
 674       switch(i){
 675       case 'A':
 676          /* Execute an account command later on */
 677          Aarg = a_main_oarg;
 678          break;
 679       case 'a':{
 680          struct a_arg *nap;
 681
 682          n_psonce |= n_PSO_SENDMODE;
 683          nap = salloc(sizeof(struct a_arg));
 684          if(a_head == NULL)
 685             a_head = nap;
 686          else
 687             a_curr->aa_next = nap;
 688          nap->aa_next = NULL;
 689          nap->aa_file = a_main_oarg;
 690          a_curr = nap;
 691       }  break;
 692       case 'B':
 693          n_OBSOLETE(_("-B is obsolete, please use -# as necessary"));
 694          break;
 695       case 'b':
 696          /* Get Blind Carbon Copy Recipient list */
 697          n_psonce |= n_PSO_SENDMODE;
 698          bcc = cat(bcc, lextract(a_main_oarg, GBCC | GFULL));
 699          break;
 700       case 'c':
 701          /* Get Carbon Copy Recipient list */
 702          n_psonce |= n_PSO_SENDMODE;
 703          cc = cat(cc, lextract(a_main_oarg, GCC | GFULL));
 704          break;
 705       case 'd':
 706          ok_bset(debug);
 707          okey = "debug";
 708          goto joarg;
 709       case 'E':
 710          n_OBSOLETE(_("-E will be removed, please use \"-Sskipemptybody\""));
 711          ok_bset(skipemptybody);
 712          okey = "skipemptybody";
 713          goto joarg;
 714       case 'e':
 715          n_poption |= n_PO_EXISTONLY;
 716          break;
 717       case 'F':
 718          n_poption |= n_PO_F_FLAG;
 719          n_psonce |= n_PSO_SENDMODE;
 720          break;
 721       case 'f':
 722          /* User is specifying file to "edit" with Mail, as opposed to reading
 723           * system mailbox.  If no argument is given, we read his mbox file.
 724           * Check for remaining arguments later */
 725          folder = "&";
 726          break;
 727       case 'H':
 728          n_poption |= n_PO_HEADERSONLY;
 729          break;
 730       case 'h':
 731          a_main_usage(n_stdout);
 732          goto j_leave;
 733       case 'i':
 734          /* Ignore interrupts */
 735          ok_bset(ignore);
 736          okey = "ignore";
 737          goto joarg;
 738       case 'L':
 739          Larg = a_main_oarg;
 740          n_poption |= n_PO_HEADERLIST;
 741          if(*Larg == '"' || *Larg == '\''){ /* TODO list.c:listspec_check() */
 742             size_t j;
 743
 744             j = strlen(++Larg);
 745             if(j > 0){
 746                cp = savestrbuf(Larg, --j);
 747                Larg = cp;
 748             }
 749          }
 750          break;
 751       case 'M':
 752          if(qf != NULL && (!(n_poption & n_PO_Mm_FLAG) || qf != (char*)-1))
 753             goto jeMmq;
 754          n_poption_arg_Mm = a_main_oarg;
 755          qf = (char*)-1;
 756          if(0){
 757             /* FALLTHRU*/
 758       case 'm':
 759             if(qf != NULL && (!(n_poption & n_PO_Mm_FLAG) || qf == (char*)-1))
 760                goto jeMmq;
 761             qf = a_main_oarg;
 762          }
 763          n_poption |= n_PO_Mm_FLAG;
 764          n_psonce |= n_PSO_SENDMODE;
 765          break;
 766       case 'N':
 767          /* Avoid initial header printing */
 768          ok_bclear(header);
 769          okey = "noheader";
 770          goto joarg;
 771       case 'n':
 772          /* Don't source "unspecified system start-up file" */
 773          if(resfiles & a_RF_SET){
 774             emsg = N_("-n cannot be used in conjunction with -:");
 775             goto jusage;
 776          }
 777          resfiles = a_RF_USER;
 778          break;
 779       case 'O':
 780          /* Additional options to pass-through to MTA TODO v15-compat legacy */
 781          if(n_smopts_cnt == smopts_size)
 782             smopts_size = a_main_grow_cpp(&n_smopts, smopts_size + 8,
 783                   n_smopts_cnt);
 784          n_smopts[n_smopts_cnt++] = a_main_oarg;
 785          break;
 786       case 'q':
 787          if(qf != NULL && (n_poption & n_PO_Mm_FLAG)){
 788 jeMmq:
 789             emsg = N_("Only one of -M, -m or -q may be given");
 790             goto jusage;
 791          }
 792          /* Quote file TODO drop? -Q with real quote?? what ? */
 793          n_psonce |= n_PSO_SENDMODE;
 794          /* Allow for now, we have to special check validity of -q- later on! */
 795          qf = (a_main_oarg[0] == '-' && a_main_oarg[1] == '\0')
 796                ? (char*)-1 : a_main_oarg;
 797          break;
 798       case 'R':
 799          /* Open folders read-only */
 800          n_poption |= n_PO_R_FLAG;
 801          break;
 802       case 'r':
 803          /* Set From address. */
 804          n_poption |= n_PO_r_FLAG;
 805          if(a_main_oarg[0] != '\0'){
 806             struct name *fa;
 807
 808             fa = nalloc(a_main_oarg, GSKIN | GFULL | GFULLEXTRA);
 809             if(is_addr_invalid(fa, EACM_STRICT | EACM_NOLOG)){
 810                emsg = N_("Invalid address argument with -r");
 811                goto jusage;
 812             }
 813             n_poption_arg_r = fa;
 814             /* TODO -r options is set in n_smopts, but may
 815              * TODO be overwritten by setting from= in
 816              * TODO an interactive session!
 817              * TODO Maybe disable setting of from?
 818              * TODO Warn user?  Update manual!! */
 819             okey = savecat("from=", fa->n_fullname);
 820             goto joarg;
 821          }
 822          break;
 823       case 'S':
 824          /* Set variable (TODO twice [only if successful]) */
 825          {  char const *a[2];
 826             bool_t b;
 827
 828             okey = a[0] = a_main_oarg;
 829             a[1] = NULL;
 830             n_pstate |= n_PS_ROBOT;
 831             b = (c_set(a) == 0);
 832             n_pstate &= ~n_PS_ROBOT;
 833             if(!b)
 834                break;
 835          }
 836 joarg:
 837          if(oargs_cnt == oargs_size)
 838             oargs_size = a_main_grow_cpp(&oargs, oargs_size + 8, oargs_cnt);
 839          oargs[oargs_cnt++] = okey;
 840          break;
 841       case 's':
 842          /* Subject:; take care for Debian #419840 and strip any \r and \n */
 843          if(n_anyof_cp("\n\r", subject = a_main_oarg)){
 844             n_err(_("-s: normalizing away invalid ASCII NL / CR bytes\n"));
 845             for(subject = cp = savestr(a_main_oarg); *cp != '\0'; ++cp)
 846                if(*cp == '\n' || *cp == '\r')
 847                   *cp = ' ';
 848          }
 849          n_psonce |= n_PSO_SENDMODE;
 850          break;
 851       case 't':
 852          /* Read defined set of headers from mail to be sent */
 853          n_poption |= n_PO_t_FLAG;
 854          n_psonce |= n_PSO_SENDMODE;
 855          break;
 856       case 'u':
 857          uarg = savecat("%", a_main_oarg);
 858          break;
 859       case 'V':
 860          fprintf(n_stdout, _("%s version %s\n"), n_uagent, ok_vlook(version));
 861          n_exit_status = n_EXIT_OK;
 862          goto j_leave;
 863       case 'v':
 864          /* Be verbose */
 865          ok_bset(verbose);
 866          okey = "verbose";
 867          goto joarg;
 868       case 'X':
 869          /* Add to list of commands to exec before entering normal operation */
 870          if(Xargs_cnt == Xargs_size)
 871             Xargs_size = a_main_grow_cpp(&Xargs, Xargs_size + 8, Xargs_cnt);
 872          Xargs[Xargs_cnt++] = a_main_oarg;
 873          break;
 874       case ':':
 875          /* Control which resource files shall be loaded */
 876          if(!(resfiles & (a_RF_SET | a_RF_SYSTEM))){
 877             emsg = N_("-n cannot be used in conjunction with -:");
 878             goto jusage;
 879          }
 880          resfiles = a_RF_SET;
 881          while((i = *a_main_oarg++) != '\0')
 882             switch(i){
 883             case 'S': case 's': resfiles |= a_RF_SYSTEM; break;
 884             case 'U': case 'u': resfiles |= a_RF_USER; break;
 885             case ':': case '/': resfiles &= ~a_RF_ALL; break;
 886             default:
 887                emsg = N_("Invalid argument of -:");
 888                goto jusage;
 889             }
 890          break;
 891       case '~':
 892          /* Enable command escapes even in non-interactive mode */
 893          n_poption |= n_PO_TILDE_FLAG;
 894          break;
 895       case '#':
 896          /* Work in batch mode, even if non-interactive */
 897          if(!(n_psonce & n_PSO_INTERACTIVE))
 898             setvbuf(n_stdin, NULL, _IOLBF, 0);
 899          n_poption |= n_PO_TILDE_FLAG | n_PO_BATCH_FLAG;
 900          folder = n_path_devnull;
 901          if(oargs_cnt + 10 >= oargs_size)
 902             oargs_size = a_main_grow_cpp(&oargs, oargs_size + 11, oargs_cnt);
 903          n_pstate |= n_PS_ROBOT; /* (be silent unsetting undefined variables) */
 904          ok_vset(MAIL, folder), oargs[oargs_cnt++] = "MAIL=" n_PATH_DEVNULL;
 905          ok_vset(MBOX, folder), oargs[oargs_cnt++] = "MBOX=" n_PATH_DEVNULL;
 906          ok_bset(emptystart), oargs[oargs_cnt++] = "emptystart";
 907          ok_bclear(errexit), oargs[oargs_cnt++] = "noerrexit";
 908          ok_bclear(header), oargs[oargs_cnt++] = "noheader";
 909          ok_vset(inbox, folder), oargs[oargs_cnt++] = "inbox=" n_PATH_DEVNULL;
 910          ok_bclear(posix), oargs[oargs_cnt++] = "noposix";
 911          ok_bset(quiet), oargs[oargs_cnt++] = "quiet";
 912          ok_bset(sendwait), oargs[oargs_cnt++] = "sendwait";
 913          ok_bset(typescript_mode), oargs[oargs_cnt++] = "typescript-mode";
 914          n_pstate &= ~n_PS_ROBOT;
 915          break;
 916       case '.':
 917          n_psonce |= n_PSO_SENDMODE;
 918          goto jgetopt_done;
 919       case '?':
 920 jusage:
 921          if(emsg != NULL)
 922             n_err("%s\n", V_(emsg));
 923          a_main_usage(n_stderr);
 924          n_exit_status = n_EXIT_USE;
 925          goto j_leave;
 926       }
 927    }
 928 jgetopt_done:
 929    ;
 930
 931    /* The normal arguments may be followed by MTA arguments after a "--";
 932     * however, -f may take off an argument, too, and before that.
 933     * Since MTA arguments after "--" require *expandargv*, delay parsing off
 934     * those options until after the resource files are loaded... */
 935    if((cp = argv[i = a_main_oind]) == NULL)
 936       ;
 937    else if(cp[0] == '-' && cp[1] == '-' && cp[2] == '\0')
 938       ++i;
 939    /* n_PO_BATCH_FLAG sets to /dev/null, but -f can still be used and sets & */
 940    else if(folder != NULL && /*folder[0] == '&' &&*/ folder[1] == '\0'){
 941       folder = cp;
 942       if((cp = argv[++i]) != NULL){
 943          if(cp[0] != '-' || cp[1] != '-' || cp[2] != '\0'){
 944             emsg = N_("More than one file given with -f");
 945             goto jusage;
 946          }
 947          ++i;
 948       }
 949    }else{
 950       n_psonce |= n_PSO_SENDMODE;
 951       for(;;){
 952          to = cat(to, lextract(cp, GTO | GFULL));
 953          if((cp = argv[++i]) == NULL)
 954             break;
 955          if(cp[0] == '-' && cp[1] == '-' && cp[2] == '\0'){
 956             ++i;
 957             break;
 958          }
 959       }
 960    }
 961    a_main_oind = i;
 962
 963    /* ...BUT, since we use salloc() for the MTA n_smopts storage we need to
 964     * allocate the necessary space for them before we fixate that storage! */
 965    while(argv[i] != NULL)
 966       ++i;
 967    if(n_smopts_cnt + i > smopts_size)
 968       DBG(smopts_size =)
 969       a_main_grow_cpp(&n_smopts, n_smopts_cnt + i + 1, n_smopts_cnt);
 970
 971    /* Check for inconsistent arguments, fix some temporaries */
 972    if(n_psonce & n_PSO_SENDMODE){
 973       /* XXX This is only because BATCH_FLAG sets *folder*=/dev/null
 974        * XXX in order to function.  Ideally that would not be needed */
 975       if(folder != NULL && !(n_poption & n_PO_BATCH_FLAG)){
 976          emsg = N_("Cannot give -f and people to send to.");
 977          goto jusage;
 978       }
 979       if(uarg != NULL){
 980          emsg = N_("The -u option cannot be used in send mode");
 981          goto jusage;
 982       }
 983       if(!(n_poption & n_PO_t_FLAG) && to == NULL){
 984          emsg = N_("Send options without primary recipient specified.");
 985          goto jusage;
 986       }
 987       if((n_poption & n_PO_t_FLAG) && qf != NULL){
 988          emsg = N_("The -M, -m, -q and -t options are mutual exclusive.");
 989          goto jusage;
 990       }
 991       if(n_poption & (n_PO_EXISTONLY | n_PO_HEADERSONLY | n_PO_HEADERLIST)){
 992          emsg = N_("The -e, -H and -L options cannot be used in send mode.");
 993          goto jusage;
 994       }
 995       if(n_poption & n_PO_R_FLAG){
 996          emsg = N_("The -R option is meaningless in send mode.");
 997          goto jusage;
 998       }
 999
1000       if(n_psonce & n_PSO_INTERACTIVE){
1001          if(qf == (char*)-1){
1002             if(!(n_poption & n_PO_Mm_FLAG))
1003                emsg = N_("-q can't use standard input when interactive.\n");
1004             goto jusage;
1005          }
1006       }
1007    }else{
1008       if(uarg != NULL && folder != NULL){
1009          emsg = N_("The options -u and -f (and -#) are mutually exclusive");
1010          goto jusage;
1011       }
1012       if((n_poption & (n_PO_EXISTONLY | n_PO_HEADERSONLY)) ==
1013             (n_PO_EXISTONLY | n_PO_HEADERSONLY)){
1014          emsg = N_("The options -e and -H are mutual exclusive");
1015          goto jusage;
1016       }
1017       if((n_poption & (n_PO_HEADERSONLY | n_PO_HEADERLIST) /* TODO OBSOLETE */
1018             ) == (n_PO_HEADERSONLY | n_PO_HEADERLIST))
1019          n_OBSOLETE(_("please use \"-e -L xy\" instead of \"-H -L xy\""));
1020
1021       if(uarg != NULL)
1022          folder = uarg;
1023    }
1024
1025    /*
1026     * Likely to go, perform more setup
1027     */
1028
1029    a_main_setup_vars();
1030
1031    /* Create memory pool snapshot; Memory is auto-reclaimed from now on */
1032    n_memory_pool_fixate();
1033
1034    /* load() any resource files */
1035    if(resfiles & a_RF_ALL){
1036       /* *expand() returns a savestr(), but load() only uses the file name
1037        * for fopen(), so it is safe to do this */
1038       if(resfiles & a_RF_SYSTEM){
1039          bool_t nload;
1040
1041          if((nload = ok_blook(NAIL_NO_SYSTEM_RC)))
1042             n_OBSOLETE(_("Please use $MAILX_NO_SYSTEM_RC instead of "
1043                "$NAIL_NO_SYSTEM_RC"));
1044          if(!nload && !ok_blook(MAILX_NO_SYSTEM_RC) &&
1045                !n_go_load(VAL_SYSCONFDIR "/" VAL_SYSCONFRC))
1046             goto j_leave;
1047       }
1048
1049       if((resfiles & a_RF_USER) &&
1050             !n_go_load(fexpand(ok_vlook(MAILRC), FEXP_LOCAL | FEXP_NOPROTO)))
1051          goto j_leave;
1052
1053       if((cp = ok_vlook(NAIL_EXTRA_RC)) != NULL)
1054          n_OBSOLETE(_("Please use *mailx-extra-rc*, not *NAIL_EXTRA_RC*"));
1055       if((cp != NULL || (cp = ok_vlook(mailx_extra_rc)) != NULL) &&
1056             !n_go_load(fexpand(cp, FEXP_LOCAL | FEXP_NOPROTO)))
1057          goto j_leave;
1058    }
1059
1060    /* Ensure the -S and other command line options take precedence over
1061     * anything that may have been placed in resource files.
1062     * Our "ternary binary" option *verbose* needs special treament */
1063    if((n_poption & (n_PO_VERB | n_PO_VERBVERB)) == n_PO_VERB)
1064       n_poption &= ~n_PO_VERB;
1065    /* ..and be silent when unsetting undefined variables again */
1066    if(oargs_cnt > 0){
1067       n_pstate |= n_PS_ROBOT;
1068       oargs[oargs_cnt] = NULL;
1069       c_set(oargs);
1070       n_pstate &= ~n_PS_ROBOT;
1071    }
1072
1073    /* Cause possible umask(2) to be applied, now that any setting is
1074     * established, and before we change accounts, evaluate commands etc. */
1075    (void)ok_vlook(umask);
1076
1077    /* Additional options to pass-through to MTA, and allowed to do so? */
1078    i = a_main_oind;
1079    if((cp = ok_vlook(expandargv)) != NULL){
1080       bool_t isfail, isrestrict;
1081
1082       isfail = !asccasecmp(cp, "fail");
1083       isrestrict = (!isfail && !asccasecmp(cp, "restrict"));
1084
1085       if((n_poption & n_PO_D_V) && !isfail && !isrestrict && *cp != '\0')
1086          n_err(_("Unknown *expandargv* value: %s\n"), cp);
1087
1088       if((cp = argv[i]) != NULL){
1089          if(isfail || (isrestrict && (!(n_poption & n_PO_TILDE_FLAG) ||
1090                   !(n_psonce & n_PSO_INTERACTIVE)))){
1091             n_err(_("*expandargv* doesn't allow MTA arguments; consider "
1092                "using *mta-arguments*\n"));
1093             n_exit_status = n_EXIT_USE | n_EXIT_SEND_ERROR;
1094             goto jleave;
1095          }
1096          do{
1097             assert(n_smopts_cnt + 1 <= smopts_size);
1098             n_smopts[n_smopts_cnt++] = cp;
1099          }while((cp = argv[++i]) != NULL);
1100       }
1101    }else if(argv[i] != NULL && (n_poption & n_PO_D_V))
1102       n_err(_("*expandargv* not set, ignoring given MTA arguments\n"));
1103
1104    /* We had to wait until the resource files are loaded and any command line
1105     * setting has been restored, but get the termcap up and going before we
1106     * switch account or running commands */
1107 #ifdef n_HAVE_TCAP
1108    if((n_psonce & n_PSO_INTERACTIVE) && !(n_poption & n_PO_QUICKRUN_MASK))
1109       n_termcap_init();
1110 #endif
1111
1112    /* Now we can set the account */
1113    if(Aarg != NULL){
1114       char const *a[2];
1115
1116       a[0] = Aarg;
1117       a[1] = NULL;
1118       c_account(a);
1119    }
1120
1121    /* "load()" commands given on command line */
1122    if(Xargs_cnt > 0){
1123       if(!n_go_Xargs(Xargs, Xargs_cnt))
1124          goto jleave;
1125    }
1126
1127    /* Final tests */
1128    if(n_poption & n_PO_Mm_FLAG){
1129       if(qf == (char*)-1){
1130          if(!n_mimetype_check_mtname(n_poption_arg_Mm)){
1131             n_err(_("Could not find `mimetype' for -M argument: %s\n"),
1132                n_poption_arg_Mm);
1133             n_exit_status = n_EXIT_ERR;
1134             goto jleave;
1135          }
1136       }else if((n_poption_arg_Mm = n_mimetype_classify_filename(qf)) == NULL){
1137          n_err(_("Could not `mimetype'-classify -m argument: %s\n"),
1138             n_shexp_quote_cp(qf, FAL0));
1139          n_exit_status = n_EXIT_ERR;
1140          goto jleave;
1141       }else if(!asccasecmp(n_poption_arg_Mm, "text/plain")) /* TODO no: magic */
1142          n_poption_arg_Mm = NULL;
1143    }
1144
1145    /*
1146     * We're finally completely setup and ready to go
1147     */
1148    n_psonce |= n_PSO_STARTED;
1149
1150    if(!(n_psonce & n_PSO_SENDMODE))
1151       n_exit_status = a_main_rcv_mode(folder, Larg);
1152    else{
1153       /* Now that full mailx(1)-style file expansion is possible handle the
1154        * attachments which we had delayed due to this.
1155        * This may use savestr(), but since we won't enter the command loop we
1156        * don't need to care about that */
1157       for(; a_head != NULL; a_head = a_head->aa_next){
1158          enum n_attach_error aerr;
1159
1160          attach = n_attachment_append(attach, a_head->aa_file, &aerr, NULL);
1161          if(aerr != n_ATTACH_ERR_NONE){
1162             n_exit_status = n_EXIT_ERR;
1163             goto jleave;
1164          }
1165       }
1166
1167       if(n_psonce & n_PSO_INTERACTIVE)
1168          n_tty_init();
1169       mail(to, cc, bcc, subject, attach, qf, ((n_poption & n_PO_F_FLAG) != 0));
1170       if(n_psonce & n_PSO_INTERACTIVE)
1171          n_tty_destroy((n_psonce & n_PSO_XIT) != 0);
1172    }
1173
1174 jleave:
1175   /* Be aware of identical code for `exit' command! */
1176 #ifdef n_HAVE_TCAP
1177    if((n_psonce & n_PSO_INTERACTIVE) && !(n_poption & n_PO_QUICKRUN_MASK))
1178       n_termcap_destroy();
1179 #endif
1180
1181 j_leave:
1182 #if defined HAVE_MEMORY_DEBUG || defined HAVE_NOMEMDBG
1183    n_memory_pool_pop(NULL);
1184 #endif
1185 #if defined HAVE_DEBUG || defined HAVE_DEVEL || defined HAVE_NOMEMDBG
1186    n_memory_reset();
1187 #endif
1188    NYD_LEAVE;
1189    return n_exit_status;
1190 }
1191
1192 /* Source the others in that case! */
1193 #ifdef HAVE_AMALGAMATION
1194 # include "mk-config.h"
1195 #endif
1196
1197 /* s-it-mode */