+main(int argc, char **argv)
+{
+ int datesw = 1;
+ int preserve = 0;
+ int msgnum;
+ char *cp, *maildir;
+ unsigned char *comp = NULL;
+ char *text = NULL, *folder = NULL, buf[BUFSIZ];
+ char *file = NULL;
+ char **argp, **arguments;
+ struct msgs_array msgs = { 0, 0, NULL };
+ struct msgs *mp;
+ int append = 0; /* append annotations instead of default prepend */
+ int number = 0; /* delete specific number of like elements if set */
+
+ setlocale(LC_ALL, "");
+ invo_name = mhbasename(argv[0]);
+ context_read();
+
+ arguments = getarguments(invo_name, argc, argv, 1);
+ argp = arguments;
+
+ while ((cp = *argp++)) {
+ if (*cp == '-') {
+ switch (smatch(++cp, switches)) {
+ case AMBIGSW:
+ ambigsw(cp, switches);
+ exit(EX_USAGE);
+ case UNKWNSW:
+ adios(EX_USAGE, NULL, "-%s unknown", cp);
+
+ case HELPSW:
+ snprintf(buf, sizeof(buf),
+ "%s [+folder] [msgs] [switches]",
+ invo_name);
+ print_help(buf, switches, 1);
+ exit(argc == 2 ? EX_OK : EX_USAGE);
+ case VERSIONSW:
+ print_version(invo_name);
+ exit(argc == 2 ? EX_OK : EX_USAGE);
+
+ case DELETESW: /* delete annotations */
+ mode = MODE_DEL;
+ continue;
+
+ case LISTSW: /* produce a listing */
+ mode = MODE_LIST;
+ continue;
+
+ case COMPSW:
+ if (comp)
+ adios(EX_USAGE, NULL, "only one component at a time!");
+ if (!(comp = *argp++) || *comp == '-')
+ adios(EX_USAGE, NULL, "missing argument to %s",
+ argp[-2]);
+ continue;
+
+ case TEXTSW:
+ if (text)
+ adios(EX_USAGE, NULL, "only one body at a time!");
+ if (!(text = *argp++) || *text == '-')
+ adios(EX_USAGE, NULL, "missing argument to %s",
+ argp[-2]);
+ continue;
+
+ case NUMBERSW: /* number listing or delete by number */
+ if (mode == MODE_ADD) {
+ adios(EX_USAGE, NULL, "-number switch must appear after -list or -delete, only.");
+ }
+ if (mode == MODE_LIST) {
+ number = 1;
+ continue;
+ }
+ /* MODE_DEL */
+ if (number) {
+ adios(EX_USAGE, NULL, "only one number at a time!");
+ }
+ if (*argp && strcmp(*argp, "all")==0) {
+ number = -1;
+ argp++;
+ continue;
+ }
+ if (!*argp || !(number = atoi(*argp))) {
+ adios(EX_USAGE, NULL, "missing argument to %s",
+ argp[-1]);
+ }
+ if (number < 0) {
+ adios(EX_USAGE, NULL, "invalid number (%d).",
+ number);
+ }
+ argp++;
+ continue;
+
+ case DATESW:
+ datesw++;
+ continue;
+ case NDATESW:
+ datesw = 0;
+ continue;
+
+ case APPENDSW:
+ append = 1;
+ continue;
+
+ case PRESERVESW:
+ preserve = 1;
+ continue;
+
+ case NOPRESERVESW:
+ preserve = 0;
+ continue;
+ }
+ }
+ if (*cp == '+' || *cp == '@') {
+ if (folder)
+ adios(EX_USAGE, NULL, "only one folder at a time!");
+ else
+ folder = getcpy(expandfol(cp));
+ } else if (*cp == '/' || *cp == '.') {
+ if (file)
+ adios(EX_USAGE, NULL, "only one file at a time!");
+ file = cp;
+ } else {
+ app_msgarg(&msgs, cp);
+ }
+ }
+
+ if (file && (folder || msgs.size)) {
+ adios(EX_USAGE, NULL, "Don't intermix files and messages.");
+ }
+ if (!datesw && !text) {
+ adios(EX_USAGE, NULL, "-nodate without -text is a no-op.");
+ }
+ if (number && text) {
+ adios(EX_USAGE, NULL, "Don't combine -number with -text.");
+ }
+
+ if (file) {
+ if (mode == MODE_LIST)
+ annolist(file, comp, number);
+ else
+ annotate(file, comp, text, datesw, number,
+ append, preserve);
+ exit(EX_OK);
+ }
+
+ if (!msgs.size)
+ app_msgarg(&msgs, seq_cur);
+ if (!folder)
+ folder = getcurfol();
+ maildir = toabsdir(folder);
+
+ if (chdir(maildir) == NOTOK)
+ adios(EX_OSERR, maildir, "unable to change directory to");
+
+ /* read folder and create message structure */
+ if (!(mp = folder_read(folder)))
+ adios(EX_IOERR, NULL, "unable to read folder %s", folder);
+
+ /* check for empty folder */
+ if (mp->nummsg == 0)
+ adios(EX_DATAERR, NULL, "no messages in %s", folder);
+
+ /* parse all the message ranges/sequences and set SELECTED */
+ for (msgnum = 0; msgnum < msgs.size; msgnum++) {
+ if (!m_convert(mp, msgs.msgs[msgnum])) {
+ exit(EX_SOFTWARE);
+ }
+ }
+
+ /* annotate all the SELECTED messages */
+ for (msgnum = mp->lowsel; msgnum <= mp->hghsel; msgnum++) {
+ if (is_selected(mp, msgnum)) {
+ if (mode == MODE_LIST)
+ annolist(m_name(msgnum), comp, number);
+ else
+ annotate(m_name(msgnum), comp, text, datesw,
+ number, append, preserve);
+ }
+ }
+
+ context_replace(curfolder, folder);
+ seq_setcur(mp, mp->lowsel);
+ seq_save(mp);
+ folder_free(mp);
+ context_save();
+ return 0;
+}
+
+static void
+make_comp(unsigned char **ap)
+{
+ unsigned char *cp;
+ char buffer[BUFSIZ];
+
+ if (!*ap) {
+ printf("Enter component name: ");
+ fflush(stdout);
+
+ if (!fgets(buffer, sizeof buffer, stdin)) {
+ exit(EX_IOERR);
+ }
+ *ap = trimcpy(buffer);
+ }
+
+ if ((cp = *ap + strlen(*ap) - 1) > *ap && *cp == ':')
+ *cp = '\0';
+ if (strlen(*ap) == 0)
+ adios(EX_SOFTWARE, NULL, "null component name");
+ if (**ap == '-')
+ adios(EX_CONFIG, NULL, "invalid component name %s", *ap);
+ if (strlen(*ap) >= NAMESZ)
+ adios(EX_SOFTWARE, NULL, "too large component name %s", *ap);
+
+ for (cp = *ap; *cp; cp++)
+ if (!isalnum(*cp) && *cp != '-')
+ adios(EX_CONFIG, NULL, "invalid component name %s", *ap);
+}
+
+
+/*
+** Produce a listing of all header fields (annotations) whose field
+** name matches comp. Number the listing if number is set.
+*/
+static void
+annolist(char *file, unsigned char *comp, int number)