Mercurial > hg > Applications > mh
view sbr/refile.c @ 12:441a2190cfae
Lion fix
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 21 Apr 2012 13:10:49 +0900 |
parents | bce86c4163a3 |
children |
line wrap: on
line source
/* refile.c - refile the draft into another folder */ #ifndef lint static char ident[] = "@(#)$Id: refile.c,v 1.1.1.1 2005/04/18 14:46:06 kono Exp $"; #endif /* lint */ #include "../h/mh.h" #include <stdio.h> #ifdef UNISTD #include <unistd.h> #endif int refile (arg, file) register char **arg, *file; { int pid; register int vecp; char *vec[MAXARGS]; vecp = 0; vec[vecp++] = r1bindex (fileproc, '/'); vec[vecp++] = "-nolink"; /* override bad .mh_profile defaults */ vec[vecp++] = "-nopreserve"; vec[vecp++] = "-file"; vec[vecp++] = file; if (arg) while (*arg) vec[vecp++] = *arg++; vec[vecp] = NULL; m_update (); (void) fflush (stdout); switch (pid = vfork ()) { case NOTOK: advise ("fork", "unable to"); return NOTOK; case OK: execvp (fileproc, vec); fprintf (stderr, "unable to exec "); perror (fileproc); _exit (-1); default: return (pidwait (pid, NOTOK)); } }