- /* Check if a draft exists */
- if (stat (drft, &st) != NOTOK) {
-#endif /* MHE */
- printf ("Draft \"%s\" exists (%ld bytes).", drft, (long) st.st_size);
- for (i = LISTDSW; i != YESW;) {
- if (!(argp = getans ("\nDisposition? ", isdf ? aqrnl : aqrl)))
- done (1);
- switch (i = smatch (*argp, isdf ? aqrnl : aqrl)) {
- case NOSW:
- done (0);
- case NEWSW:
- dmsg = NULL;
- goto try_it_again;
- case YESW:
- break;
- case LISTDSW:
- showfile (++argp, drft);
- break;
- case REFILSW:
- if (refile (++argp, drft) == 0)
- i = YESW;
- break;
- default:
- advise (NULL, "say what?");
- break;
- }
+
+
+
+static void
+replout(FILE *inb, char *msg, char *drft, struct msgs *mp,
+ int mime, char *form, char *filter)
+{
+ register int state, i;
+ register struct comp *cptr;
+ register char *tmpbuf;
+ register char **nxtbuf;
+ register char **ap;
+ register struct comp **savecomp;
+ int char_read = 0, format_len, mask;
+ char name[NAMESZ], *scanl;
+ unsigned char *cp;
+ FILE *out;
+
+ mask = umask(~m_gmprot());
+ if ((out = fopen(drft, "w")) == NULL)
+ adios(drft, "unable to create");
+
+ umask(mask);
+
+ /* get new format string */
+ cp = new_fs(form, NULL);
+ format_len = strlen(cp);
+
+ /* compile format string */
+ ncomps = fmt_compile(cp, &fmt) + 1;
+
+ if (!(nxtbuf = compbuffers = (char **)
+ calloc((size_t) ncomps, sizeof(char *))))
+ adios(NULL, "unable to allocate component buffers");
+ if (!(savecomp = used_buf = (struct comp **)
+ calloc((size_t) (ncomps+1), sizeof(struct comp *))))
+ adios(NULL, "unable to allocate component buffer stack");
+ savecomp += ncomps + 1;
+ *--savecomp = NULL; /* point at zero'd end minus 1 */
+
+ for (i = ncomps; i--; )
+ *nxtbuf++ = mh_xmalloc(SBUFSIZ);
+
+ nxtbuf = compbuffers; /* point at start */
+ tmpbuf = *nxtbuf++;
+
+ for (ap = addrcomps; *ap; ap++) {
+ FINDCOMP(cptr, *ap);
+ if (cptr)
+ cptr->c_type |= CT_ADDR;
+ }
+
+ /*
+ ** ignore any components killed by command line switches
+ */
+ if (!ccto) {
+ FINDCOMP(cptr, "to");
+ if (cptr)
+ cptr->c_name = "";
+ }
+ if (!cccc) {
+ FINDCOMP(cptr, "cc");
+ if (cptr)
+ cptr->c_name = "";
+ }
+ if ((cp = getenv("USER"))) {
+ FINDCOMP(cptr, "user");
+ if (cptr)
+ cptr->c_text = getcpy(cp);
+ }
+ if (!ccme)
+ ismymbox(NULL);
+
+ /*
+ ** pick any interesting stuff out of msg "inb"
+ */
+ for (state = FLD;;) {
+ state = m_getfld(state, name, tmpbuf, SBUFSIZ, inb);
+ switch (state) {
+ case FLD:
+ case FLDPLUS:
+ /*
+ ** if we're interested in this component, save
+ ** a pointer to the component text, then start
+ ** using our next free buffer as the component
+ ** temp buffer (buffer switching saves an extra
+ ** copy of the component text).
+ */
+ if ((cptr = wantcomp[CHASH(name)]))
+ do {
+ if (!mh_strcasecmp(name, cptr->c_name)) {
+ char_read += msg_count;
+ if (! cptr->c_text) {
+ i = strlen(cptr->c_text = tmpbuf) - 1;
+ if (tmpbuf[i] == '\n')
+ tmpbuf[i] = '\0';
+ *--savecomp = cptr;
+ tmpbuf = *nxtbuf++;
+ } else {
+ i = strlen(cp = cptr->c_text) - 1;
+ if (cp[i] == '\n') {
+ if (cptr->c_type & CT_ADDR) {
+ cp[i] = '\0';
+ cp = add(",\n\t", cp);
+ } else {
+ cp = add("\t", cp);
+ }
+ }
+ cptr->c_text = add(tmpbuf, cp);
+ }
+ while (state == FLDPLUS) {
+ state = m_getfld(state, name, tmpbuf,
+ SBUFSIZ, inb);
+ cptr->c_text = add(tmpbuf, cptr->c_text);
+ char_read += msg_count;
+ }
+ break;
+ }
+ } while ((cptr = cptr->c_next));
+
+ while (state == FLDPLUS)
+ state = m_getfld(state, name, tmpbuf,
+ SBUFSIZ, inb);
+ break;
+
+ case LENERR:
+ case FMTERR:
+ case BODY:
+ case FILEEOF:
+ goto finished;
+
+ default:
+ adios(NULL, "m_getfld() returned %d", state);
+ }