1 9f1fdc12 2005-10-29 devnull #include <u.h>
2 9f1fdc12 2005-10-29 devnull #include <libc.h>
3 9f1fdc12 2005-10-29 devnull #include <bio.h>
4 9f1fdc12 2005-10-29 devnull #include <thread.h>
5 9f1fdc12 2005-10-29 devnull #include <ctype.h>
6 3f8c36d6 2006-02-09 devnull #include <9pclient.h>
7 00d75e0e 2006-02-11 devnull #include <plumb.h>
8 9f1fdc12 2005-10-29 devnull #include "dat.h"
12 9f1fdc12 2005-10-29 devnull DIRCHUNK = 32*sizeof(Dir)
15 9f1fdc12 2005-10-29 devnull char regexchars[] = "\\/[].+?()*^$";
16 9f1fdc12 2005-10-29 devnull char deleted[] = "(deleted)-";
17 9f1fdc12 2005-10-29 devnull char deletedrx[] = "\\(deleted\\)-";
18 9f1fdc12 2005-10-29 devnull char deletedrx01[] = "(\\(deleted\\)-)?";
19 9f1fdc12 2005-10-29 devnull char deletedaddr[] = "-#0;/^\\(deleted\\)-/";
22 9f1fdc12 2005-10-29 devnull char *type;
23 9f1fdc12 2005-10-29 devnull char *port;
24 9f1fdc12 2005-10-29 devnull char *suffix;
25 9f1fdc12 2005-10-29 devnull } ports[] = {
26 9f1fdc12 2005-10-29 devnull "text/", "edit", ".txt", /* must be first for plumbport() */
27 9f1fdc12 2005-10-29 devnull "image/gif", "image", ".gif",
28 9f1fdc12 2005-10-29 devnull "image/jpeg", "image", ".jpg",
29 9f1fdc12 2005-10-29 devnull "image/jpeg", "image", ".jpeg",
30 9f1fdc12 2005-10-29 devnull "image/png", "image", ".png",
31 9f1fdc12 2005-10-29 devnull "application/postscript", "postscript", ".ps",
32 9f1fdc12 2005-10-29 devnull "application/pdf", "postscript", ".pdf",
33 9f1fdc12 2005-10-29 devnull "application/msword", "msword", ".doc",
34 9f1fdc12 2005-10-29 devnull "application/rtf", "msword", ".rtf",
38 9f1fdc12 2005-10-29 devnull char *goodtypes[] = {
40 9f1fdc12 2005-10-29 devnull "text/plain",
41 9f1fdc12 2005-10-29 devnull "message/rfc822",
42 9f1fdc12 2005-10-29 devnull "text/richtext",
43 9f1fdc12 2005-10-29 devnull "text/tab-separated-values",
44 9f1fdc12 2005-10-29 devnull "application/octet-stream",
48 9f1fdc12 2005-10-29 devnull char *okheaders[] =
54 9f1fdc12 2005-10-29 devnull "Subject:",
58 9f1fdc12 2005-10-29 devnull char *extraheaders[] =
60 9f1fdc12 2005-10-29 devnull "Resent-From:",
61 9f1fdc12 2005-10-29 devnull "Resent-To:",
67 9f1fdc12 2005-10-29 devnull line(char *data, char **pp)
69 9f1fdc12 2005-10-29 devnull char *p, *q;
71 9f1fdc12 2005-10-29 devnull for(p=data; *p!='\0' && *p!='\n'; p++)
73 9f1fdc12 2005-10-29 devnull if(*p == '\n')
74 9f1fdc12 2005-10-29 devnull *pp = p+1;
77 9f1fdc12 2005-10-29 devnull q = emalloc(p-data + 1);
78 9f1fdc12 2005-10-29 devnull memmove(q, data, p-data);
79 9f1fdc12 2005-10-29 devnull return q;
82 3f8c36d6 2006-02-09 devnull static char*
83 53af1186 2006-05-06 devnull mkaddrs(char *t, char **colon)
85 3f8c36d6 2006-02-09 devnull int i, nf, inquote;
86 3f8c36d6 2006-02-09 devnull char **f, *s;
89 3f8c36d6 2006-02-09 devnull inquote = 0;
91 3f8c36d6 2006-02-09 devnull for(s=t; *s; s++){
92 3f8c36d6 2006-02-09 devnull if(*s == '\'')
93 3f8c36d6 2006-02-09 devnull inquote = !inquote;
94 3f8c36d6 2006-02-09 devnull if(*s == ' ' && !inquote)
97 3f8c36d6 2006-02-09 devnull f = emalloc(nf*sizeof f[0]);
98 3f8c36d6 2006-02-09 devnull nf = tokenize(t, f, nf);
99 53af1186 2006-05-06 devnull if(colon){
100 53af1186 2006-05-06 devnull fmtstrinit(&fmt);
101 53af1186 2006-05-06 devnull for(i=0; i+1<nf; i+=2){
102 53af1186 2006-05-06 devnull if(i > 0)
103 53af1186 2006-05-06 devnull fmtprint(&fmt, ", ");
104 53af1186 2006-05-06 devnull if(f[i][0] == 0 || strcmp(f[i], f[i+1]) == 0)
105 53af1186 2006-05-06 devnull fmtprint(&fmt, "%s", f[i+1]);
107 53af1186 2006-05-06 devnull fmtprint(&fmt, "%s <%s>", f[i], f[i+1]);
109 53af1186 2006-05-06 devnull *colon = fmtstrflush(&fmt);
111 3f8c36d6 2006-02-09 devnull fmtstrinit(&fmt);
112 3f8c36d6 2006-02-09 devnull for(i=0; i+1<nf; i+=2){
113 3f8c36d6 2006-02-09 devnull if(i > 0)
114 3f8c36d6 2006-02-09 devnull fmtprint(&fmt, ", ");
115 53af1186 2006-05-06 devnull fmtprint(&fmt, "%s", f[i+1]);
117 9f1fdc12 2005-10-29 devnull free(f);
118 3f8c36d6 2006-02-09 devnull return fmtstrflush(&fmt);
122 9f1fdc12 2005-10-29 devnull loadinfo(Message *m, char *dir)
125 3f8c36d6 2006-02-09 devnull char *data, *p, *s, *t;
127 9f1fdc12 2005-10-29 devnull data = readfile(dir, "info", &n);
128 9f1fdc12 2005-10-29 devnull if(data == nil)
129 9f1fdc12 2005-10-29 devnull return 0;
131 3f8c36d6 2006-02-09 devnull p = data;
132 3f8c36d6 2006-02-09 devnull while((s = line(p, &p)) != nil && *s != 0){
133 3f8c36d6 2006-02-09 devnull t = strchr(s, ' ');
134 3f8c36d6 2006-02-09 devnull if(t == nil)
135 3f8c36d6 2006-02-09 devnull continue;
136 3f8c36d6 2006-02-09 devnull *t++ = 0;
137 3f8c36d6 2006-02-09 devnull if(strcmp(s, "from") == 0){
138 3f8c36d6 2006-02-09 devnull free(m->from);
139 53af1186 2006-05-06 devnull m->from = mkaddrs(t, &m->fromcolon);
140 3b5862ee 2006-02-14 devnull }else if(strcmp(s, "sender") == 0){
141 3b5862ee 2006-02-14 devnull free(m->sender);
142 53af1186 2006-05-06 devnull m->sender = mkaddrs(t, nil);
143 3f8c36d6 2006-02-09 devnull }else if(strcmp(s, "to") == 0){
144 3f8c36d6 2006-02-09 devnull free(m->to);
145 53af1186 2006-05-06 devnull m->to = mkaddrs(t, nil);
146 3f8c36d6 2006-02-09 devnull }else if(strcmp(s, "cc") == 0){
147 3f8c36d6 2006-02-09 devnull free(m->cc);
148 53af1186 2006-05-06 devnull m->cc = mkaddrs(t, nil);
149 3f8c36d6 2006-02-09 devnull }else if(strcmp(s, "replyto") == 0){
150 3f8c36d6 2006-02-09 devnull free(m->replyto);
151 53af1186 2006-05-06 devnull m->replyto = mkaddrs(t, nil);
152 3f8c36d6 2006-02-09 devnull }else if(strcmp(s, "subject") == 0){
153 3f8c36d6 2006-02-09 devnull free(m->subject);
154 3f8c36d6 2006-02-09 devnull m->subject = estrdup(t);
155 3f8c36d6 2006-02-09 devnull }else if(strcmp(s, "type") == 0){
156 3f8c36d6 2006-02-09 devnull free(m->type);
157 3f8c36d6 2006-02-09 devnull m->type = estrdup(t);
158 3f8c36d6 2006-02-09 devnull }else if(strcmp(s, "unixdate") == 0 && (t=strchr(t, ' ')) != nil){
159 3f8c36d6 2006-02-09 devnull free(m->date);
160 3f8c36d6 2006-02-09 devnull m->date = estrdup(t+1);
161 3b5862ee 2006-02-14 devnull }else if(strcmp(s, "digest") == 0){
162 3f8c36d6 2006-02-09 devnull free(m->digest);
163 3f8c36d6 2006-02-09 devnull m->digest = estrdup(t);
164 141d6009 2006-06-30 devnull }else if(strcmp(s, "filename") == 0){
165 141d6009 2006-06-30 devnull free(m->filename);
166 141d6009 2006-06-30 devnull m->filename = estrdup(t);
168 3f8c36d6 2006-02-09 devnull free(s);
170 3f8c36d6 2006-02-09 devnull free(s);
171 9f1fdc12 2005-10-29 devnull free(data);
172 3b5862ee 2006-02-14 devnull if(m->replyto == nil){
173 3b5862ee 2006-02-14 devnull if(m->sender)
174 3b5862ee 2006-02-14 devnull m->replyto = estrdup(m->sender);
175 3b5862ee 2006-02-14 devnull else if(m->from)
176 3b5862ee 2006-02-14 devnull m->replyto = estrdup(m->from);
178 3b5862ee 2006-02-14 devnull m->replyto = estrdup("");
180 3f8c36d6 2006-02-09 devnull if(m->from == nil)
181 3f8c36d6 2006-02-09 devnull m->from = estrdup("");
182 3f8c36d6 2006-02-09 devnull if(m->to == nil)
183 3f8c36d6 2006-02-09 devnull m->to = estrdup("");
184 3f8c36d6 2006-02-09 devnull if(m->cc == nil)
185 3f8c36d6 2006-02-09 devnull m->cc = estrdup("");
186 3f8c36d6 2006-02-09 devnull if(m->subject == nil)
187 3f8c36d6 2006-02-09 devnull m->subject = estrdup("");
188 3f8c36d6 2006-02-09 devnull if(m->type == nil)
189 3f8c36d6 2006-02-09 devnull m->type = estrdup("");
190 3f8c36d6 2006-02-09 devnull if(m->date == nil)
191 3f8c36d6 2006-02-09 devnull m->date = estrdup("");
192 3f8c36d6 2006-02-09 devnull if(m->disposition == nil)
193 3f8c36d6 2006-02-09 devnull m->disposition = estrdup("");
194 3f8c36d6 2006-02-09 devnull if(m->filename == nil)
195 3f8c36d6 2006-02-09 devnull m->filename = estrdup("");
196 3f8c36d6 2006-02-09 devnull if(m->digest == nil)
197 3f8c36d6 2006-02-09 devnull m->digest = estrdup("");
198 9f1fdc12 2005-10-29 devnull return 1;
202 9f1fdc12 2005-10-29 devnull isnumeric(char *s)
204 9f1fdc12 2005-10-29 devnull while(*s){
205 9f1fdc12 2005-10-29 devnull if(!isdigit(*s))
206 9f1fdc12 2005-10-29 devnull return 0;
209 9f1fdc12 2005-10-29 devnull return 1;
213 3f8c36d6 2006-02-09 devnull mailopen(char *name, int mode)
215 00d75e0e 2006-02-11 devnull if(strncmp(name, "Mail/", 5) != 0)
216 3f8c36d6 2006-02-09 devnull return nil;
217 00d75e0e 2006-02-11 devnull return fsopen(mailfs, name+5, mode);
221 9f1fdc12 2005-10-29 devnull loaddir(char *name, int *np)
223 9f1fdc12 2005-10-29 devnull CFid *fid;
224 9f1fdc12 2005-10-29 devnull Dir *dp;
226 3f8c36d6 2006-02-09 devnull fid = mailopen(name, OREAD);
227 9f1fdc12 2005-10-29 devnull if(fid == nil)
228 9f1fdc12 2005-10-29 devnull return nil;
229 9f1fdc12 2005-10-29 devnull *np = fsdirreadall(fid, &dp);
230 9f1fdc12 2005-10-29 devnull fsclose(fid);
231 9f1fdc12 2005-10-29 devnull return dp;
235 9f1fdc12 2005-10-29 devnull readmbox(Message *mbox, char *dir, char *subdir)
237 9f1fdc12 2005-10-29 devnull char *name;
238 9f1fdc12 2005-10-29 devnull Dir *d, *dirp;
239 9f1fdc12 2005-10-29 devnull int i, n;
241 9f1fdc12 2005-10-29 devnull name = estrstrdup(dir, subdir);
242 9f1fdc12 2005-10-29 devnull dirp = loaddir(name, &n);
243 9f1fdc12 2005-10-29 devnull mbox->recursed = 1;
244 9f1fdc12 2005-10-29 devnull if(dirp)
245 9f1fdc12 2005-10-29 devnull for(i=0; i<n; i++){
246 9f1fdc12 2005-10-29 devnull d = &dirp[i];
247 9f1fdc12 2005-10-29 devnull if(isnumeric(d->name))
248 9f1fdc12 2005-10-29 devnull mesgadd(mbox, name, d, nil);
250 9f1fdc12 2005-10-29 devnull free(dirp);
251 9f1fdc12 2005-10-29 devnull free(name);
254 9f1fdc12 2005-10-29 devnull /* add message to box, in increasing numerical order */
256 9f1fdc12 2005-10-29 devnull mesgadd(Message *mbox, char *dir, Dir *d, char *digest)
258 9f1fdc12 2005-10-29 devnull Message *m;
259 9f1fdc12 2005-10-29 devnull char *name;
260 9f1fdc12 2005-10-29 devnull int loaded;
262 9f1fdc12 2005-10-29 devnull m = emalloc(sizeof(Message));
263 9f1fdc12 2005-10-29 devnull m->name = estrstrdup(d->name, "/");
264 9f1fdc12 2005-10-29 devnull m->next = nil;
265 9f1fdc12 2005-10-29 devnull m->prev = mbox->tail;
266 9f1fdc12 2005-10-29 devnull m->level= mbox->level+1;
267 9f1fdc12 2005-10-29 devnull m->recursed = 0;
268 9f1fdc12 2005-10-29 devnull name = estrstrdup(dir, m->name);
269 9f1fdc12 2005-10-29 devnull loaded = loadinfo(m, name);
270 9f1fdc12 2005-10-29 devnull free(name);
271 9f1fdc12 2005-10-29 devnull /* if two upas/fs are running, we can get misled, so check digest before accepting message */
272 9f1fdc12 2005-10-29 devnull if(loaded==0 || (digest!=nil && m->digest!=nil && strcmp(digest, m->digest)!=0)){
273 9f1fdc12 2005-10-29 devnull mesgfreeparts(m);
274 9f1fdc12 2005-10-29 devnull free(m);
275 9f1fdc12 2005-10-29 devnull return 0;
277 9f1fdc12 2005-10-29 devnull if(mbox->tail != nil)
278 9f1fdc12 2005-10-29 devnull mbox->tail->next = m;
279 9f1fdc12 2005-10-29 devnull mbox->tail = m;
280 9f1fdc12 2005-10-29 devnull if(mbox->head == nil)
281 9f1fdc12 2005-10-29 devnull mbox->head = m;
283 9f1fdc12 2005-10-29 devnull if (m->level != 1){
284 9f1fdc12 2005-10-29 devnull m->recursed = 1;
285 9f1fdc12 2005-10-29 devnull readmbox(m, dir, m->name);
287 9f1fdc12 2005-10-29 devnull return 1;
291 9f1fdc12 2005-10-29 devnull thisyear(char *year)
293 9f1fdc12 2005-10-29 devnull static char now[10];
294 9f1fdc12 2005-10-29 devnull char *s;
296 9f1fdc12 2005-10-29 devnull if(now[0] == '\0'){
297 9f1fdc12 2005-10-29 devnull s = ctime(time(nil));
298 9f1fdc12 2005-10-29 devnull strcpy(now, s+24);
300 9f1fdc12 2005-10-29 devnull return strncmp(year, now, 4) == 0;
304 9f1fdc12 2005-10-29 devnull stripdate(char *as)
307 9f1fdc12 2005-10-29 devnull char *s, *fld[10];
309 9f1fdc12 2005-10-29 devnull as = estrdup(as);
310 9f1fdc12 2005-10-29 devnull s = estrdup(as);
311 9f1fdc12 2005-10-29 devnull n = tokenize(s, fld, 10);
312 9f1fdc12 2005-10-29 devnull if(n > 5){
313 9f1fdc12 2005-10-29 devnull sprint(as, "%.3s ", fld[0]); /* day */
314 9f1fdc12 2005-10-29 devnull /* some dates have 19 Apr, some Apr 19 */
315 9f1fdc12 2005-10-29 devnull if(strlen(fld[1])<4 && isnumeric(fld[1]))
316 9f1fdc12 2005-10-29 devnull sprint(as+strlen(as), "%.3s %.3s ", fld[1], fld[2]); /* date, month */
318 9f1fdc12 2005-10-29 devnull sprint(as+strlen(as), "%.3s %.3s ", fld[2], fld[1]); /* date, month */
319 9f1fdc12 2005-10-29 devnull /* do we use time or year? depends on whether year matches this one */
320 9f1fdc12 2005-10-29 devnull if(thisyear(fld[5])){
321 9f1fdc12 2005-10-29 devnull if(strchr(fld[3], ':') != nil)
322 9f1fdc12 2005-10-29 devnull sprint(as+strlen(as), "%.5s ", fld[3]); /* time */
323 9f1fdc12 2005-10-29 devnull else if(strchr(fld[4], ':') != nil)
324 9f1fdc12 2005-10-29 devnull sprint(as+strlen(as), "%.5s ", fld[4]); /* time */
326 9f1fdc12 2005-10-29 devnull sprint(as+strlen(as), "%.4s ", fld[5]); /* year */
328 9f1fdc12 2005-10-29 devnull free(s);
329 9f1fdc12 2005-10-29 devnull return as;
333 9f1fdc12 2005-10-29 devnull readfile(char *dir, char *name, int *np)
335 9f1fdc12 2005-10-29 devnull char *file, *data;
336 9f1fdc12 2005-10-29 devnull int len;
338 9f1fdc12 2005-10-29 devnull CFid *fid;
339 3f8c36d6 2006-02-09 devnull char buf[1];
341 9f1fdc12 2005-10-29 devnull if(np != nil)
342 9f1fdc12 2005-10-29 devnull *np = 0;
343 9f1fdc12 2005-10-29 devnull file = estrstrdup(dir, name);
344 3f8c36d6 2006-02-09 devnull fid = mailopen(file, OREAD);
345 9f1fdc12 2005-10-29 devnull if(fid == nil)
346 9f1fdc12 2005-10-29 devnull return nil;
347 9f1fdc12 2005-10-29 devnull d = fsdirfstat(fid);
348 3f8c36d6 2006-02-09 devnull if(d && d->length == 0){
349 3f8c36d6 2006-02-09 devnull /* some files, e.g. body, are not loaded until we read them */
350 3f8c36d6 2006-02-09 devnull fsread(fid, buf, 1);
351 3f8c36d6 2006-02-09 devnull fsseek(fid, 0, 0);
352 3f8c36d6 2006-02-09 devnull free(d);
353 3f8c36d6 2006-02-09 devnull d = fsdirfstat(fid);
355 9f1fdc12 2005-10-29 devnull free(file);
356 9f1fdc12 2005-10-29 devnull len = 0;
357 9f1fdc12 2005-10-29 devnull if(d != nil)
358 9f1fdc12 2005-10-29 devnull len = d->length;
359 9f1fdc12 2005-10-29 devnull free(d);
360 9f1fdc12 2005-10-29 devnull data = emalloc(len+1);
361 95409400 2006-02-21 devnull len = fsreadn(fid, data, len);
362 1190a7aa 2006-03-03 devnull if(len <= 0){
363 1190a7aa 2006-03-03 devnull fsclose(fid);
364 1190a7aa 2006-03-03 devnull free(data);
365 1190a7aa 2006-03-03 devnull return nil;
367 9f1fdc12 2005-10-29 devnull fsclose(fid);
368 9f1fdc12 2005-10-29 devnull if(np != nil)
369 9f1fdc12 2005-10-29 devnull *np = len;
370 9f1fdc12 2005-10-29 devnull return data;
374 9f1fdc12 2005-10-29 devnull info(Message *m, int ind, int ogf)
376 9f1fdc12 2005-10-29 devnull char *i;
377 9f1fdc12 2005-10-29 devnull int j, len, lens;
378 9f1fdc12 2005-10-29 devnull char *p;
379 9f1fdc12 2005-10-29 devnull char fmt[80], s[80];
381 9f1fdc12 2005-10-29 devnull if (ogf)
382 9f1fdc12 2005-10-29 devnull p=m->to;
384 53af1186 2006-05-06 devnull p=m->fromcolon;
386 9f1fdc12 2005-10-29 devnull if(ind==0 && shortmenu){
387 9f1fdc12 2005-10-29 devnull len = 30;
388 9f1fdc12 2005-10-29 devnull lens = 30;
389 9f1fdc12 2005-10-29 devnull if(shortmenu > 1){
390 9f1fdc12 2005-10-29 devnull len = 10;
391 9f1fdc12 2005-10-29 devnull lens = 25;
393 9f1fdc12 2005-10-29 devnull if(ind==0 && m->subject[0]=='\0'){
394 9f1fdc12 2005-10-29 devnull snprint(fmt, sizeof fmt, " %%-%d.%ds", len, len);
395 9f1fdc12 2005-10-29 devnull snprint(s, sizeof s, fmt, p);
397 9f1fdc12 2005-10-29 devnull snprint(fmt, sizeof fmt, " %%-%d.%ds %%-%d.%ds", len, len, lens, lens);
398 9f1fdc12 2005-10-29 devnull snprint(s, sizeof s, fmt, p, m->subject);
400 9f1fdc12 2005-10-29 devnull i = estrdup(s);
402 9f1fdc12 2005-10-29 devnull return i;
405 9f1fdc12 2005-10-29 devnull i = estrdup("");
406 9f1fdc12 2005-10-29 devnull i = eappend(i, "\t", p);
407 9f1fdc12 2005-10-29 devnull i = egrow(i, "\t", stripdate(m->date));
408 9f1fdc12 2005-10-29 devnull if(ind == 0){
409 9f1fdc12 2005-10-29 devnull if(strcmp(m->type, "text")!=0 && strncmp(m->type, "text/", 5)!=0 &&
410 9f1fdc12 2005-10-29 devnull strncmp(m->type, "multipart/", 10)!=0)
411 9f1fdc12 2005-10-29 devnull i = egrow(i, "\t(", estrstrdup(m->type, ")"));
412 9f1fdc12 2005-10-29 devnull }else if(strncmp(m->type, "multipart/", 10) != 0)
413 9f1fdc12 2005-10-29 devnull i = egrow(i, "\t(", estrstrdup(m->type, ")"));
414 9f1fdc12 2005-10-29 devnull if(m->subject[0] != '\0'){
415 9f1fdc12 2005-10-29 devnull i = eappend(i, "\n", nil);
416 9f1fdc12 2005-10-29 devnull for(j=0; j<ind; j++)
417 9f1fdc12 2005-10-29 devnull i = eappend(i, "\t", nil);
418 9f1fdc12 2005-10-29 devnull i = eappend(i, "\t", m->subject);
420 9f1fdc12 2005-10-29 devnull return i;
424 9f1fdc12 2005-10-29 devnull mesgmenu0(Window *w, Message *mbox, char *realdir, char *dir, int ind, CFid *fd, int onlyone, int dotail)
427 9f1fdc12 2005-10-29 devnull Message *m;
428 9f1fdc12 2005-10-29 devnull char *name, *tmp;
429 9f1fdc12 2005-10-29 devnull int ogf=0;
431 9f1fdc12 2005-10-29 devnull if(strstr(realdir, "outgoing") != nil)
434 9f1fdc12 2005-10-29 devnull /* show mail box in reverse order, pieces in forward order */
435 9f1fdc12 2005-10-29 devnull if(ind > 0)
436 9f1fdc12 2005-10-29 devnull m = mbox->head;
438 9f1fdc12 2005-10-29 devnull m = mbox->tail;
439 9f1fdc12 2005-10-29 devnull while(m != nil){
440 9f1fdc12 2005-10-29 devnull for(i=0; i<ind; i++)
441 3f8c36d6 2006-02-09 devnull fsprint(fd, "\t");
442 9f1fdc12 2005-10-29 devnull if(ind != 0)
443 3f8c36d6 2006-02-09 devnull fsprint(fd, " ");
444 9f1fdc12 2005-10-29 devnull name = estrstrdup(dir, m->name);
445 9f1fdc12 2005-10-29 devnull tmp = info(m, ind, ogf);
446 9f1fdc12 2005-10-29 devnull fsprint(fd, "%s%s\n", name, tmp);
447 9f1fdc12 2005-10-29 devnull free(tmp);
448 9f1fdc12 2005-10-29 devnull if(dotail && m->tail)
449 9f1fdc12 2005-10-29 devnull mesgmenu0(w, m, realdir, name, ind+1, fd, 0, dotail);
450 9f1fdc12 2005-10-29 devnull free(name);
452 9f1fdc12 2005-10-29 devnull m = m->next;
454 9f1fdc12 2005-10-29 devnull m = m->prev;
455 9f1fdc12 2005-10-29 devnull if(onlyone)
456 9f1fdc12 2005-10-29 devnull m = nil;
461 9f1fdc12 2005-10-29 devnull mesgmenu(Window *w, Message *mbox)
463 9f1fdc12 2005-10-29 devnull winopenbody(w, OWRITE);
464 9f1fdc12 2005-10-29 devnull mesgmenu0(w, mbox, mbox->name, "", 0, w->body, 0, !shortmenu);
465 9f1fdc12 2005-10-29 devnull winclosebody(w);
468 9f1fdc12 2005-10-29 devnull /* one new message has arrived, as mbox->tail */
470 9f1fdc12 2005-10-29 devnull mesgmenunew(Window *w, Message *mbox)
472 9f1fdc12 2005-10-29 devnull Biobuf *b;
474 9f1fdc12 2005-10-29 devnull winselect(w, "0", 0);
475 3f8c36d6 2006-02-09 devnull w->data = winopenfile(w, "data");
476 9f1fdc12 2005-10-29 devnull b = emalloc(sizeof(Biobuf));
477 9f1fdc12 2005-10-29 devnull mesgmenu0(w, mbox, mbox->name, "", 0, w->data, 1, !shortmenu);
478 9f1fdc12 2005-10-29 devnull free(b);
479 9f1fdc12 2005-10-29 devnull if(!mbox->dirty)
480 9f1fdc12 2005-10-29 devnull winclean(w);
481 9f1fdc12 2005-10-29 devnull /* select tag line plus following indented lines, but not final newline (it's distinctive) */
482 9f1fdc12 2005-10-29 devnull winselect(w, "0/.*\\n((\t.*\\n)*\t.*)?/", 1);
483 9f1fdc12 2005-10-29 devnull fsclose(w->addr);
484 9f1fdc12 2005-10-29 devnull fsclose(w->data);
485 9f1fdc12 2005-10-29 devnull w->addr = nil;
486 9f1fdc12 2005-10-29 devnull w->data = nil;
490 9f1fdc12 2005-10-29 devnull name2regexp(char *prefix, char *s)
492 9f1fdc12 2005-10-29 devnull char *buf, *p, *q;
494 9f1fdc12 2005-10-29 devnull buf = emalloc(strlen(prefix)+2*strlen(s)+50); /* leave room to append more */
495 9f1fdc12 2005-10-29 devnull p = buf;
496 9f1fdc12 2005-10-29 devnull *p++ = '0';
497 9f1fdc12 2005-10-29 devnull *p++ = '/';
498 9f1fdc12 2005-10-29 devnull *p++ = '^';
499 9f1fdc12 2005-10-29 devnull strcpy(p, prefix);
500 9f1fdc12 2005-10-29 devnull p += strlen(prefix);
501 9f1fdc12 2005-10-29 devnull for(q=s; *q!='\0'; q++){
502 9f1fdc12 2005-10-29 devnull if(strchr(regexchars, *q) != nil)
503 9f1fdc12 2005-10-29 devnull *p++ = '\\';
504 9f1fdc12 2005-10-29 devnull *p++ = *q;
506 9f1fdc12 2005-10-29 devnull *p++ = '/';
507 9f1fdc12 2005-10-29 devnull *p = '\0';
508 9f1fdc12 2005-10-29 devnull return buf;
512 9f1fdc12 2005-10-29 devnull mesgmenumarkdel(Window *w, Message *mbox, Message *m, int writeback)
514 9f1fdc12 2005-10-29 devnull char *buf;
517 9f1fdc12 2005-10-29 devnull if(m->deleted)
519 9f1fdc12 2005-10-29 devnull m->writebackdel = writeback;
520 9f1fdc12 2005-10-29 devnull if(w->data == nil)
521 3f8c36d6 2006-02-09 devnull w->data = winopenfile(w, "data");
522 9f1fdc12 2005-10-29 devnull buf = name2regexp("", m->name);
523 9f1fdc12 2005-10-29 devnull strcat(buf, "-#0");
524 3f8c36d6 2006-02-09 devnull if(winselect(w, buf, 1))
525 9f1fdc12 2005-10-29 devnull fswrite(w->data, deleted, 10);
526 9f1fdc12 2005-10-29 devnull free(buf);
527 9f1fdc12 2005-10-29 devnull fsclose(w->data);
528 9f1fdc12 2005-10-29 devnull fsclose(w->addr);
529 9f1fdc12 2005-10-29 devnull w->addr = nil;
530 9f1fdc12 2005-10-29 devnull w->data = nil;
531 9f1fdc12 2005-10-29 devnull mbox->dirty = 1;
532 9f1fdc12 2005-10-29 devnull m->deleted = 1;
536 3f8c36d6 2006-02-09 devnull mesgmenumarkundel(Window *w, Message *v, Message *m)
538 9f1fdc12 2005-10-29 devnull char *buf;
540 3f8c36d6 2006-02-09 devnull USED(v);
541 9f1fdc12 2005-10-29 devnull if(m->deleted == 0)
543 9f1fdc12 2005-10-29 devnull if(w->data == nil)
544 3f8c36d6 2006-02-09 devnull w->data = winopenfile(w, "data");
545 9f1fdc12 2005-10-29 devnull buf = name2regexp(deletedrx, m->name);
546 3f8c36d6 2006-02-09 devnull if(winselect(w, buf, 1))
547 3f8c36d6 2006-02-09 devnull if(winsetaddr(w, deletedaddr, 1))
548 9f1fdc12 2005-10-29 devnull fswrite(w->data, "", 0);
549 9f1fdc12 2005-10-29 devnull free(buf);
550 9f1fdc12 2005-10-29 devnull fsclose(w->data);
551 9f1fdc12 2005-10-29 devnull fsclose(w->addr);
552 9f1fdc12 2005-10-29 devnull w->addr = nil;
553 9f1fdc12 2005-10-29 devnull w->data = nil;
554 9f1fdc12 2005-10-29 devnull m->deleted = 0;
558 9f1fdc12 2005-10-29 devnull mesgmenudel(Window *w, Message *mbox, Message *m)
560 9f1fdc12 2005-10-29 devnull char *buf;
562 9f1fdc12 2005-10-29 devnull if(w->data ==nil)
563 3f8c36d6 2006-02-09 devnull w->data = winopenfile(w, "data");
564 313c365a 2007-06-23 devnull buf = name2regexp(deletedrx01, m->name);
565 3f8c36d6 2006-02-09 devnull if(winsetaddr(w, buf, 1) && winsetaddr(w, ".,./.*\\n(\t.*\\n)*/", 1))
566 9f1fdc12 2005-10-29 devnull fswrite(w->data, "", 0);
567 9f1fdc12 2005-10-29 devnull free(buf);
568 9f1fdc12 2005-10-29 devnull fsclose(w->data);
569 9f1fdc12 2005-10-29 devnull fsclose(w->addr);
570 9f1fdc12 2005-10-29 devnull w->addr = nil;
571 9f1fdc12 2005-10-29 devnull w->data = nil;
572 0d42cc9d 2006-02-28 devnull /* assume caller knows best mbox->dirty = 1; */
573 9f1fdc12 2005-10-29 devnull m->deleted = 1;
577 9f1fdc12 2005-10-29 devnull mesgmenumark(Window *w, char *which, char *mark)
579 9f1fdc12 2005-10-29 devnull char *buf;
581 9f1fdc12 2005-10-29 devnull if(w->data == nil)
582 3f8c36d6 2006-02-09 devnull w->data = winopenfile(w, "data");
583 9f1fdc12 2005-10-29 devnull buf = name2regexp(deletedrx01, which);
584 3f8c36d6 2006-02-09 devnull if(winsetaddr(w, buf, 1) && winsetaddr(w, "+0-#1", 1)) /* go to end of line */
585 9f1fdc12 2005-10-29 devnull fswrite(w->data, mark, strlen(mark));
586 9f1fdc12 2005-10-29 devnull free(buf);
587 9f1fdc12 2005-10-29 devnull fsclose(w->data);
588 9f1fdc12 2005-10-29 devnull fsclose(w->addr);
589 9f1fdc12 2005-10-29 devnull w->addr = nil;
590 9f1fdc12 2005-10-29 devnull w->data = nil;
591 9f1fdc12 2005-10-29 devnull if(!mbox.dirty)
592 9f1fdc12 2005-10-29 devnull winclean(w);
596 9f1fdc12 2005-10-29 devnull mesgfreeparts(Message *m)
598 9f1fdc12 2005-10-29 devnull free(m->name);
599 9f1fdc12 2005-10-29 devnull free(m->replyname);
600 9f1fdc12 2005-10-29 devnull free(m->from);
601 9f1fdc12 2005-10-29 devnull free(m->to);
602 9f1fdc12 2005-10-29 devnull free(m->cc);
603 9f1fdc12 2005-10-29 devnull free(m->replyto);
604 9f1fdc12 2005-10-29 devnull free(m->date);
605 9f1fdc12 2005-10-29 devnull free(m->subject);
606 9f1fdc12 2005-10-29 devnull free(m->type);
607 9f1fdc12 2005-10-29 devnull free(m->disposition);
608 9f1fdc12 2005-10-29 devnull free(m->filename);
609 9f1fdc12 2005-10-29 devnull free(m->digest);
613 9f1fdc12 2005-10-29 devnull mesgdel(Message *mbox, Message *m)
615 9f1fdc12 2005-10-29 devnull Message *n, *next;
617 9f1fdc12 2005-10-29 devnull if(m->opened)
618 9f1fdc12 2005-10-29 devnull error("internal error: deleted message still open in mesgdel\n");
619 9f1fdc12 2005-10-29 devnull /* delete subparts */
620 9f1fdc12 2005-10-29 devnull for(n=m->head; n!=nil; n=next){
621 9f1fdc12 2005-10-29 devnull next = n->next;
622 9f1fdc12 2005-10-29 devnull mesgdel(m, n);
624 9f1fdc12 2005-10-29 devnull /* remove this message from list */
625 9f1fdc12 2005-10-29 devnull if(m->next)
626 9f1fdc12 2005-10-29 devnull m->next->prev = m->prev;
628 9f1fdc12 2005-10-29 devnull mbox->tail = m->prev;
629 9f1fdc12 2005-10-29 devnull if(m->prev)
630 9f1fdc12 2005-10-29 devnull m->prev->next = m->next;
632 9f1fdc12 2005-10-29 devnull mbox->head = m->next;
634 9f1fdc12 2005-10-29 devnull mesgfreeparts(m);
638 3f8c36d6 2006-02-09 devnull mesgsave(Message *m, char *s, int save)
640 9f1fdc12 2005-10-29 devnull int ofd, n, k, ret;
641 9f1fdc12 2005-10-29 devnull char *t, *raw, *unixheader, *all;
643 3f8c36d6 2006-02-09 devnull if(save){
644 00d75e0e 2006-02-11 devnull if(fsprint(mbox.ctlfd, "save %q %q", s, m->name) < 0){
645 3f8c36d6 2006-02-09 devnull fprint(2, "Mail: can't save %s to %s: %r\n", m->name, s);
646 3f8c36d6 2006-02-09 devnull return 0;
648 3f8c36d6 2006-02-09 devnull return 1;
651 9f1fdc12 2005-10-29 devnull t = estrstrdup(mbox.name, m->name);
652 9f1fdc12 2005-10-29 devnull raw = readfile(t, "raw", &n);
653 9f1fdc12 2005-10-29 devnull unixheader = readfile(t, "unixheader", &k);
654 9f1fdc12 2005-10-29 devnull if(raw==nil || unixheader==nil){
655 9f1fdc12 2005-10-29 devnull fprint(2, "Mail: can't read %s: %r\n", t);
656 9f1fdc12 2005-10-29 devnull free(t);
657 9f1fdc12 2005-10-29 devnull return 0;
659 9f1fdc12 2005-10-29 devnull free(t);
661 9f1fdc12 2005-10-29 devnull all = emalloc(n+k+1);
662 9f1fdc12 2005-10-29 devnull memmove(all, unixheader, k);
663 9f1fdc12 2005-10-29 devnull memmove(all+k, raw, n);
664 9f1fdc12 2005-10-29 devnull memmove(all+k+n, "\n", 1);
665 9f1fdc12 2005-10-29 devnull n = k+n+1;
666 9f1fdc12 2005-10-29 devnull free(unixheader);
667 9f1fdc12 2005-10-29 devnull free(raw);
668 9f1fdc12 2005-10-29 devnull ret = 1;
669 9f1fdc12 2005-10-29 devnull s = estrdup(s);
670 9f1fdc12 2005-10-29 devnull if(s[0] != '/')
671 9f1fdc12 2005-10-29 devnull s = egrow(estrdup(mailboxdir), "/", s);
672 9f1fdc12 2005-10-29 devnull ofd = open(s, OWRITE);
673 9f1fdc12 2005-10-29 devnull if(ofd < 0){
674 9f1fdc12 2005-10-29 devnull fprint(2, "Mail: can't open %s: %r\n", s);
675 9f1fdc12 2005-10-29 devnull ret = 0;
676 9f1fdc12 2005-10-29 devnull }else if(seek(ofd, 0LL, 2)<0 || write(ofd, all, n)!=n){
677 9f1fdc12 2005-10-29 devnull fprint(2, "Mail: save failed: can't write %s: %r\n", s);
678 9f1fdc12 2005-10-29 devnull ret = 0;
680 9f1fdc12 2005-10-29 devnull free(all);
681 9f1fdc12 2005-10-29 devnull close(ofd);
682 9f1fdc12 2005-10-29 devnull free(s);
683 9f1fdc12 2005-10-29 devnull return ret;
687 9f1fdc12 2005-10-29 devnull mesgcommand(Message *m, char *cmd)
689 9f1fdc12 2005-10-29 devnull char *s;
690 9f1fdc12 2005-10-29 devnull char *args[10];
691 3f8c36d6 2006-02-09 devnull int save, ok, ret, nargs;
693 9f1fdc12 2005-10-29 devnull s = cmd;
694 9f1fdc12 2005-10-29 devnull ret = 1;
695 9f1fdc12 2005-10-29 devnull nargs = tokenize(s, args, nelem(args));
696 9f1fdc12 2005-10-29 devnull if(nargs == 0)
697 9f1fdc12 2005-10-29 devnull return 0;
698 9f1fdc12 2005-10-29 devnull if(strcmp(args[0], "Post") == 0){
699 9f1fdc12 2005-10-29 devnull mesgsend(m);
700 9f1fdc12 2005-10-29 devnull goto Return;
702 3f8c36d6 2006-02-09 devnull if(strncmp(args[0], "Save", 4) == 0 || strncmp(args[0], "Write", 5) == 0){
703 9f1fdc12 2005-10-29 devnull if(m->isreply)
704 9f1fdc12 2005-10-29 devnull goto Return;
705 3f8c36d6 2006-02-09 devnull save = args[0][0]=='S';
706 3f8c36d6 2006-02-09 devnull if(save)
707 3f8c36d6 2006-02-09 devnull s = estrdup("\t[saved");
709 3f8c36d6 2006-02-09 devnull s = estrdup("\t[wrote");
710 9f1fdc12 2005-10-29 devnull if(nargs==1 || strcmp(args[1], "")==0){
711 3f8c36d6 2006-02-09 devnull ok = mesgsave(m, "stored", save);
713 3f8c36d6 2006-02-09 devnull ok = mesgsave(m, args[1], save);
714 9f1fdc12 2005-10-29 devnull s = eappend(s, " ", args[1]);
717 9f1fdc12 2005-10-29 devnull s = egrow(s, "]", nil);
718 9f1fdc12 2005-10-29 devnull mesgmenumark(mbox.w, m->name, s);
720 9f1fdc12 2005-10-29 devnull free(s);
721 9f1fdc12 2005-10-29 devnull goto Return;
723 9f1fdc12 2005-10-29 devnull if(strcmp(args[0], "Reply")==0){
724 9f1fdc12 2005-10-29 devnull if(nargs>=2 && strcmp(args[1], "all")==0)
725 9f1fdc12 2005-10-29 devnull mkreply(m, "Replyall", nil, nil, nil);
727 9f1fdc12 2005-10-29 devnull mkreply(m, "Reply", nil, nil, nil);
728 9f1fdc12 2005-10-29 devnull goto Return;
730 9f1fdc12 2005-10-29 devnull if(strcmp(args[0], "Q") == 0){
731 9f1fdc12 2005-10-29 devnull s = winselection(m->w); /* will be freed by mkreply */
732 9f1fdc12 2005-10-29 devnull if(nargs>=3 && strcmp(args[1], "Reply")==0 && strcmp(args[2], "all")==0)
733 9f1fdc12 2005-10-29 devnull mkreply(m, "QReplyall", nil, nil, s);
735 9f1fdc12 2005-10-29 devnull mkreply(m, "QReply", nil, nil, s);
736 9f1fdc12 2005-10-29 devnull goto Return;
738 9f1fdc12 2005-10-29 devnull if(strcmp(args[0], "Del") == 0){
739 9f1fdc12 2005-10-29 devnull if(windel(m->w, 0)){
740 880ab2f1 2006-02-15 devnull windecref(m->w);
741 9f1fdc12 2005-10-29 devnull m->w = nil;
742 9f1fdc12 2005-10-29 devnull if(m->isreply)
743 9f1fdc12 2005-10-29 devnull delreply(m);
745 9f1fdc12 2005-10-29 devnull m->opened = 0;
746 9f1fdc12 2005-10-29 devnull m->tagposted = 0;
748 9f1fdc12 2005-10-29 devnull free(cmd);
749 9f1fdc12 2005-10-29 devnull threadexits(nil);
751 9f1fdc12 2005-10-29 devnull goto Return;
753 9f1fdc12 2005-10-29 devnull if(strcmp(args[0], "Delmesg") == 0){
754 9f1fdc12 2005-10-29 devnull if(!m->isreply){
755 9f1fdc12 2005-10-29 devnull mesgmenumarkdel(wbox, &mbox, m, 1);
756 9f1fdc12 2005-10-29 devnull free(cmd); /* mesgcommand might not return */
757 9f1fdc12 2005-10-29 devnull mesgcommand(m, estrdup("Del"));
758 9f1fdc12 2005-10-29 devnull return 1;
760 9f1fdc12 2005-10-29 devnull goto Return;
762 9f1fdc12 2005-10-29 devnull if(strcmp(args[0], "UnDelmesg") == 0){
763 9f1fdc12 2005-10-29 devnull if(!m->isreply && m->deleted)
764 9f1fdc12 2005-10-29 devnull mesgmenumarkundel(wbox, &mbox, m);
765 9f1fdc12 2005-10-29 devnull goto Return;
767 cbeb0b26 2006-04-01 devnull /* if(strcmp(args[0], "Headers") == 0){ */
768 cbeb0b26 2006-04-01 devnull /* m->showheaders(); */
769 cbeb0b26 2006-04-01 devnull /* return True; */
772 9f1fdc12 2005-10-29 devnull ret = 0;
775 9f1fdc12 2005-10-29 devnull free(cmd);
776 9f1fdc12 2005-10-29 devnull return ret;
780 9f1fdc12 2005-10-29 devnull mesgtagpost(Message *m)
782 9f1fdc12 2005-10-29 devnull if(m->tagposted)
784 9f1fdc12 2005-10-29 devnull wintagwrite(m->w, " Post", 5);
785 9f1fdc12 2005-10-29 devnull m->tagposted = 1;
788 9f1fdc12 2005-10-29 devnull /* need to expand selection more than default word */
789 9f1fdc12 2005-10-29 devnull #pragma varargck argpos eval 2
792 9f1fdc12 2005-10-29 devnull eval(Window *w, char *s, ...)
794 9f1fdc12 2005-10-29 devnull char buf[64];
795 9f1fdc12 2005-10-29 devnull va_list arg;
797 9f1fdc12 2005-10-29 devnull va_start(arg, s);
798 9f1fdc12 2005-10-29 devnull vsnprint(buf, sizeof buf, s, arg);
799 9f1fdc12 2005-10-29 devnull va_end(arg);
801 9f1fdc12 2005-10-29 devnull if(winsetaddr(w, buf, 1)==0)
802 9f1fdc12 2005-10-29 devnull return -1;
804 9f1fdc12 2005-10-29 devnull if(fspread(w->addr, buf, 24, 0) != 24)
805 9f1fdc12 2005-10-29 devnull return -1;
806 9f1fdc12 2005-10-29 devnull return strtol(buf, 0, 10);
810 9f1fdc12 2005-10-29 devnull isemail(char *s)
812 9f1fdc12 2005-10-29 devnull int nat;
814 9f1fdc12 2005-10-29 devnull nat = 0;
815 9f1fdc12 2005-10-29 devnull for(; *s; s++)
816 9f1fdc12 2005-10-29 devnull if(*s == '@')
818 9f1fdc12 2005-10-29 devnull else if(!isalpha(*s) && !isdigit(*s) && !strchr("_.-+/", *s))
819 9f1fdc12 2005-10-29 devnull return 0;
820 9f1fdc12 2005-10-29 devnull return nat==1;
823 9f1fdc12 2005-10-29 devnull char addrdelim[] = "/[ \t\\n<>()\\[\\]]/";
825 9f1fdc12 2005-10-29 devnull expandaddr(Window *w, Event *e)
827 9f1fdc12 2005-10-29 devnull char *s;
828 9f1fdc12 2005-10-29 devnull long q0, q1;
830 9f1fdc12 2005-10-29 devnull if(e->q0 != e->q1) /* cannot happen */
831 9f1fdc12 2005-10-29 devnull return nil;
833 9f1fdc12 2005-10-29 devnull q0 = eval(w, "#%d-%s", e->q0, addrdelim);
834 9f1fdc12 2005-10-29 devnull if(q0 == -1) /* bad char not found */
836 9f1fdc12 2005-10-29 devnull else /* increment past bad char */
839 9f1fdc12 2005-10-29 devnull q1 = eval(w, "#%d+%s", e->q0, addrdelim);
840 9f1fdc12 2005-10-29 devnull if(q1 < 0){
841 9f1fdc12 2005-10-29 devnull q1 = eval(w, "$");
842 9f1fdc12 2005-10-29 devnull if(q1 < 0)
843 9f1fdc12 2005-10-29 devnull return nil;
845 9f1fdc12 2005-10-29 devnull if(q0 >= q1)
846 9f1fdc12 2005-10-29 devnull return nil;
847 9f1fdc12 2005-10-29 devnull s = emalloc((q1-q0)*UTFmax+1);
848 9f1fdc12 2005-10-29 devnull winread(w, q0, q1, s);
849 9f1fdc12 2005-10-29 devnull return s;
853 9f1fdc12 2005-10-29 devnull replytoaddr(Window *w, Message *m, Event *e, char *s)
855 9f1fdc12 2005-10-29 devnull int did;
856 9f1fdc12 2005-10-29 devnull char *buf;
857 9f1fdc12 2005-10-29 devnull Plumbmsg *pm;
859 9f1fdc12 2005-10-29 devnull buf = nil;
860 9f1fdc12 2005-10-29 devnull did = 0;
861 9f1fdc12 2005-10-29 devnull if(e->flag & 2){
862 9f1fdc12 2005-10-29 devnull /* autoexpanded; use our own bigger expansion */
863 9f1fdc12 2005-10-29 devnull buf = expandaddr(w, e);
864 9f1fdc12 2005-10-29 devnull if(buf == nil)
865 9f1fdc12 2005-10-29 devnull return 0;
866 9f1fdc12 2005-10-29 devnull s = buf;
868 9f1fdc12 2005-10-29 devnull if(isemail(s)){
869 9f1fdc12 2005-10-29 devnull did = 1;
870 9f1fdc12 2005-10-29 devnull pm = emalloc(sizeof(Plumbmsg));
871 9f1fdc12 2005-10-29 devnull pm->src = estrdup("Mail");
872 9f1fdc12 2005-10-29 devnull pm->dst = estrdup("sendmail");
873 9f1fdc12 2005-10-29 devnull pm->data = estrdup(s);
874 9f1fdc12 2005-10-29 devnull pm->ndata = -1;
875 9f1fdc12 2005-10-29 devnull if(m->subject && m->subject[0]){
876 9f1fdc12 2005-10-29 devnull pm->attr = emalloc(sizeof(Plumbattr));
877 9f1fdc12 2005-10-29 devnull pm->attr->name = estrdup("Subject");
878 9f1fdc12 2005-10-29 devnull if(tolower(m->subject[0]) != 'r' || tolower(m->subject[1]) != 'e' || m->subject[2] != ':')
879 9f1fdc12 2005-10-29 devnull pm->attr->value = estrstrdup("Re: ", m->subject);
881 9f1fdc12 2005-10-29 devnull pm->attr->value = estrdup(m->subject);
882 9f1fdc12 2005-10-29 devnull pm->attr->next = nil;
884 00d75e0e 2006-02-11 devnull if(plumbsendtofid(plumbsendfd, pm) < 0)
885 9f1fdc12 2005-10-29 devnull fprint(2, "error writing plumb message: %r\n");
886 9f1fdc12 2005-10-29 devnull plumbfree(pm);
888 9f1fdc12 2005-10-29 devnull free(buf);
889 9f1fdc12 2005-10-29 devnull return did;
894 9f1fdc12 2005-10-29 devnull mesgctl(void *v)
896 9f1fdc12 2005-10-29 devnull Message *m;
897 9f1fdc12 2005-10-29 devnull Window *w;
898 9f1fdc12 2005-10-29 devnull Event *e, *eq, *e2, *ea;
899 9f1fdc12 2005-10-29 devnull int na, nopen, i, j;
900 9f1fdc12 2005-10-29 devnull char *os, *s, *t, *buf;
903 9f1fdc12 2005-10-29 devnull w = m->w;
904 9f1fdc12 2005-10-29 devnull threadsetname("mesgctl");
905 880ab2f1 2006-02-15 devnull winincref(w);
906 9f1fdc12 2005-10-29 devnull proccreate(wineventproc, w, STACK);
907 9f1fdc12 2005-10-29 devnull for(;;){
908 9f1fdc12 2005-10-29 devnull e = recvp(w->cevent);
909 9f1fdc12 2005-10-29 devnull switch(e->c1){
910 9f1fdc12 2005-10-29 devnull default:
912 9f1fdc12 2005-10-29 devnull print("unknown message %c%c\n", e->c1, e->c2);
915 9f1fdc12 2005-10-29 devnull case 'E': /* write to body; can't affect us */
918 9f1fdc12 2005-10-29 devnull case 'F': /* generated by our actions; ignore */
921 9f1fdc12 2005-10-29 devnull case 'K': /* type away; we don't care */
922 9f1fdc12 2005-10-29 devnull case 'M':
923 9f1fdc12 2005-10-29 devnull switch(e->c2){
924 9f1fdc12 2005-10-29 devnull case 'x': /* mouse only */
925 9f1fdc12 2005-10-29 devnull case 'X':
926 9f1fdc12 2005-10-29 devnull ea = nil;
928 9f1fdc12 2005-10-29 devnull if(e->flag & 2){
929 9f1fdc12 2005-10-29 devnull e2 = recvp(w->cevent);
930 9f1fdc12 2005-10-29 devnull eq = e2;
932 9f1fdc12 2005-10-29 devnull if(e->flag & 8){
933 9f1fdc12 2005-10-29 devnull ea = recvp(w->cevent);
934 9f1fdc12 2005-10-29 devnull recvp(w->cevent);
935 9f1fdc12 2005-10-29 devnull na = ea->nb;
938 9f1fdc12 2005-10-29 devnull if(eq->q1>eq->q0 && eq->nb==0){
939 9f1fdc12 2005-10-29 devnull s = emalloc((eq->q1-eq->q0)*UTFmax+1);
940 9f1fdc12 2005-10-29 devnull winread(w, eq->q0, eq->q1, s);
942 9f1fdc12 2005-10-29 devnull s = estrdup(eq->b);
944 9f1fdc12 2005-10-29 devnull t = emalloc(strlen(s)+1+na+1);
945 9f1fdc12 2005-10-29 devnull sprint(t, "%s %s", s, ea->b);
946 9f1fdc12 2005-10-29 devnull free(s);
949 9f1fdc12 2005-10-29 devnull if(!mesgcommand(m, s)) /* send it back */
950 9f1fdc12 2005-10-29 devnull winwriteevent(w, e);
953 9f1fdc12 2005-10-29 devnull case 'l': /* mouse only */
954 9f1fdc12 2005-10-29 devnull case 'L':
955 9f1fdc12 2005-10-29 devnull buf = nil;
957 9f1fdc12 2005-10-29 devnull if(e->flag & 2){
958 9f1fdc12 2005-10-29 devnull e2 = recvp(w->cevent);
959 9f1fdc12 2005-10-29 devnull eq = e2;
961 9f1fdc12 2005-10-29 devnull s = eq->b;
962 9f1fdc12 2005-10-29 devnull if(eq->q1>eq->q0 && eq->nb==0){
963 9f1fdc12 2005-10-29 devnull buf = emalloc((eq->q1-eq->q0)*UTFmax+1);
964 9f1fdc12 2005-10-29 devnull winread(w, eq->q0, eq->q1, buf);
965 9f1fdc12 2005-10-29 devnull s = buf;
968 9f1fdc12 2005-10-29 devnull nopen = 0;
970 9f1fdc12 2005-10-29 devnull /* skip mail box name if present */
971 9f1fdc12 2005-10-29 devnull if(strncmp(s, mbox.name, strlen(mbox.name)) == 0)
972 9f1fdc12 2005-10-29 devnull s += strlen(mbox.name);
973 9f1fdc12 2005-10-29 devnull if(strstr(s, "body") != nil){
974 9f1fdc12 2005-10-29 devnull /* strip any known extensions */
975 3b5862ee 2006-02-14 devnull for(i=0; ports[i].suffix!=nil; i++){
976 3b5862ee 2006-02-14 devnull j = strlen(ports[i].suffix);
977 3b5862ee 2006-02-14 devnull if(strlen(s)>j && strcmp(s+strlen(s)-j, ports[i].suffix)==0){
978 9f1fdc12 2005-10-29 devnull s[strlen(s)-j] = '\0';
982 9f1fdc12 2005-10-29 devnull if(strlen(s)>5 && strcmp(s+strlen(s)-5, "/body")==0)
983 9f1fdc12 2005-10-29 devnull s[strlen(s)-4] = '\0'; /* leave / in place */
985 9f1fdc12 2005-10-29 devnull nopen += mesgopen(&mbox, mbox.name, s, m, 0, nil);
986 9f1fdc12 2005-10-29 devnull while(*s!=0 && *s++!='\n')
988 9f1fdc12 2005-10-29 devnull }while(*s);
989 9f1fdc12 2005-10-29 devnull if(nopen == 0 && e->c1 == 'L')
990 9f1fdc12 2005-10-29 devnull nopen += replytoaddr(w, m, e, os);
991 9f1fdc12 2005-10-29 devnull if(nopen == 0)
992 9f1fdc12 2005-10-29 devnull winwriteevent(w, e);
993 9f1fdc12 2005-10-29 devnull free(buf);
996 9f1fdc12 2005-10-29 devnull case 'I': /* modify away; we don't care */
997 9f1fdc12 2005-10-29 devnull case 'D':
998 9f1fdc12 2005-10-29 devnull mesgtagpost(m);
999 9f1fdc12 2005-10-29 devnull /* fall through */
1000 9f1fdc12 2005-10-29 devnull case 'd':
1001 9f1fdc12 2005-10-29 devnull case 'i':
1004 9f1fdc12 2005-10-29 devnull default:
1005 9f1fdc12 2005-10-29 devnull goto Unk;
1012 9f1fdc12 2005-10-29 devnull mesgline(Message *m, char *header, char *value)
1014 3f8c36d6 2006-02-09 devnull if(strlen(value) > 0)
1015 9f1fdc12 2005-10-29 devnull fsprint(m->w->body, "%s: %s\n", header, value);
1019 9f1fdc12 2005-10-29 devnull isprintable(char *type)
1023 9f1fdc12 2005-10-29 devnull for(i=0; goodtypes[i]!=nil; i++)
1024 9f1fdc12 2005-10-29 devnull if(strcmp(type, goodtypes[i])==0)
1025 9f1fdc12 2005-10-29 devnull return 1;
1026 9f1fdc12 2005-10-29 devnull return 0;
1030 9f1fdc12 2005-10-29 devnull ext(char *type)
1034 3b5862ee 2006-02-14 devnull for(i=0; ports[i].type!=nil; i++)
1035 3b5862ee 2006-02-14 devnull if(strcmp(type, ports[i].type)==0)
1036 3b5862ee 2006-02-14 devnull return ports[i].suffix;
1037 9f1fdc12 2005-10-29 devnull return "";
1041 9f1fdc12 2005-10-29 devnull mimedisplay(Message *m, char *name, char *rootdir, Window *w, int fileonly)
1043 9f1fdc12 2005-10-29 devnull char *dest;
1045 3f8c36d6 2006-02-09 devnull if(strcmp(m->disposition, "file")==0 || strlen(m->filename)!=0 || !fileonly){
1046 3f8c36d6 2006-02-09 devnull if(strlen(m->filename) == 0)
1047 3b5862ee 2006-02-14 devnull dest = estrstrdup("a", ext(m->type));
1049 9f1fdc12 2005-10-29 devnull dest = estrdup(m->filename);
1050 9f1fdc12 2005-10-29 devnull if(m->filename[0] != '/')
1051 9f1fdc12 2005-10-29 devnull dest = egrow(estrdup(home), "/", dest);
1052 44fc56d8 2006-05-21 devnull fsprint(w->body, "\t9p read %s/%s/%sbody > %s\n",
1053 44fc56d8 2006-05-21 devnull srvname, mboxname, name, dest);
1054 9f1fdc12 2005-10-29 devnull free(dest);
1059 9f1fdc12 2005-10-29 devnull printheader(char *dir, CFid *fid, char **okheaders)
1061 9f1fdc12 2005-10-29 devnull char *s;
1062 9f1fdc12 2005-10-29 devnull char *lines[100];
1063 9f1fdc12 2005-10-29 devnull int i, j, n;
1065 9f1fdc12 2005-10-29 devnull s = readfile(dir, "header", nil);
1066 9f1fdc12 2005-10-29 devnull if(s == nil)
1067 9f1fdc12 2005-10-29 devnull return;
1068 9f1fdc12 2005-10-29 devnull n = getfields(s, lines, nelem(lines), 0, "\n");
1069 9f1fdc12 2005-10-29 devnull for(i=0; i<n; i++)
1070 9f1fdc12 2005-10-29 devnull for(j=0; okheaders[j]; j++)
1071 3f8c36d6 2006-02-09 devnull if(cistrncmp(lines[i], okheaders[j], strlen(okheaders[j])) == 0)
1072 3f8c36d6 2006-02-09 devnull fsprint(fid, "%s\n", lines[i]);
1073 9f1fdc12 2005-10-29 devnull free(s);
1077 9f1fdc12 2005-10-29 devnull mesgload(Message *m, char *rootdir, char *file, Window *w)
1079 9f1fdc12 2005-10-29 devnull char *s, *subdir, *name, *dir;
1080 9f1fdc12 2005-10-29 devnull Message *mp, *thisone;
1083 9f1fdc12 2005-10-29 devnull dir = estrstrdup(rootdir, file);
1085 9f1fdc12 2005-10-29 devnull if(strcmp(m->type, "message/rfc822") != 0){ /* suppress headers of envelopes */
1086 9f1fdc12 2005-10-29 devnull if(strlen(m->from) > 0){
1087 9f1fdc12 2005-10-29 devnull fsprint(w->body, "From: %s\n", m->from);
1088 9f1fdc12 2005-10-29 devnull mesgline(m, "Date", m->date);
1089 9f1fdc12 2005-10-29 devnull mesgline(m, "To", m->to);
1090 9f1fdc12 2005-10-29 devnull mesgline(m, "CC", m->cc);
1091 9f1fdc12 2005-10-29 devnull mesgline(m, "Subject", m->subject);
1092 9f1fdc12 2005-10-29 devnull printheader(dir, w->body, extraheaders);
1094 9f1fdc12 2005-10-29 devnull printheader(dir, w->body, okheaders);
1095 9f1fdc12 2005-10-29 devnull printheader(dir, w->body, extraheaders);
1097 3f8c36d6 2006-02-09 devnull fsprint(w->body, "\n");
1100 9f1fdc12 2005-10-29 devnull if(m->level == 1 && m->recursed == 0){
1101 9f1fdc12 2005-10-29 devnull m->recursed = 1;
1102 9f1fdc12 2005-10-29 devnull readmbox(m, rootdir, m->name);
1104 9f1fdc12 2005-10-29 devnull if(m->head == nil){ /* single part message */
1105 9f1fdc12 2005-10-29 devnull if(strcmp(m->type, "text")==0 || strncmp(m->type, "text/", 5)==0){
1106 9f1fdc12 2005-10-29 devnull mimedisplay(m, m->name, rootdir, w, 1);
1107 9f1fdc12 2005-10-29 devnull s = readbody(m->type, dir, &n);
1108 9f1fdc12 2005-10-29 devnull winwritebody(w, s, n);
1109 9f1fdc12 2005-10-29 devnull free(s);
1111 9f1fdc12 2005-10-29 devnull mimedisplay(m, m->name, rootdir, w, 0);
1113 9f1fdc12 2005-10-29 devnull /* multi-part message, either multipart/* or message/rfc822 */
1114 9f1fdc12 2005-10-29 devnull thisone = nil;
1115 9f1fdc12 2005-10-29 devnull if(strcmp(m->type, "multipart/alternative") == 0){
1116 9f1fdc12 2005-10-29 devnull thisone = m->head; /* in case we can't find a good one */
1117 9f1fdc12 2005-10-29 devnull for(mp=m->head; mp!=nil; mp=mp->next)
1118 9f1fdc12 2005-10-29 devnull if(isprintable(mp->type)){
1119 9f1fdc12 2005-10-29 devnull thisone = mp;
1123 9f1fdc12 2005-10-29 devnull for(mp=m->head; mp!=nil; mp=mp->next){
1124 9f1fdc12 2005-10-29 devnull if(thisone!=nil && mp!=thisone)
1125 9f1fdc12 2005-10-29 devnull continue;
1126 9f1fdc12 2005-10-29 devnull subdir = estrstrdup(dir, mp->name);
1127 9f1fdc12 2005-10-29 devnull name = estrstrdup(file, mp->name);
1128 9f1fdc12 2005-10-29 devnull /* skip first element in name because it's already in window name */
1129 3f8c36d6 2006-02-09 devnull if(mp != m->head)
1130 9f1fdc12 2005-10-29 devnull fsprint(w->body, "\n===> %s (%s) [%s]\n", strchr(name, '/')+1, mp->type, mp->disposition);
1131 9f1fdc12 2005-10-29 devnull if(strcmp(mp->type, "text")==0 || strncmp(mp->type, "text/", 5)==0){
1132 9f1fdc12 2005-10-29 devnull mimedisplay(mp, name, rootdir, w, 1);
1133 9f1fdc12 2005-10-29 devnull printheader(subdir, w->body, okheaders);
1134 9f1fdc12 2005-10-29 devnull printheader(subdir, w->body, extraheaders);
1135 9f1fdc12 2005-10-29 devnull winwritebody(w, "\n", 1);
1136 9f1fdc12 2005-10-29 devnull s = readbody(mp->type, subdir, &n);
1137 9f1fdc12 2005-10-29 devnull winwritebody(w, s, n);
1138 9f1fdc12 2005-10-29 devnull free(s);
1140 9f1fdc12 2005-10-29 devnull if(strncmp(mp->type, "multipart/", 10)==0 || strcmp(mp->type, "message/rfc822")==0){
1141 9f1fdc12 2005-10-29 devnull mp->w = w;
1142 9f1fdc12 2005-10-29 devnull mesgload(mp, rootdir, name, w);
1143 9f1fdc12 2005-10-29 devnull mp->w = nil;
1145 9f1fdc12 2005-10-29 devnull mimedisplay(mp, name, rootdir, w, 0);
1147 9f1fdc12 2005-10-29 devnull free(name);
1148 9f1fdc12 2005-10-29 devnull free(subdir);
1151 9f1fdc12 2005-10-29 devnull free(dir);
1155 9f1fdc12 2005-10-29 devnull tokenizec(char *str, char **args, int max, char *splitc)
1157 3b5862ee 2006-02-14 devnull int i, na;
1158 9f1fdc12 2005-10-29 devnull int intok = 0;
1159 3b5862ee 2006-02-14 devnull char *p;
1161 9f1fdc12 2005-10-29 devnull if(max <= 0)
1162 3b5862ee 2006-02-14 devnull return 0;
1164 cbeb0b26 2006-04-01 devnull /* if(strchr(str, ',') || strchr(str, '"') || strchr(str, '<') || strchr(str, '(')) */
1165 cbeb0b26 2006-04-01 devnull /* splitc = ","; */
1166 9f1fdc12 2005-10-29 devnull for(na=0; *str != '\0';str++){
1167 9f1fdc12 2005-10-29 devnull if(strchr(splitc, *str) == nil){
1168 9f1fdc12 2005-10-29 devnull if(intok)
1169 9f1fdc12 2005-10-29 devnull continue;
1170 9f1fdc12 2005-10-29 devnull args[na++] = str;
1171 9f1fdc12 2005-10-29 devnull intok = 1;
1173 9f1fdc12 2005-10-29 devnull /* it's a separator/skip character */
1174 9f1fdc12 2005-10-29 devnull *str = '\0';
1175 9f1fdc12 2005-10-29 devnull if(intok){
1176 9f1fdc12 2005-10-29 devnull intok = 0;
1177 9f1fdc12 2005-10-29 devnull if(na >= max)
1182 3b5862ee 2006-02-14 devnull for(i=0; i<na; i++){
1183 3b5862ee 2006-02-14 devnull while(*args[i] && strchr(" \t\r\n", *args[i]))
1184 3b5862ee 2006-02-14 devnull args[i]++;
1185 3b5862ee 2006-02-14 devnull p = args[i]+strlen(args[i]);
1186 3b5862ee 2006-02-14 devnull while(p>args[i] && strchr(" \t\r\n", *(p-1)))
1187 3b5862ee 2006-02-14 devnull *--p = 0;
1189 9f1fdc12 2005-10-29 devnull return na;
1192 9f1fdc12 2005-10-29 devnull Message*
1193 9f1fdc12 2005-10-29 devnull mesglookup(Message *mbox, char *name, char *digest)
1196 9f1fdc12 2005-10-29 devnull Message *m;
1197 9f1fdc12 2005-10-29 devnull char *t;
1199 3f8c36d6 2006-02-09 devnull if(digest && digest[0]){
1200 9f1fdc12 2005-10-29 devnull /* can find exactly */
1201 9f1fdc12 2005-10-29 devnull for(m=mbox->head; m!=nil; m=m->next)
1202 9f1fdc12 2005-10-29 devnull if(strcmp(digest, m->digest) == 0)
1204 9f1fdc12 2005-10-29 devnull return m;
1207 9f1fdc12 2005-10-29 devnull n = strlen(name);
1208 9f1fdc12 2005-10-29 devnull if(n == 0)
1209 9f1fdc12 2005-10-29 devnull return nil;
1210 9f1fdc12 2005-10-29 devnull if(name[n-1] == '/')
1211 9f1fdc12 2005-10-29 devnull t = estrdup(name);
1213 9f1fdc12 2005-10-29 devnull t = estrstrdup(name, "/");
1214 9f1fdc12 2005-10-29 devnull for(m=mbox->head; m!=nil; m=m->next)
1215 9f1fdc12 2005-10-29 devnull if(strcmp(t, m->name) == 0)
1217 9f1fdc12 2005-10-29 devnull free(t);
1218 9f1fdc12 2005-10-29 devnull return m;
1222 9f1fdc12 2005-10-29 devnull * Find plumb port, knowing type is text, given file name (by extension)
1225 9f1fdc12 2005-10-29 devnull plumbportbysuffix(char *file)
1227 9f1fdc12 2005-10-29 devnull char *suf;
1228 9f1fdc12 2005-10-29 devnull int i, nsuf, nfile;
1230 9f1fdc12 2005-10-29 devnull nfile = strlen(file);
1231 9f1fdc12 2005-10-29 devnull for(i=0; ports[i].type!=nil; i++){
1232 9f1fdc12 2005-10-29 devnull suf = ports[i].suffix;
1233 9f1fdc12 2005-10-29 devnull nsuf = strlen(suf);
1234 9f1fdc12 2005-10-29 devnull if(nfile > nsuf)
1235 9f1fdc12 2005-10-29 devnull if(cistrncmp(file+nfile-nsuf, suf, nsuf) == 0)
1236 9f1fdc12 2005-10-29 devnull return i;
1238 9f1fdc12 2005-10-29 devnull return 0;
1242 9f1fdc12 2005-10-29 devnull * Find plumb port using type and file name (by extension)
1245 9f1fdc12 2005-10-29 devnull plumbport(char *type, char *file)
1249 9f1fdc12 2005-10-29 devnull for(i=0; ports[i].type!=nil; i++)
1250 9f1fdc12 2005-10-29 devnull if(strncmp(type, ports[i].type, strlen(ports[i].type)) == 0)
1251 9f1fdc12 2005-10-29 devnull return i;
1252 9f1fdc12 2005-10-29 devnull /* see if it's a text type */
1253 9f1fdc12 2005-10-29 devnull for(i=0; goodtypes[i]!=nil; i++)
1254 9f1fdc12 2005-10-29 devnull if(strncmp(type, goodtypes[i], strlen(goodtypes[i])) == 0)
1255 9f1fdc12 2005-10-29 devnull return plumbportbysuffix(file);
1256 9f1fdc12 2005-10-29 devnull return -1;
1260 9f1fdc12 2005-10-29 devnull plumb(Message *m, char *dir)
1263 9f1fdc12 2005-10-29 devnull char *port;
1264 9f1fdc12 2005-10-29 devnull Plumbmsg *pm;
1266 9f1fdc12 2005-10-29 devnull if(strlen(m->type) == 0)
1267 9f1fdc12 2005-10-29 devnull return;
1268 9f1fdc12 2005-10-29 devnull i = plumbport(m->type, m->filename);
1269 9f1fdc12 2005-10-29 devnull if(i < 0)
1270 9f1fdc12 2005-10-29 devnull fprint(2, "can't find destination for message subpart\n");
1272 9f1fdc12 2005-10-29 devnull port = ports[i].port;
1273 9f1fdc12 2005-10-29 devnull pm = emalloc(sizeof(Plumbmsg));
1274 9f1fdc12 2005-10-29 devnull pm->src = estrdup("Mail");
1275 9f1fdc12 2005-10-29 devnull if(port)
1276 9f1fdc12 2005-10-29 devnull pm->dst = estrdup(port);
1278 9f1fdc12 2005-10-29 devnull pm->dst = nil;
1279 9f1fdc12 2005-10-29 devnull pm->wdir = nil;
1280 9f1fdc12 2005-10-29 devnull pm->type = estrdup("text");
1281 9f1fdc12 2005-10-29 devnull pm->ndata = -1;
1282 9f1fdc12 2005-10-29 devnull pm->data = estrstrdup(dir, "body");
1283 9f1fdc12 2005-10-29 devnull pm->data = eappend(pm->data, "", ports[i].suffix);
1284 00d75e0e 2006-02-11 devnull if(plumbsendtofid(plumbsendfd, pm) < 0)
1285 9f1fdc12 2005-10-29 devnull fprint(2, "error writing plumb message: %r\n");
1286 9f1fdc12 2005-10-29 devnull plumbfree(pm);
1291 9f1fdc12 2005-10-29 devnull mesgopen(Message *mbox, char *dir, char *s, Message *mesg, int plumbed, char *digest)
1293 9f1fdc12 2005-10-29 devnull char *t, *u, *v;
1294 9f1fdc12 2005-10-29 devnull Message *m;
1295 9f1fdc12 2005-10-29 devnull char *direlem[10];
1296 9f1fdc12 2005-10-29 devnull int i, ndirelem, reuse;
1298 9f1fdc12 2005-10-29 devnull /* find white-space-delimited first word */
1299 9f1fdc12 2005-10-29 devnull for(t=s; *t!='\0' && !isspace(*t); t++)
1301 9f1fdc12 2005-10-29 devnull u = emalloc(t-s+1);
1302 9f1fdc12 2005-10-29 devnull memmove(u, s, t-s);
1303 9f1fdc12 2005-10-29 devnull /* separate it on slashes */
1304 9f1fdc12 2005-10-29 devnull ndirelem = tokenizec(u, direlem, nelem(direlem), "/");
1305 9f1fdc12 2005-10-29 devnull if(ndirelem <= 0){
1307 9f1fdc12 2005-10-29 devnull free(u);
1308 9f1fdc12 2005-10-29 devnull return 0;
1311 3f8c36d6 2006-02-09 devnull if(plumbed)
1312 3f8c36d6 2006-02-09 devnull drawtopwindow();
1314 9f1fdc12 2005-10-29 devnull /* open window for message */
1315 9f1fdc12 2005-10-29 devnull m = mesglookup(mbox, direlem[0], digest);
1316 9f1fdc12 2005-10-29 devnull if(m == nil)
1317 9f1fdc12 2005-10-29 devnull goto Error;
1318 9f1fdc12 2005-10-29 devnull if(mesg!=nil && m!=mesg) /* string looked like subpart but isn't part of this message */
1319 9f1fdc12 2005-10-29 devnull goto Error;
1320 9f1fdc12 2005-10-29 devnull if(m->opened == 0){
1321 9f1fdc12 2005-10-29 devnull if(m->w == nil){
1322 9f1fdc12 2005-10-29 devnull reuse = 0;
1323 9f1fdc12 2005-10-29 devnull m->w = newwindow();
1325 9f1fdc12 2005-10-29 devnull reuse = 1;
1326 9f1fdc12 2005-10-29 devnull /* re-use existing window */
1327 9f1fdc12 2005-10-29 devnull if(winsetaddr(m->w, "0,$", 1)){
1328 9f1fdc12 2005-10-29 devnull if(m->w->data == nil)
1329 3f8c36d6 2006-02-09 devnull m->w->data = winopenfile(m->w, "data");
1330 9f1fdc12 2005-10-29 devnull fswrite(m->w->data, "", 0);
1333 9f1fdc12 2005-10-29 devnull v = estrstrdup(mbox->name, m->name);
1334 9f1fdc12 2005-10-29 devnull winname(m->w, v);
1335 9f1fdc12 2005-10-29 devnull free(v);
1336 9f1fdc12 2005-10-29 devnull if(!reuse){
1337 9f1fdc12 2005-10-29 devnull if(m->deleted)
1338 9f1fdc12 2005-10-29 devnull wintagwrite(m->w, "Q Reply all UnDelmesg Save ", 2+6+4+10+5);
1340 9f1fdc12 2005-10-29 devnull wintagwrite(m->w, "Q Reply all Delmesg Save ", 2+6+4+8+5);
1342 9f1fdc12 2005-10-29 devnull threadcreate(mesgctl, m, STACK);
1343 9f1fdc12 2005-10-29 devnull winopenbody(m->w, OWRITE);
1344 9f1fdc12 2005-10-29 devnull mesgload(m, dir, m->name, m->w);
1345 9f1fdc12 2005-10-29 devnull winclosebody(m->w);
1346 cbeb0b26 2006-04-01 devnull /* sleep(100); */
1347 9f1fdc12 2005-10-29 devnull winclean(m->w);
1348 9f1fdc12 2005-10-29 devnull m->opened = 1;
1349 9f1fdc12 2005-10-29 devnull if(ndirelem == 1){
1350 9f1fdc12 2005-10-29 devnull free(u);
1351 9f1fdc12 2005-10-29 devnull return 1;
1354 9f1fdc12 2005-10-29 devnull if(ndirelem == 1 && plumbport(m->type, m->filename) <= 0){
1355 9f1fdc12 2005-10-29 devnull /* make sure dot is visible */
1356 9f1fdc12 2005-10-29 devnull ctlprint(m->w->ctl, "show\n");
1357 9f1fdc12 2005-10-29 devnull return 0;
1359 9f1fdc12 2005-10-29 devnull /* walk to subpart */
1360 9f1fdc12 2005-10-29 devnull dir = estrstrdup(dir, m->name);
1361 9f1fdc12 2005-10-29 devnull for(i=1; i<ndirelem; i++){
1362 9f1fdc12 2005-10-29 devnull m = mesglookup(m, direlem[i], digest);
1363 9f1fdc12 2005-10-29 devnull if(m == nil)
1365 9f1fdc12 2005-10-29 devnull dir = egrow(dir, m->name, nil);
1367 9f1fdc12 2005-10-29 devnull if(m != nil && plumbport(m->type, m->filename) > 0)
1368 9f1fdc12 2005-10-29 devnull plumb(m, dir);
1369 9f1fdc12 2005-10-29 devnull free(dir);
1370 9f1fdc12 2005-10-29 devnull free(u);
1371 9f1fdc12 2005-10-29 devnull return 1;
1375 9f1fdc12 2005-10-29 devnull rewritembox(Window *w, Message *mbox)
1377 9f1fdc12 2005-10-29 devnull Message *m, *next;
1378 9f1fdc12 2005-10-29 devnull char *deletestr, *t;
1379 9f1fdc12 2005-10-29 devnull int nopen;
1381 9f1fdc12 2005-10-29 devnull deletestr = estrstrdup("delete ", fsname);
1383 9f1fdc12 2005-10-29 devnull nopen = 0;
1384 9f1fdc12 2005-10-29 devnull for(m=mbox->head; m!=nil; m=next){
1385 9f1fdc12 2005-10-29 devnull next = m->next;
1386 9f1fdc12 2005-10-29 devnull if(m->deleted == 0)
1387 9f1fdc12 2005-10-29 devnull continue;
1388 9f1fdc12 2005-10-29 devnull if(m->opened){
1389 9f1fdc12 2005-10-29 devnull nopen++;
1390 9f1fdc12 2005-10-29 devnull continue;
1392 9f1fdc12 2005-10-29 devnull if(m->writebackdel){
1393 9f1fdc12 2005-10-29 devnull /* messages deleted by plumb message are not removed again */
1394 9f1fdc12 2005-10-29 devnull t = estrdup(m->name);
1395 9f1fdc12 2005-10-29 devnull if(strlen(t) > 0)
1396 9f1fdc12 2005-10-29 devnull t[strlen(t)-1] = '\0';
1397 9f1fdc12 2005-10-29 devnull deletestr = egrow(deletestr, " ", t);
1399 9f1fdc12 2005-10-29 devnull mesgmenudel(w, mbox, m);
1400 9f1fdc12 2005-10-29 devnull mesgdel(mbox, m);
1402 3f8c36d6 2006-02-09 devnull if(fswrite(mbox->ctlfd, deletestr, strlen(deletestr)) < 0)
1403 9f1fdc12 2005-10-29 devnull fprint(2, "Mail: warning: error removing mail message files: %r\n");
1404 9f1fdc12 2005-10-29 devnull free(deletestr);
1405 9f1fdc12 2005-10-29 devnull winselect(w, "0", 0);
1406 9f1fdc12 2005-10-29 devnull if(nopen == 0)
1407 9f1fdc12 2005-10-29 devnull winclean(w);
1408 9f1fdc12 2005-10-29 devnull mbox->dirty = 0;
1411 9f1fdc12 2005-10-29 devnull /* name is a full file name, but it might not belong to us */
1412 9f1fdc12 2005-10-29 devnull Message*
1413 9f1fdc12 2005-10-29 devnull mesglookupfile(Message *mbox, char *name, char *digest)
1415 9f1fdc12 2005-10-29 devnull int k, n;
1417 9f1fdc12 2005-10-29 devnull k = strlen(name);
1418 9f1fdc12 2005-10-29 devnull n = strlen(mbox->name);
1419 9f1fdc12 2005-10-29 devnull if(k==0 || strncmp(name, mbox->name, n) != 0){
1420 cbeb0b26 2006-04-01 devnull /* fprint(2, "Mail: message %s not in this mailbox\n", name); */
1421 9f1fdc12 2005-10-29 devnull return nil;
1423 9f1fdc12 2005-10-29 devnull return mesglookup(mbox, name+n, digest);
