add irc channel to README
[mmh] / uip / rmm.c
1 /*
2 ** rmm.c -- remove a message(s)
3 **
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.
7 */
8
9 #include <h/mh.h>
10 #include <h/utils.h>
11 #include <unistd.h>
12 #include <locale.h>
13 #include <sysexits.h>
14
15 static struct swit switches[] = {
16 #define UNLINKSW  0
17         { "unlink", 0 },
18 #define NUNLINKSW  1
19         { "nounlink", 2 },
20 #define VERSIONSW  2
21         { "Version", 0 },
22 #define HELPSW  3
23         { "help", 0 },
24         { NULL, 0 }
25 };
26
27 char *version=VERSION;
28
29 int
30 main(int argc, char **argv)
31 {
32         int msgnum, unlink_msgs = 0, vecp = 0;
33         char *cp, *maildir, *folder = NULL, **vec;
34         char buf[BUFSIZ], **argp;
35         char **arguments;
36         struct msgs_array msgs = { 0, 0, NULL };
37         struct msgs *mp;
38
39         setlocale(LC_ALL, "");
40         invo_name = mhbasename(argv[0]);
41
42         context_read();
43
44         arguments = getarguments(invo_name, argc, argv, 1);
45         argp = arguments;
46
47         /* parse arguments */
48         while ((cp = *argp++)) {
49                 if (*cp == '-') {
50                         switch (smatch(++cp, switches)) {
51                         case AMBIGSW:
52                                 ambigsw(cp, switches);
53                                 exit(EX_USAGE);
54                         case UNKWNSW:
55                                 adios(EX_USAGE, NULL, "-%s unknown\n", cp);
56
57                         case HELPSW:
58                                 snprintf(buf, sizeof(buf), "%s [+folder] [msgs] [switches]", invo_name);
59                                 print_help(buf, switches, 1);
60                                 exit(argc == 2 ? EX_OK : EX_USAGE);
61                         case VERSIONSW:
62                                 print_version(invo_name);
63                                 exit(argc == 2 ? EX_OK : EX_USAGE);
64
65                         case UNLINKSW:
66                                 unlink_msgs++;
67                                 continue;
68                         case NUNLINKSW:
69                                 unlink_msgs = 0;
70                                 continue;
71                         }
72                 }
73                 if (*cp == '+' || *cp == '@') {
74                         if (folder) {
75                                 adios(EX_USAGE, NULL, "only one folder at a time!");
76                         } else {
77                                 folder = mh_xstrdup(expandfol(cp));
78                         }
79                 } else {
80                         app_msgarg(&msgs, cp);
81                 }
82         }
83
84         if (!msgs.size) {
85                 app_msgarg(&msgs, seq_cur);
86         }
87         if (!folder) {
88                 folder = getcurfol();
89         }
90         maildir = toabsdir(folder);
91
92         if (chdir(maildir) == NOTOK) {
93                 adios(EX_OSERR, maildir, "unable to change directory to");
94         }
95
96         /* read folder and create message structure */
97         if (!(mp = folder_read(folder))) {
98                 adios(EX_IOERR, NULL, "unable to read folder %s", folder);
99         }
100         if (mp->nummsg == 0) {
101                 adios(EX_DATAERR, NULL, "no messages in %s", folder);
102         }
103         /*
104         ** parse all the message ranges/sequences and set SELECTED
105         ** (We do this for the refiling case as well, to complain
106         ** about invalid msg arguments in rmm, before we call refile.)
107         */
108         for (msgnum = 0; msgnum < msgs.size; msgnum++) {
109                 if (!m_convert(mp, msgs.msgs[msgnum])) {
110                         exit(EX_USAGE);
111                 }
112         }
113
114         context_replace(curfolder, folder);
115         context_save();
116
117         if (unlink_msgs) {
118                 /* "remove" the SELECTED messages */
119                 folder_delmsgs(mp, 1);
120                 seq_save(mp);
121                 folder_free(mp);
122                 return 0;
123         }
124
125         /* remove by refiling. */
126
127         folder_free(mp);
128         fflush(stdout);
129
130         if (msgs.size+6 > MAXARGS) {
131                 adios(EX_SOFTWARE, NULL, "more than %d messages for refile exec",
132                                 MAXARGS - 6);
133         }
134         vec = mh_xcalloc(msgs.size + 6, sizeof(*vec));
135         vec[vecp++] = "refile";
136         vec[vecp++] = "-src";
137         vec[vecp++] = concat("+", folder, NULL);
138         vec[vecp++] = "-nolink";
139         vec[vecp++] = concat("+", trashfolder, NULL);
140         for (msgnum = 0; msgnum < msgs.size; msgnum++) {
141                 vec[vecp++] = msgs.msgs[msgnum];
142         }
143         vec[vecp] = NULL;
144
145         return execprog(*vec, vec);
146 }