]> diplodocus.org Git - nmh/blobdiff - uip/sendsbr.c
pending-release-notes: add mhshow's "-prefer", and mh-format's %(kibi/kilo)
[nmh] / uip / sendsbr.c
index cc15a0f122489a201cf24f7cda06ae7c0aad9641..af9412dfe9da9fc191aad552e831a0e0432c488a 100644 (file)
@@ -2,8 +2,6 @@
 /*
  * sendsbr.c -- routines to help WhatNow/Send along
  *
- * $Id$
- *
  * This code is Copyright (c) 2002, by the authors of nmh.  See the
  * COPYRIGHT file in the root directory of the nmh distribution for
  * complete copyright information.
 #include <h/mh.h>
 #include <h/signals.h>
 #include <setjmp.h>
-#include <signal.h>
 #include <fcntl.h>
 #include <h/mime.h>
 #include <h/tws.h>
 #include <h/utils.h>
+#include <h/mts.h>
 
-#ifdef TIME_WITH_SYS_TIME
+#ifdef HAVE_SYS_TIME_H
 # include <sys/time.h>
-# include <time.h>
-#else
-# ifdef TM_IN_SYS_TIME
-#  include <sys/time.h>
-# else
-#  include <time.h>
-# endif
 #endif
+#include <time.h>
 
 int debugsw = 0;               /* global */
 int forwsw  = 1;
@@ -41,38 +33,18 @@ char *altmsg   = NULL;              /*  .. */
 char *annotext = NULL;
 char *distfile = NULL;
 
-static int armed = 0;
 static jmp_buf env;
 
-static char    body_file_name[MAXPATHLEN + 1];         /* name of temporary file for body content */
-static char    composition_file_name[MAXPATHLEN + 1];  /* name of mhbuild composition temporary file */
-static int     field_size;                             /* size of header field buffer */
-static char    *field;                                 /* header field buffer */
-static FILE    *draft_file;                            /* draft file pointer */
-static FILE    *body_file;                             /* body file pointer */
-static FILE    *composition_file;                      /* composition file pointer */
-
-/*
- * external prototypes
- */
-int sendsbr (char **, int, char *, struct stat *, int, char *, int);
-int done (int);
-char *getusername (void);
-
 /*
  * static prototypes
  */
+static void armed_done (int) NORETURN;
 static void alert (char *, int);
 static int tmp_fd (void);
 static void anno (int, struct stat *);
 static void annoaux (int);
-static int splitmsg (char **, int, char *, struct stat *, int);
-static int sendaux (char **, int, char *, struct stat *);
-
-static int     attach(char *, char *, int);
-static void    clean_up_temporary_files(void);
-static int     get_line(void);
-static void    make_mime_composition_file_entry(char *, int);
+static int splitmsg (char **, int, char *, char *, struct stat *, int);
+static int sendaux (char **, int, char *, char *, struct stat *);
 
 
 /*
@@ -80,45 +52,46 @@ static      void    make_mime_composition_file_entry(char *, int);
  */
 
 int
-sendsbr (char **vec, int vecp, char *drft, struct stat *st, int rename_drft, char *attachment_header_field_name, int attachformat)
+sendsbr (char **vec, int vecp, char *program, char *draft, struct stat *st,
+         int rename_drft)
 {
-    int status;
+    int status, i;
+    pid_t child;
     char buffer[BUFSIZ], file[BUFSIZ];
     struct stat sts;
-    char       *original_draft;                /* name of original draft file */
-    char       *p;                             /* string pointer for building file name */
+    char **buildvec, *buildprogram;
+    char *volatile drft = draft;
 
     /*
-     * Save the original name of the draft file.  The name of the draft file is changed
-     * to a temporary file containing the built MIME message if there are attachments.
-     * We need the original name so that it can be renamed after the message is sent.
+     * Run the mimebuildproc (which is by default mhbuild) on the message
+     * with the addition of the "-auto" flag
      */
 
-    original_draft = drft;
-
-    /*
-     * There might be attachments if a header field name for attachments is supplied.
-     * Convert the draft to a MIME message.  Use the mhbuild composition file for the
-     * draft if there was a successful conversion because that now contains the MIME
-     * message.  A nice side effect of this is that it leaves the original draft file
-     * untouched so that it can be retrieved and modified if desired.
-     */
-
-    if (attachment_header_field_name != (char *)0) {
-       switch (attach(attachment_header_field_name, drft, attachformat)) {
-       case OK:
-           drft = composition_file_name;
-           break;
+    switch (child = fork()) {
+    case NOTOK:
+       adios("fork", "unable to");
+       break;
 
-       case NOTOK:
-           return (NOTOK);
+    case OK:
+       buildvec = argsplit(buildmimeproc, &buildprogram, &i);
+       buildvec[i++] = "-auto";
+       if (distfile)
+           buildvec[i++] = "-dist";
+       buildvec[i++] = (char *) drft;
+       buildvec[i] = NULL;
+       execvp(buildprogram, buildvec);
+       fprintf(stderr, "unable to exec ");
+       perror(buildmimeproc);
+       _exit(-1);
+       break;
 
-       case DONE:
-           break;
-       }
+    default:
+       if (pidXwait(child, buildmimeproc))
+           return NOTOK;
+       break;
     }
 
-    armed++;
+    done=armed_done;
     switch (setjmp (env)) {
     case OK: 
        /*
@@ -126,8 +99,12 @@ sendsbr (char **vec, int vecp, char *drft, struct stat *st, int rename_drft, cha
         * rename the draft file.  I'm not quite sure why.
         */
        if (pushsw && unique) {
-           if (rename (drft, strncpy (file, m_scratch (drft, invo_name), sizeof(file)))
-                   == NOTOK)
+           char *cp = m_mktemp2(drft, invo_name, NULL, NULL);
+           if (cp == NULL) {
+               adios(NULL, "unable to create temporary file in %s",
+                     get_temp_dir());
+           }
+           if (rename (drft, strncpy(file, cp, sizeof(file))) == NOTOK)
                adios (file, "unable to rename %s to", drft);
            drft = file;
        }
@@ -136,16 +113,18 @@ sendsbr (char **vec, int vecp, char *drft, struct stat *st, int rename_drft, cha
         * Check if we need to split the message into
         * multiple messages of type "message/partial".
         */
-       if (splitsw >= 0 && !distfile && stat (drft, &sts) != NOTOK
+       if (splitsw >= 0 && !distfile && stat ((char *) drft, &sts) != NOTOK
                && sts.st_size >= CPERMSG) {
-           status = splitmsg (vec, vecp, drft, st, splitsw) ? NOTOK : OK;
+           status = splitmsg (vec, vecp, program, drft,
+                              st, splitsw) ? NOTOK : OK;
        } else {
-           status = sendaux (vec, vecp, drft, st) ? NOTOK : OK;
+           status = sendaux (vec, vecp, program, drft, st) ? NOTOK : OK;
        }
 
        /* rename the original draft */
        if (rename_drft && status == OK &&
-               rename (original_draft, strncpy (buffer, m_backup (original_draft), sizeof(buffer))) == NOTOK)
+               rename (drft, strncpy (buffer, m_backup (drft),
+                                sizeof(buffer))) == NOTOK)
            advise (buffer, "unable to rename %s to", drft);
        break;
 
@@ -154,374 +133,21 @@ sendsbr (char **vec, int vecp, char *drft, struct stat *st, int rename_drft, cha
        break;
     }
 
-    armed = 0;
+    done=exit;
     if (distfile)
-       unlink (distfile);
-
-    /*
-     * Get rid of any temporary files that we created for attachments.  Also get rid of
-     * the renamed composition file that mhbuild leaves as a turd.  It looks confusing,
-     * but we use the body file name to help build the renamed composition file name.
-     */
-
-    if (drft == composition_file_name) {
-       clean_up_temporary_files();
-
-       if (strlen(composition_file_name) >= sizeof (composition_file_name) - 6)
-           advise((char *)0, "unable to remove original composition file.");
-
-       else {
-           if ((p = strrchr(composition_file_name, '/')) == (char *)0)
-               p = composition_file_name;
-           else
-               p++;
-           
-           (void)strcpy(body_file_name, p);
-           *p++ = ',';
-           (void)strcpy(p, body_file_name);
-           (void)strcat(p, ".orig");
-           
-           (void)unlink(composition_file_name);
-       }
-    }
+       (void) m_unlink (distfile);
 
     return status;
 }
 
-static int
-attach(char *attachment_header_field_name, char *draft_file_name,
-       int attachformat)
-{
-    char               buf[MAXPATHLEN + 6];    /* miscellaneous buffer */
-    int                        c;                      /* current character for body copy */
-    int                        has_attachment;         /* draft has at least one attachment */
-    int                        has_body;               /* draft has a message body */
-    int                        length;                 /* length of attachment header field name */
-    char               *p;                     /* miscellaneous string pointer */
-
-    /*
-     * Open up the draft file.
-     */
-
-    if ((draft_file = fopen(draft_file_name, "r")) == (FILE *)0)
-       adios((char *)0, "can't open draft file `%s'.", draft_file_name);
-
-    /*
-     *  Allocate a buffer to hold the header components as they're read in.
-     *  This buffer might need to be quite large, so we grow it as needed.
-     */
-
-    field = (char *)mh_xmalloc(field_size = 256);
-
-    /*
-     * Scan the draft file for a header field name that matches the -attach
-     * argument.  The existence of one indicates that the draft has attachments.
-     * Bail out if there are no attachments because we're done.  Read to the
-     * end of the headers even if we have no attachments.
-     */
-
-    length = strlen(attachment_header_field_name);
-
-    has_attachment = 0;
-
-    while (get_line() != EOF && *field != '\0' && *field != '-')
-       if (strncasecmp(field, attachment_header_field_name, length) == 0 && field[length] == ':')
-           has_attachment = 1;
-
-    if (has_attachment == 0)
-       return (DONE);
-
-    /*
-     * We have at least one attachment.  Look for at least one non-blank line
-     * in the body of the message which indicates content in the body.
-     */
-
-    has_body = 0;
-
-    while (get_line() != EOF) {
-       for (p = field; *p != '\0'; p++) {
-           if (*p != ' ' && *p != '\t') {
-               has_body = 1;
-               break;
-           }
-       }
-
-       if (has_body)
-           break;
-    }
-
-    /*
-     * Make names for the temporary files.
-     */
-
-    (void)strncpy(body_file_name, m_scratch("", m_maildir(invo_name)), sizeof (body_file_name));
-    (void)strncpy(composition_file_name, m_scratch("", m_maildir(invo_name)), sizeof (composition_file_name));
-
-    if (has_body)
-       body_file = fopen(body_file_name, "w");
-
-    composition_file = fopen(composition_file_name, "w");
-
-    if ((has_body && body_file == (FILE *)0) || composition_file == (FILE *)0) {
-       clean_up_temporary_files();
-       adios((char *)0, "unable to open all of the temporary files.");
-    }
-
-    /*
-     * Start at the beginning of the draft file.  Copy all non-attachment header fields
-     * to the temporary composition file.  Then add the dashed line separator.
-     */
-
-    rewind(draft_file);
-
-    while (get_line() != EOF && *field != '\0' && *field != '-')
-       if (strncasecmp(field, attachment_header_field_name, length) != 0 || field[length] != ':')
-           (void)fprintf(composition_file, "%s\n", field);
-
-    (void)fputs("--------\n", composition_file);
-
-    /*
-     * Copy the message body to a temporary file.
-     */
-
-    if (has_body) {
-       while ((c = getc(draft_file)) != EOF)
-               putc(c, body_file);
-
-       (void)fclose(body_file);
-    }
-
-    /*
-     * Add a mhbuild MIME composition file line for the body if there was one.
-     */
-
-    if (has_body)
-       make_mime_composition_file_entry(body_file_name, attachformat);
-
-    /*
-     * Now, go back to the beginning of the draft file and look for header fields
-     * that specify attachments.  Add a mhbuild MIME composition file for each.
-     */
-
-    rewind(draft_file);
-
-    while (get_line() != EOF && *field != '\0' && *field != '-') {
-       if (strncasecmp(field, attachment_header_field_name, length) == 0 && field[length] == ':') {
-           for (p = field + length + 1; *p == ' ' || *p == '\t'; p++)
-               ;
-
-           make_mime_composition_file_entry(p, attachformat);
-       }
-    }
-
-    (void)fclose(composition_file);
-
-    /*
-     * We're ready to roll!  Run mhbuild on the composition file.  Note that mhbuild
-     * is in the context as buildmimeproc.
-     */
-
-    (void)sprintf(buf, "%s %s", buildmimeproc, composition_file_name);
-
-    if (system(buf) != 0) {
-       clean_up_temporary_files();
-       return (NOTOK);
-    }
-
-    return (OK);
-}
-
-static void
-clean_up_temporary_files(void)
-{
-    (void)unlink(body_file_name);
-    (void)unlink(composition_file_name);
-
-    return;
-}
-
-static int
-get_line(void)
-{
-    int                c;      /* current character */
-    int                n;      /* number of bytes in buffer */
-    char       *p;     /* buffer pointer */
-
-    /*
-     * Get a line from the input file, growing the field buffer as needed.  We do this
-     * so that we can fit an entire line in the buffer making it easy to do a string
-     * comparison on both the field name and the field body which might be a long path
-     * name.
-     */
-
-    for (n = 0, p = field; (c = getc(draft_file)) != EOF; *p++ = c) {
-       if (c == '\n' && (c = getc(draft_file)) != ' ' && c != '\t') {
-           (void)ungetc(c, draft_file);
-           c = '\n';
-           break;
-       }
-
-       if (++n >= field_size - 1) {
-           field = (char *)mh_xrealloc((void *)field, field_size += 256);
-
-           p = field + n - 1;
-       }
-    }
-
-    /*
-     * NUL-terminate the field..
-     */
-
-    *p = '\0';
-
-    return (c);
-}
-
-static void
-make_mime_composition_file_entry(char *file_name, int attachformat)
-{
-    int                        binary;                 /* binary character found flag */
-    int                        c;                      /* current character */
-    char               cmd[MAXPATHLEN + 6];    /* file command buffer */
-    char               *content_type;          /* mime content type */
-    FILE               *fp;                    /* content and pipe file pointer */
-    struct     node    *np;                    /* context scan node pointer */
-    char               *p;                     /* miscellaneous string pointer */
-    struct     stat    st;                     /* file status buffer */
-
-    content_type = (char *)0;
-
-    /*
-     * Check the file name for a suffix.  Scan the context for that suffix on a
-     * mhshow-suffix- entry.  We use these entries to be compatible with mhnshow,
-     * and there's no reason to make the user specify each suffix twice.  Context
-     * entries of the form "mhshow-suffix-contenttype" in the name have the suffix
-     * in the field, including the dot.
-     */
-
-    if ((p = strrchr(file_name, '.')) != (char *)0) {
-       for (np = m_defs; np; np = np->n_next) {
-           if (strncasecmp(np->n_name, "mhshow-suffix-", 14) == 0 && strcasecmp(p, np->n_field) == 0) {
-               content_type = np->n_name + 14;
-               break;
-           }
-       }
-    }
-
-    /*
-     * No content type was found, either because there was no matching entry in the
-     * context or because the file name has no suffix.  Open the file and check for
-     * non-ASCII characters.  Choose the content type based on this check.
-     */
-
-    if (content_type == (char *)0) {
-       if ((fp = fopen(file_name, "r")) == (FILE *)0) {
-           clean_up_temporary_files();
-           adios((char *)0, "unable to access file \"%s\"", file_name);
-       }
-
-       binary = 0;
-
-       while ((c = getc(fp)) != EOF) {
-           if (c > 127 || c < 0) {
-               binary = 1;
-               break;
-           }
-       }
-
-       (void)fclose(fp);
-
-       content_type = binary ? "application/octet-stream" : "text/plain";
-    }
-
-    /*
-     * Make sure that the attachment file exists and is readable.  Append a mhbuild
-     * directive to the draft file.  This starts with the content type.  Append a
-     * file name attribute and a private x-unix-mode attribute.  Also append a
-     * description obtained (if possible) by running the "file" command on the file.
-     */
-
-    if (stat(file_name, &st) == -1 || access(file_name, R_OK) != 0) {
-       clean_up_temporary_files();
-       adios((char *)0, "unable to access file \"%s\"", file_name);
-    }
-
-    switch (attachformat) {
-    case 0:
-        /* Insert name, file mode, and Content-Id. */
-        (void)fprintf(composition_file, "#%s; name=\"%s\"; x-unix-mode=0%.3ho",
-            content_type, ((p = strrchr(file_name, '/')) == (char *)0) ? file_name : p + 1, (unsigned short)(st.st_mode & 0777));
-
-        if (strlen(file_name) > MAXPATHLEN) {
-            clean_up_temporary_files();
-            adios((char *)0, "attachment file name `%s' too long.", file_name);
-        }
-
-        (void)sprintf(cmd, "file '%s'", file_name);
-
-        if ((fp = popen(cmd, "r")) != (FILE *)0 && fgets(cmd, sizeof (cmd), fp) != (char *)0) {
-            *strchr(cmd, '\n') = '\0';
-
-            /*
-             *  The output of the "file" command is of the form
-             *
-             *         file:   description
-             *
-             *  Strip off the "file:" and subsequent white space.
-             */
-
-            for (p = cmd; *p != '\0'; p++) {
-                if (*p == ':') {
-                    for (p++; *p != '\0'; p++) {
-                        if (*p != '\t')
-                            break;
-                    }
-                    break;
-                }
-            }
-
-            if (*p != '\0')
-                /* Insert Content-Description. */
-                (void)fprintf(composition_file, " [ %s ]", p);
-
-            (void)pclose(fp);
-        }
-
-        break;
-    case 1:
-        /* Suppress Content-Id, insert simple Content-Disposition. */
-        (void) fprintf (composition_file, "#%s <>{attachment}", content_type);
-
-        break;
-    case 2:
-        /* Suppress Content-Id, insert Content-Disposition with
-           modification date. */
-        (void) fprintf (composition_file,
-                        "#%s <>{attachment; modification-date=\"%s\"}",
-                        content_type,
-                        dtime (&st.st_mtime, 0));
-
-        break;
-    default:
-        adios ((char *)0, "unsupported attachformat %d", attachformat);
-    }
-
-    /*
-     * Finish up with the file name.
-     */
-
-    (void)fprintf(composition_file, " %s\n", file_name);
-
-    return;
-}
-
 /*
  * Split large message into several messages of
  * type "message/partial" and send them.
  */
 
 static int
-splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
+splitmsg (char **vec, int vecp, char *program, char *drft,
+         struct stat *st, int delay)
 {
     int        compnum, nparts, partno, state, status;
     long pos, start;
@@ -530,6 +156,7 @@ splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
     char subject[BUFSIZ];
     char name[NAMESZ], partnum[BUFSIZ];
     FILE *in;
+    m_getfld_state_t gstate = 0;
 
     if ((in = fopen (drft, "r")) == NULL)
        adios (drft, "unable to open for reading");
@@ -541,19 +168,22 @@ splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
      * Scan through the message and examine the various header fields,
      * as well as locate the beginning of the message body.
      */
-    for (compnum = 1, state = FLD;;) {
-       switch (state = m_getfld (state, name, buffer, sizeof(buffer), in)) {
+    m_getfld_track_filepos (&gstate, in);
+    for (compnum = 1;;) {
+       int bufsz = sizeof buffer;
+       switch (state = m_getfld (&gstate, name, buffer, &bufsz, in)) {
            case FLD:
            case FLDPLUS:
-           case FLDEOF:
                compnum++;
 
                /*
                 * This header field is discarded.
                 */
                if (!strcasecmp (name, "Message-ID")) {
-                   while (state == FLDPLUS)
-                       state = m_getfld (state, name, buffer, sizeof(buffer), in);
+                   while (state == FLDPLUS) {
+                       bufsz = sizeof buffer;
+                       state = m_getfld (&gstate, name, buffer, &bufsz, in);
+                   }
                } else if (uprf (name, XXX_FIELD_PRF)
                        || !strcasecmp (name, VRSN_FIELD)
                        || !strcasecmp (name, "Subject")
@@ -577,7 +207,8 @@ splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
 
                    dp = add (concat (name, ":", buffer, NULL), dp);
                    while (state == FLDPLUS) {
-                       state = m_getfld (state, name, buffer, sizeof(buffer), in);
+                       bufsz = sizeof buffer;
+                       state = m_getfld (&gstate, name, buffer, &bufsz, in);
                        dp = add (buffer, dp);
                    }
                } else {
@@ -587,19 +218,16 @@ splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
                     */
                    cp = add (concat (name, ":", buffer, NULL), cp);
                    while (state == FLDPLUS) {
-                       state = m_getfld (state, name, buffer, sizeof(buffer), in);
+                       bufsz = sizeof buffer;
+                       state = m_getfld (&gstate, name, buffer, &bufsz, in);
                        cp = add (buffer, cp);
                    }
                }
 
-               if (state != FLDEOF) {
-                   start = ftell (in) + 1;
-                   continue;
-               }
-               /* else fall... */
+               start = ftell (in) + 1;
+               continue;
 
           case BODY:
-          case BODYEOF:
           case FILEEOF:
                break;
 
@@ -613,6 +241,7 @@ splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
 
        break;
     }
+    m_getfld_state_destroy (&gstate);
     if (cp == NULL)
        adios (NULL, "headers missing from draft");
 
@@ -634,7 +263,7 @@ splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
            free (dp);
 
        fclose (in);
-       return sendaux (vec, vecp, drft, st);
+       return sendaux (vec, vecp, program, drft, st);
     }
 
     if (!pushsw) {
@@ -649,18 +278,19 @@ splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
        vec[vecp++] = "-queued";
 
     time (&clock);
-    snprintf (msgid, sizeof(msgid), "<%d.%ld@%s>",
-               (int) getpid(), (long) clock, LocalName());
+    snprintf (msgid, sizeof(msgid), "%s", message_id (clock, 0));
 
     fseek (in, start, SEEK_SET);
     for (partno = 1; partno <= nparts; partno++) {
        char tmpdrf[BUFSIZ];
        FILE *out;
 
-       strncpy (tmpdrf, m_scratch (drft, invo_name), sizeof(tmpdrf));
-       if ((out = fopen (tmpdrf, "w")) == NULL)
-           adios (tmpdrf, "unable to open for writing");
-       chmod (tmpdrf, 0600);
+       char *cp = m_mktemp2(drft, invo_name, NULL, &out);
+        if (cp == NULL) {
+           adios(NULL, "unable to create temporary file in %s",
+                 get_temp_dir());
+        }
+       strncpy(tmpdrf, cp, sizeof(tmpdrf));
 
        /*
         * Output the header fields
@@ -723,8 +353,8 @@ splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
        }
 
        snprintf (partnum, sizeof(partnum), "%d", partno);
-       status = sendaux (vec, vecp, tmpdrf, st);
-       unlink (tmpdrf);
+       status = sendaux (vec, vecp, program, tmpdrf, st);
+       (void) m_unlink (tmpdrf);
        if (status != OK)
            break;
 
@@ -746,11 +376,11 @@ splitmsg (char **vec, int vecp, char *drft, struct stat *st, int delay)
 
 /*
  * Annotate original message, and
- * call `postproc' to send message.
+ * call `postproc' (which is passed down in "program") to send message.
  */
 
 static int
-sendaux (char **vec, int vecp, char *drft, struct stat *st)
+sendaux (char **vec, int vecp, char *program, char *drft, struct stat *st)
 {
     pid_t child_id;
     int i, status, fd, fd2;
@@ -766,14 +396,15 @@ sendaux (char **vec, int vecp, char *drft, struct stat *st)
            snprintf (buf, sizeof(buf), "%d", fd2);
            vec[vecp++] = buf;
        } else {
-           admonish (NULL, "unable to create file for annotation list");
+           admonish (NULL, "unable to create temporary file in %s "
+                      "for annotation list", get_temp_dir());
        }
     }
     if (distfile && distout (drft, distfile, backup) == NOTOK)
        done (1);
     vec[vecp] = NULL;
 
-    for (i = 0; (child_id = vfork()) == NOTOK && i < 5; i++)
+    for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++)
        sleep (5);
 
     switch (child_id) {
@@ -794,11 +425,10 @@ sendaux (char **vec, int vecp, char *drft, struct stat *st)
            dup2 (fd, fileno (stderr));
            close (fd);
        }
-       execvp (postproc, vec);
+       execvp (program, vec);
        fprintf (stderr, "unable to exec ");
        perror (postproc);
        _exit (-1);
-       break;  /* NOT REACHED */
 
     default:
        /*
@@ -822,7 +452,7 @@ sendaux (char **vec, int vecp, char *drft, struct stat *st)
            if (annotext && fd2 != NOTOK)
                close (fd2);
            if (distfile) {
-               unlink (drft);
+               (void) m_unlink (drft);
                if (rename (backup, drft) == NOTOK)
                    advise (drft, "unable to rename %s to", backup);
            }
@@ -843,8 +473,10 @@ static void
 alert (char *file, int out)
 {
     pid_t child_id;
-    int i, in;
+    int i, in, argp;
     char buf[BUFSIZ];
+    char *program;
+    char **arglist;
 
     for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++)
        sleep (5);
@@ -866,13 +498,19 @@ alert (char *file, int out)
                } else {
                    lseek (out, (off_t) 0, SEEK_END);
                    strncpy (buf, "\nMessage not delivered to anyone.\n", sizeof(buf));
-                   write (out, buf, strlen (buf));
+                   if (write (out, buf, strlen (buf)) < 0) {
+                       advise (file, "write");
+                   }
                    strncpy (buf, "\n------- Unsent Draft\n\n", sizeof(buf));
-                   write (out, buf, strlen (buf));
+                   if (write (out, buf, strlen (buf)) < 0) {
+                       advise (file, "write");
+                   }
                    cpydgst (in, out, file, "temporary file");
                    close (in);
                    strncpy (buf, "\n------- End of Unsent Draft\n", sizeof(buf));
-                   write (out, buf, strlen (buf));
+                   if (write (out, buf, strlen (buf)) < 0) {
+                       advise (file, "write");
+                   }
                    if (rename (file, strncpy (buf, m_backup (file), sizeof(buf))) == NOTOK)
                        admonish (buf, "unable to rename %s to", file);
                }
@@ -884,8 +522,14 @@ alert (char *file, int out)
            snprintf (buf, sizeof(buf), "send failed on %s",
                        forwsw ? "enclosed draft" : file);
 
-           execlp (mailproc, r1bindex (mailproc, '/'), getusername (),
-                   "-subject", buf, NULL);
+           arglist = argsplit(mailproc, &program, &argp);
+
+           arglist[argp++] = getusername();
+           arglist[argp++] = "-subject";
+           arglist[argp++] = buf;
+           arglist[argp] = NULL;
+
+           execvp (program, arglist);
            fprintf (stderr, "unable to exec ");
            perror (mailproc);
            _exit (-1);
@@ -900,16 +544,15 @@ static int
 tmp_fd (void)
 {
     int fd;
-    char tmpfil[BUFSIZ];
+    char *tfile;
+
+    if ((tfile = m_mktemp2(NULL, invo_name, &fd, NULL)) == NULL) return NOTOK;
 
-    strncpy (tmpfil, m_tmpfil (invo_name), sizeof(tmpfil));
-    if ((fd = open (tmpfil, O_RDWR | O_CREAT | O_TRUNC, 0600)) == NOTOK)
-       return NOTOK;
     if (debugsw)
-       advise (NULL, "temporary file %s selected", tmpfil);
+       advise (NULL, "temporary file %s selected", tfile);
     else
-       if (unlink (tmpfil) == NOTOK)
-           advise (tmpfil, "unable to remove");
+       if (m_unlink (tfile) == NOTOK)
+           advise (tfile, "unable to remove");
 
     return fd;
 }
@@ -949,16 +592,20 @@ anno (int fd, struct stat *st)
            sigaddset (&set, SIGINT);
            sigaddset (&set, SIGQUIT);
            sigaddset (&set, SIGTERM);
-           SIGPROCMASK (SIG_BLOCK, &set, &oset);
+           sigprocmask (SIG_BLOCK, &set, &oset);
+
+           unregister_for_removal(0);
 
            annoaux (fd);
            if (child_id == OK)
                _exit (0);
 
            /* reset the signal mask */
-           SIGPROCMASK (SIG_SETMASK, &oset, &set);
+           sigprocmask (SIG_SETMASK, &oset, &set);
 
-           chdir (cwd);
+           if (chdir (cwd) < 0) {
+               advise (cwd, "chdir");
+           }
            break;
 
        default:                /* no waiting... */
@@ -988,9 +635,9 @@ annoaux (int fd)
            admonish (maildir, "unable to change directory to");
        return;
     }
-    if (!(mp = folder_read (folder))) {
+    if (!(mp = folder_read (folder, 0))) {
        if (debugsw)
-           admonish (NULL, "unable to read folder %s");
+           admonish (NULL, "unable to read folder %s", folder);
        return;
     }
 
@@ -1055,12 +702,8 @@ oops:
 }
 
 
-int
-done (int status)
+static void
+armed_done (int status)
 {
-    if (armed)
-       longjmp (env, status ? status : NOTOK);
-
-    exit (status);
-    return 1;  /* dead code to satisfy the compiler */
+    longjmp (env, status ? status : NOTOK);
 }