2 ** dist.c -- re-distribute a message
4 ** This code is Copyright (c) 2002, by the authors of nmh. See the
5 ** COPYRIGHT file in the root directory of the nmh distribution for
6 ** complete copyright information.
16 static struct swit switches[] = {
22 { "editor editor", 0 },
24 { "form formfile", 0 },
26 { "whatnowproc program", 0 },
34 char *version=VERSION;
37 main(int argc, char **argv)
41 char *cp, *cwd, *maildir, *msgnam;
42 char *ed = NULL, *folder = NULL;
43 char *form = NULL, *msg = NULL, buf[BUFSIZ], drft[BUFSIZ];
44 char **argp, **arguments;
45 struct msgs *mp = NULL;
48 setlocale(LC_ALL, "");
49 invo_name = mhbasename(argv[0]);
51 /* read user profile/context */
54 arguments = getarguments(invo_name, argc, argv, 1);
57 while ((cp = *argp++)) {
59 switch (smatch(++cp, switches)) {
61 ambigsw(cp, switches);
64 adios(EX_USAGE, NULL, "-%s unknown", cp);
67 snprintf(buf, sizeof(buf), "%s [+folder] [msg] [switches]", invo_name);
68 print_help(buf, switches, 1);
69 exit(argc == 2 ? EX_OK : EX_USAGE);
72 print_version(invo_name);
73 exit(argc == 2 ? EX_OK : EX_USAGE);
83 if (!(ed = *argp++) || *ed == '-')
84 adios(EX_USAGE, NULL, "missing argument to %s",
89 if (!(whatnowproc = *argp++) || *whatnowproc == '-') {
90 adios(EX_USAGE, NULL, "missing argument to %s",
96 if (!(form = *argp++) || *form == '-') {
97 adios(EX_USAGE, NULL, "missing argument to %s",
103 if (*cp == '+' || *cp == '@') {
105 adios(EX_USAGE, NULL, "only one folder at a time!");
107 folder = mh_xstrdup(expandfol(cp));
111 adios(EX_USAGE, NULL, "only one message at a time!");
118 cwd = mh_xstrdup(pwd());
120 strncpy(drft, m_draft(seq_beyond), sizeof(drft));
121 if ((out = creat(drft, m_gmprot())) == NOTOK) {
122 adios(EX_CANTCREAT, drft, "unable to create");
125 fmtstr = new_fs(form, distcomps);
126 if (write(out, fmtstr, strlen(fmtstr)) != (int)strlen(fmtstr)) {
127 adios(EX_IOERR, drft, "error writing");
135 folder = getcurfol();
137 maildir = toabsdir(folder);
139 if (chdir(maildir) == NOTOK) {
140 adios(EX_OSERR, maildir, "unable to change directory to");
143 if (!(mp = folder_read(folder))) {
144 adios(EX_IOERR, NULL, "unable to read folder %s", folder);
147 /* check for empty folder */
148 if (mp->nummsg == 0) {
149 adios(EX_NOINPUT, NULL, "no messages in %s", folder);
152 /* parse the message range/sequence/name and set SELECTED */
153 if (!m_convert(mp, msg)) {
157 if (mp->numsel > 1) {
158 adios(EX_USAGE, NULL, "only one message at a time!");
161 msgnam = mh_xstrdup(m_name(mp->lowsel));
162 if ((in = open(msgnam, O_RDONLY)) == NOTOK) {
163 adios(EX_IOERR, msgnam, "unable to open message");
166 context_replace(curfolder, folder);
167 seq_setcur(mp, mp->lowsel);
168 seq_save(mp); /* synchronize sequences */
171 what_now(ed, NOUSE, drft, msgnam, 1, mp, anot ? "Resent" : NULL, cwd);