|
0
|
1 /* repl.c - reply to a message */
|
|
|
2 #ifndef lint
|
|
|
3 static char ident[] = "@(#)$Id$";
|
|
|
4 #endif /* lint */
|
|
|
5
|
|
|
6 #include "../h/mh.h"
|
|
|
7 #include <stdio.h>
|
|
|
8 #include <sys/types.h>
|
|
|
9 #include <sys/stat.h>
|
|
|
10 #ifdef LOCALE
|
|
|
11 #include <locale.h>
|
|
|
12 #endif
|
|
|
13
|
|
|
14 #ifndef MIME
|
|
|
15 #define MIMEminc(a) (a)
|
|
|
16 #else /* MIME */
|
|
|
17 #define MIMEminc(a) 0
|
|
|
18 #endif /* MIME */
|
|
|
19
|
|
|
20 /* */
|
|
|
21
|
|
|
22 static struct swit switches[] = {
|
|
|
23 #define ANNOSW 0
|
|
|
24 "annotate", 0,
|
|
|
25 #define NANNOSW 1
|
|
|
26 "noannotate", 0,
|
|
|
27
|
|
|
28 #define CCSW 2
|
|
|
29 "cc type", 0,
|
|
|
30 #define NCCSW 3
|
|
|
31 "nocc type", 0,
|
|
|
32
|
|
|
33 #define DFOLDSW 4
|
|
|
34 "draftfolder +folder", 0,
|
|
|
35 #define DMSGSW 5
|
|
|
36 "draftmessage msg", 0,
|
|
|
37 #define NDFLDSW 6
|
|
|
38 "nodraftfolder", 0,
|
|
|
39
|
|
|
40 #define EDITRSW 7
|
|
|
41 "editor editor", 0,
|
|
|
42 #define NEDITSW 8
|
|
|
43 "noedit", 0,
|
|
|
44
|
|
|
45 #define FCCSW 9
|
|
|
46 "fcc folder", 0,
|
|
|
47
|
|
|
48 #define FILTSW 10
|
|
|
49 "filter filterfile", 0,
|
|
|
50 #define FORMSW 11
|
|
|
51 "form formfile", 0,
|
|
|
52
|
|
|
53 #define FRMTSW 12
|
|
|
54 "format", -5,
|
|
|
55 #define NFRMTSW 13
|
|
|
56 "noformat", -7,
|
|
|
57
|
|
|
58 #define INPLSW 14
|
|
|
59 "inplace", 0,
|
|
|
60 #define NINPLSW 15
|
|
|
61 "noinplace", 0,
|
|
|
62
|
|
|
63 #define MIMESW 16
|
|
|
64 "mime", MIMEminc(-4),
|
|
|
65 #define NMIMESW 17
|
|
|
66 "nomime", MIMEminc(-6),
|
|
|
67
|
|
|
68 #define QURYSW 18
|
|
|
69 "query", 0,
|
|
|
70 #define NQURYSW 19
|
|
|
71 "noquery", 0,
|
|
|
72
|
|
|
73 #define WHATSW 20
|
|
|
74 "whatnowproc program", 0,
|
|
|
75 #define NWHATSW 21
|
|
|
76 "nowhatnowproc", 0,
|
|
|
77
|
|
|
78 #define WIDTHSW 22
|
|
|
79 "width columns", 0,
|
|
|
80
|
|
|
81 #define HELPSW 23
|
|
|
82 "help", 4,
|
|
|
83
|
|
|
84 #define FILESW 24
|
|
|
85 "file file", -4, /* interface from msh */
|
|
|
86
|
|
|
87 #ifdef MHE
|
|
|
88 #define BILDSW 25
|
|
|
89 "build", -5, /* interface from mhe */
|
|
|
90 #endif /* MHE */
|
|
|
91
|
|
|
92 NULL, 0
|
|
|
93 };
|
|
|
94
|
|
|
95
|
|
|
96 static struct swit ccswitches[] = {
|
|
|
97 #define CTOSW 0
|
|
|
98 "to", 0,
|
|
|
99 #define CCCSW 1
|
|
|
100 "cc", 0,
|
|
|
101 #define CMESW 2
|
|
|
102 "me", 0,
|
|
|
103 #define CALSW 3
|
|
|
104 "all", 0,
|
|
|
105
|
|
|
106 NULL, 0
|
|
|
107 };
|
|
|
108
|
|
|
109 /* */
|
|
|
110
|
|
|
111 static struct swit aqrnl[] = {
|
|
|
112 #define NOSW 0
|
|
|
113 "quit", 0,
|
|
|
114 #define YESW 1
|
|
|
115 "replace", 0,
|
|
|
116 #define LISTDSW 2
|
|
|
117 "list", 0,
|
|
|
118 #define REFILSW 3
|
|
|
119 "refile +folder", 0,
|
|
|
120 #define NEWSW 4
|
|
|
121 "new", 0,
|
|
|
122
|
|
|
123 NULL, 0
|
|
|
124 };
|
|
|
125
|
|
|
126
|
|
|
127 static struct swit aqrl[] = {
|
|
|
128 "quit", 0,
|
|
|
129 "replace", 0,
|
|
|
130 "list", 0,
|
|
|
131 "refile +folder", 0,
|
|
|
132
|
|
|
133 NULL, 0
|
|
|
134 };
|
|
|
135
|
|
|
136 /* */
|
|
|
137
|
|
|
138 #ifndef ATHENA
|
|
|
139 #define CCDFLT 1
|
|
|
140 #else /* ATHENA */
|
|
|
141 #define CCDFLT 0
|
|
|
142 #endif /* ATHENA */
|
|
|
143
|
|
|
144 short ccto = CCDFLT; /* global for replsbr */
|
|
|
145 short cccc = CCDFLT;
|
|
|
146 short ccme = CCDFLT;
|
|
|
147 short format = 1;
|
|
|
148 short outputlinelen = OUTPUTLINELEN;
|
|
|
149 short querysw = 0;
|
|
|
150
|
|
|
151 extern int mime;
|
|
|
152
|
|
|
153 char *fcc = NULL; /* global for replsbr */
|
|
|
154 char *filter = NULL;
|
|
|
155 char *form = NULL;
|
|
|
156
|
|
|
157 /* */
|
|
|
158
|
|
|
159 /* ARGSUSED */
|
|
|
160
|
|
|
161 main (argc, argv)
|
|
|
162 int argc;
|
|
|
163 char *argv[];
|
|
|
164 {
|
|
|
165 int i,
|
|
|
166 isdf = 0,
|
|
|
167 anot = 0,
|
|
|
168 inplace = 0,
|
|
|
169 #ifdef MHE
|
|
|
170 buildsw = 0,
|
|
|
171 #endif /* MHE */
|
|
|
172 nedit = 0,
|
|
|
173 nwhat = 0;
|
|
|
174 char *cp,
|
|
|
175 *cwd,
|
|
|
176 *dp,
|
|
|
177 *maildir,
|
|
|
178 *file = NULL,
|
|
|
179 *folder = NULL,
|
|
|
180 *msg = NULL,
|
|
|
181 *dfolder = NULL,
|
|
|
182 *dmsg = NULL,
|
|
|
183 *ed = NULL,
|
|
|
184 drft[BUFSIZ],
|
|
|
185 buf[100],
|
|
|
186 **ap,
|
|
|
187 **argp,
|
|
|
188 *arguments[MAXARGS];
|
|
|
189 struct msgs *mp = NULL;
|
|
|
190 struct stat st;
|
|
|
191 FILE *in;
|
|
|
192
|
|
|
193 #ifdef LOCALE
|
|
|
194 setlocale(LC_ALL, "");
|
|
|
195 #endif
|
|
|
196 #ifdef JAPAN
|
|
|
197 ml_init();
|
|
|
198 #endif /* JAPAN */
|
|
|
199 invo_name = r1bindex (argv[0], '/');
|
|
|
200 if ((cp = m_find (invo_name)) != NULL) {
|
|
|
201 ap = brkstring (cp = getcpy (cp), " ", "\n");
|
|
|
202 ap = copyip (ap, arguments);
|
|
|
203 }
|
|
|
204 else
|
|
|
205 ap = arguments;
|
|
|
206 (void) copyip (argv + 1, ap);
|
|
|
207 argp = arguments;
|
|
|
208
|
|
|
209 /* */
|
|
|
210
|
|
|
211 while (cp = *argp++) {
|
|
|
212 if (*cp == '-')
|
|
|
213 switch (smatch (++cp, switches)) {
|
|
|
214 case AMBIGSW:
|
|
|
215 ambigsw (cp, switches);
|
|
|
216 done (1);
|
|
|
217 case UNKWNSW:
|
|
|
218 adios (NULLCP, "-%s unknown", cp);
|
|
|
219 case HELPSW:
|
|
|
220 (void) sprintf (buf, "%s: [+folder] [msg] [switches]",
|
|
|
221 invo_name);
|
|
|
222 help (buf, switches);
|
|
|
223 done (0);
|
|
|
224
|
|
|
225 case ANNOSW:
|
|
|
226 anot++;
|
|
|
227 continue;
|
|
|
228 case NANNOSW:
|
|
|
229 anot = 0;
|
|
|
230 continue;
|
|
|
231
|
|
|
232 case CCSW:
|
|
|
233 if (!(cp = *argp++) || *cp == '-')
|
|
|
234 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
235 docc (cp, 1);
|
|
|
236 continue;
|
|
|
237 case NCCSW:
|
|
|
238 if (!(cp = *argp++) || *cp == '-')
|
|
|
239 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
240 docc (cp, 0);
|
|
|
241 continue;
|
|
|
242
|
|
|
243 case EDITRSW:
|
|
|
244 if (!(ed = *argp++) || *ed == '-')
|
|
|
245 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
246 nedit = 0;
|
|
|
247 continue;
|
|
|
248 case NEDITSW:
|
|
|
249 nedit++;
|
|
|
250 continue;
|
|
|
251
|
|
|
252 case WHATSW:
|
|
|
253 if (!(whatnowproc = *argp++) || *whatnowproc == '-')
|
|
|
254 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
255 nwhat = 0;
|
|
|
256 continue;
|
|
|
257 #ifdef MHE
|
|
|
258 case BILDSW:
|
|
|
259 buildsw++; /* fall... */
|
|
|
260 #endif /* MHE */
|
|
|
261 case NWHATSW:
|
|
|
262 nwhat++;
|
|
|
263 continue;
|
|
|
264
|
|
|
265 case FCCSW:
|
|
|
266 if (!(cp = *argp++) || *cp == '-')
|
|
|
267 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
268 dp = NULL;
|
|
|
269 if (*cp == '@')
|
|
|
270 cp = dp = path (cp + 1, TSUBCWF);
|
|
|
271 if (fcc)
|
|
|
272 fcc = add (", ", fcc);
|
|
|
273 fcc = add (cp, fcc);
|
|
|
274 if (dp)
|
|
|
275 free (dp);
|
|
|
276 continue;
|
|
|
277
|
|
|
278 case FILESW:
|
|
|
279 if (file)
|
|
|
280 adios (NULLCP, "only one file at a time!");
|
|
|
281 if (!(cp = *argp++) || *cp == '-')
|
|
|
282 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
283 file = path (cp, TFILE);
|
|
|
284 continue;
|
|
|
285 case FILTSW:
|
|
|
286 if (!(cp = *argp++) || *cp == '-')
|
|
|
287 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
288 filter = getcpy (libpath (cp));
|
|
|
289 mime = 0;
|
|
|
290 continue;
|
|
|
291 case FORMSW:
|
|
|
292 if (!(form = *argp++) || *form == '-')
|
|
|
293 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
294 continue;
|
|
|
295
|
|
|
296 case FRMTSW:
|
|
|
297 format++;
|
|
|
298 continue;
|
|
|
299 case NFRMTSW:
|
|
|
300 format = 0;
|
|
|
301 continue;
|
|
|
302
|
|
|
303 case INPLSW:
|
|
|
304 inplace++;
|
|
|
305 continue;
|
|
|
306 case NINPLSW:
|
|
|
307 inplace = 0;
|
|
|
308 continue;
|
|
|
309
|
|
|
310 case MIMESW:
|
|
|
311 #ifdef MIME
|
|
|
312 mime++;
|
|
|
313 filter = NULL;
|
|
|
314 #endif
|
|
|
315 continue;
|
|
|
316 case NMIMESW:
|
|
|
317 mime = 0;
|
|
|
318 continue;
|
|
|
319
|
|
|
320 case QURYSW:
|
|
|
321 querysw++;
|
|
|
322 continue;
|
|
|
323 case NQURYSW:
|
|
|
324 querysw = 0;
|
|
|
325 continue;
|
|
|
326
|
|
|
327 case WIDTHSW:
|
|
|
328 if (!(cp = *argp++) || *cp == '-')
|
|
|
329 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
330 if ((outputlinelen = atoi (cp)) < 10)
|
|
|
331 adios (NULLCP, "impossible width %d", outputlinelen);
|
|
|
332 continue;
|
|
|
333
|
|
|
334 case DFOLDSW:
|
|
|
335 if (dfolder)
|
|
|
336 adios (NULLCP, "only one draft folder at a time!");
|
|
|
337 if (!(cp = *argp++) || *cp == '-')
|
|
|
338 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
339 dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
|
|
|
340 *cp != '@' ? TFOLDER : TSUBCWF);
|
|
|
341 continue;
|
|
|
342 case DMSGSW:
|
|
|
343 if (dmsg)
|
|
|
344 adios (NULLCP, "only one draft message at a time!");
|
|
|
345 if (!(dmsg = *argp++) || *dmsg == '-')
|
|
|
346 adios (NULLCP, "missing argument to %s", argp[-2]);
|
|
|
347 continue;
|
|
|
348 case NDFLDSW:
|
|
|
349 dfolder = NULL;
|
|
|
350 isdf = NOTOK;
|
|
|
351 continue;
|
|
|
352 }
|
|
|
353 if (*cp == '+' || *cp == '@') {
|
|
|
354 if (folder)
|
|
|
355 adios (NULLCP, "only one folder at a time!");
|
|
|
356 else
|
|
|
357 folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
|
|
|
358 }
|
|
|
359 else
|
|
|
360 if (msg)
|
|
|
361 adios (NULLCP, "only one message at a time!");
|
|
|
362 else
|
|
|
363 msg = cp;
|
|
|
364 }
|
|
|
365
|
|
|
366 /* */
|
|
|
367
|
|
|
368 cwd = getcpy (pwd ());
|
|
|
369
|
|
|
370 if (!m_find ("path"))
|
|
|
371 free (path ("./", TFOLDER));
|
|
|
372 if (file && (msg || folder))
|
|
|
373 adios (NULLCP, "can't mix files and folders/msgs");
|
|
|
374
|
|
|
375 try_it_again: ;
|
|
|
376 #ifndef MHE
|
|
|
377 (void) strcpy (drft, m_draft (dfolder, dmsg, NOUSE, &isdf));
|
|
|
378 if (stat (drft, &st) != NOTOK) {
|
|
|
379 #else /* MHE */
|
|
|
380 (void) strcpy (drft, buildsw ? m_maildir ("reply")
|
|
|
381 : m_draft (dfolder, NULLCP, NOUSE, &isdf));
|
|
|
382 if (!buildsw && stat (drft, &st) != NOTOK) {
|
|
|
383 #endif /* MHE */
|
|
|
384 printf ("Draft \"%s\" exists (%ld bytes).", drft, (long) st.st_size);
|
|
|
385 for (i = LISTDSW; i != YESW;) {
|
|
|
386 if (!(argp = getans ("\nDisposition? ", isdf ? aqrnl : aqrl)))
|
|
|
387 done (1);
|
|
|
388 switch (i = smatch (*argp, isdf ? aqrnl : aqrl)) {
|
|
|
389 case NOSW:
|
|
|
390 done (0);
|
|
|
391 case NEWSW:
|
|
|
392 dmsg = NULL;
|
|
|
393 goto try_it_again;
|
|
|
394 case YESW:
|
|
|
395 break;
|
|
|
396 case LISTDSW:
|
|
|
397 (void) showfile (++argp, drft);
|
|
|
398 break;
|
|
|
399 case REFILSW:
|
|
|
400 if (refile (++argp, drft) == 0)
|
|
|
401 i = YESW;
|
|
|
402 break;
|
|
|
403 default:
|
|
|
404 advise (NULLCP, "say what?");
|
|
|
405 break;
|
|
|
406 }
|
|
|
407 }
|
|
|
408 }
|
|
|
409
|
|
|
410 /* */
|
|
|
411
|
|
|
412 if (file) {
|
|
|
413 anot = 0;
|
|
|
414 goto go_to_it;
|
|
|
415 }
|
|
|
416
|
|
|
417 if (!msg)
|
|
|
418 msg = "cur";
|
|
|
419 if (!folder)
|
|
|
420 folder = m_getfolder ();
|
|
|
421 maildir = m_maildir (folder);
|
|
|
422
|
|
|
423 if (chdir (maildir) == NOTOK)
|
|
|
424 adios (maildir, "unable to change directory to");
|
|
|
425 if (!(mp = m_gmsg (folder)))
|
|
|
426 adios (NULLCP, "unable to read folder %s", folder);
|
|
|
427 if (mp -> hghmsg == 0)
|
|
|
428 adios (NULLCP, "no messages in %s", folder);
|
|
|
429
|
|
|
430 if (!m_convert (mp, msg))
|
|
|
431 done (1);
|
|
|
432 m_setseq (mp);
|
|
|
433
|
|
|
434 if (mp -> numsel > 1)
|
|
|
435 adios (NULLCP, "only one message at a time!");
|
|
|
436
|
|
|
437 m_replace (pfolder, folder);
|
|
|
438 if (mp -> lowsel != mp -> curmsg)
|
|
|
439 m_setcur (mp, mp -> lowsel);
|
|
|
440 m_sync (mp);
|
|
|
441 m_update ();
|
|
|
442
|
|
|
443 go_to_it: ;
|
|
|
444 msg = file ? file : getcpy (m_name (mp -> lowsel));
|
|
|
445
|
|
|
446 if ((in = fopen (msg, "r")) == NULL)
|
|
|
447 adios (msg, "unable to open");
|
|
|
448
|
|
|
449 replout (in, msg, drft, mp);
|
|
|
450 (void) fclose (in);
|
|
|
451
|
|
|
452 if (nwhat)
|
|
|
453 done (0);
|
|
|
454 (void) what_now (ed, nedit, NOUSE, drft, msg, 0, mp,
|
|
|
455 anot ? "Replied" : NULLCP, inplace, cwd);
|
|
|
456 done (1);
|
|
|
457 }
|
|
|
458
|
|
|
459 /* */
|
|
|
460
|
|
|
461 docc (cp, ccflag)
|
|
|
462 register char *cp;
|
|
|
463 int ccflag;
|
|
|
464 {
|
|
|
465 switch (smatch (cp, ccswitches)) {
|
|
|
466 case AMBIGSW:
|
|
|
467 ambigsw (cp, ccswitches);
|
|
|
468 done (1);
|
|
|
469 case UNKWNSW:
|
|
|
470 adios (NULLCP, "-%scc %s unknown", ccflag ? "" : "no", cp);
|
|
|
471
|
|
|
472 case CTOSW:
|
|
|
473 ccto = ccflag;
|
|
|
474 break;
|
|
|
475
|
|
|
476 case CCCSW:
|
|
|
477 cccc = ccflag;
|
|
|
478 break;
|
|
|
479
|
|
|
480 case CMESW:
|
|
|
481 ccme = ccflag;
|
|
|
482 break;
|
|
|
483
|
|
|
484 case CALSW:
|
|
|
485 ccto = cccc = ccme = ccflag;
|
|
|
486 break;
|
|
|
487 }
|
|
|
488 }
|
