12 DIRCHUNK = 32*sizeof(Dir)
15 char regexchars[] = "\\/[].+?()*^$";
16 char deleted[] = "(deleted)-";
17 char deletedrx[] = "\\(deleted\\)-";
18 char deletedrx01[] = "(\\(deleted\\)-)?";
19 char deletedaddr[] = "-#0;/^\\(deleted\\)-/";
26 "text/", "edit", ".txt", /* must be first for plumbport() */
27 "image/gif", "image", ".gif",
28 "image/jpeg", "image", ".jpg",
29 "image/jpeg", "image", ".jpeg",
30 "image/png", "image", ".png",
31 "application/postscript", "postscript", ".ps",
32 "application/pdf", "postscript", ".pdf",
33 "application/msword", "msword", ".doc",
34 "application/rtf", "msword", ".rtf",
43 "text/tab-separated-values",
44 "application/octet-stream",
58 char *extraheaders[] =
67 line(char *data, char **pp)
71 for(p=data; *p!='\0' && *p!='\n'; p++)
77 q = emalloc(p-data + 1);
78 memmove(q, data, p-data);
83 mkaddrs(char *t, char **colon)
94 if(*s == ' ' && !inquote)
97 f = emalloc(nf*sizeof f[0]);
98 nf = tokenize(t, f, nf);
101 for(i=0; i+1<nf; i+=2){
103 fmtprint(&fmt, ", ");
104 if(f[i][0] == 0 || strcmp(f[i], f[i+1]) == 0)
105 fmtprint(&fmt, "%s", f[i+1]);
107 fmtprint(&fmt, "%s <%s>", f[i], f[i+1]);
109 *colon = fmtstrflush(&fmt);
112 for(i=0; i+1<nf; i+=2){
114 fmtprint(&fmt, ", ");
115 fmtprint(&fmt, "%s", f[i+1]);
118 return fmtstrflush(&fmt);
122 loadinfo(Message *m, char *dir)
125 char *data, *p, *s, *t;
127 data = readfile(dir, "info", &n);
132 while((s = line(p, &p)) != nil && *s != 0){
137 if(strcmp(s, "from") == 0){
139 m->from = mkaddrs(t, &m->fromcolon);
140 }else if(strcmp(s, "sender") == 0){
142 m->sender = mkaddrs(t, nil);
143 }else if(strcmp(s, "to") == 0){
145 m->to = mkaddrs(t, nil);
146 }else if(strcmp(s, "cc") == 0){
148 m->cc = mkaddrs(t, nil);
149 }else if(strcmp(s, "replyto") == 0){
151 m->replyto = mkaddrs(t, nil);
152 }else if(strcmp(s, "subject") == 0){
154 m->subject = estrdup(t);
155 }else if(strcmp(s, "type") == 0){
157 m->type = estrdup(t);
158 }else if(strcmp(s, "unixdate") == 0 && (t=strchr(t, ' ')) != nil){
160 m->date = estrdup(t+1);
161 }else if(strcmp(s, "digest") == 0){
163 m->digest = estrdup(t);
164 }else if(strcmp(s, "filename") == 0){
166 m->filename = estrdup(t);
172 if(m->replyto == nil){
174 m->replyto = estrdup(m->sender);
176 m->replyto = estrdup(m->from);
178 m->replyto = estrdup("");
181 m->from = estrdup("");
186 if(m->subject == nil)
187 m->subject = estrdup("");
189 m->type = estrdup("");
191 m->date = estrdup("");
192 if(m->disposition == nil)
193 m->disposition = estrdup("");
194 if(m->filename == nil)
195 m->filename = estrdup("");
197 m->digest = estrdup("");
213 mailopen(char *name, int mode)
215 if(strncmp(name, "Mail/", 5) != 0)
217 return fsopen(mailfs, name+5, mode);
221 loaddir(char *name, int *np)
226 fid = mailopen(name, OREAD);
229 *np = fsdirreadall(fid, &dp);
235 readmbox(Message *mbox, char *dir, char *subdir)
241 name = estrstrdup(dir, subdir);
242 dirp = loaddir(name, &n);
247 if(isnumeric(d->name))
248 mesgadd(mbox, name, d, nil);
254 /* add message to box, in increasing numerical order */
256 mesgadd(Message *mbox, char *dir, Dir *d, char *digest)
262 m = emalloc(sizeof(Message));
263 m->name = estrstrdup(d->name, "/");
265 m->prev = mbox->tail;
266 m->level= mbox->level+1;
268 name = estrstrdup(dir, m->name);
269 loaded = loadinfo(m, name);
271 /* if two upas/fs are running, we can get misled, so check digest before accepting message */
272 if(loaded==0 || (digest!=nil && m->digest!=nil && strcmp(digest, m->digest)!=0)){
277 if(mbox->tail != nil)
278 mbox->tail->next = m;
280 if(mbox->head == nil)
285 readmbox(m, dir, m->name);
297 s = ctime(time(nil));
300 return strncmp(year, now, 4) == 0;
311 n = tokenize(s, fld, 10);
313 sprint(as, "%.3s ", fld[0]); /* day */
314 /* some dates have 19 Apr, some Apr 19 */
315 if(strlen(fld[1])<4 && isnumeric(fld[1]))
316 sprint(as+strlen(as), "%.3s %.3s ", fld[1], fld[2]); /* date, month */
318 sprint(as+strlen(as), "%.3s %.3s ", fld[2], fld[1]); /* date, month */
319 /* do we use time or year? depends on whether year matches this one */
320 if(thisyear(fld[5])){
321 if(strchr(fld[3], ':') != nil)
322 sprint(as+strlen(as), "%.5s ", fld[3]); /* time */
323 else if(strchr(fld[4], ':') != nil)
324 sprint(as+strlen(as), "%.5s ", fld[4]); /* time */
326 sprint(as+strlen(as), "%.4s ", fld[5]); /* year */
333 readfile(char *dir, char *name, int *np)
343 file = estrstrdup(dir, name);
344 fid = mailopen(file, OREAD);
348 if(d && d->length == 0){
349 /* some files, e.g. body, are not loaded until we read them */
360 data = emalloc(len+1);
361 len = fsreadn(fid, data, len);
374 info(Message *m, int ind, int ogf)
386 if(ind==0 && shortmenu){
393 if(ind==0 && m->subject[0]=='\0'){
394 snprint(fmt, sizeof fmt, " %%-%d.%ds", len, len);
395 snprint(s, sizeof s, fmt, p);
397 snprint(fmt, sizeof fmt, " %%-%d.%ds %%-%d.%ds", len, len, lens, lens);
398 snprint(s, sizeof s, fmt, p, m->subject);
406 i = eappend(i, "\t", p);
407 i = egrow(i, "\t", stripdate(m->date));
409 if(strcmp(m->type, "text")!=0 && strncmp(m->type, "text/", 5)!=0 &&
410 strncmp(m->type, "multipart/", 10)!=0)
411 i = egrow(i, "\t(", estrstrdup(m->type, ")"));
412 }else if(strncmp(m->type, "multipart/", 10) != 0)
413 i = egrow(i, "\t(", estrstrdup(m->type, ")"));
414 if(m->subject[0] != '\0'){
415 i = eappend(i, "\n", nil);
417 i = eappend(i, "\t", nil);
418 i = eappend(i, "\t", m->subject);
424 mesgmenu0(Window *w, Message *mbox, char *realdir, char *dir, int ind, CFid *fd, int onlyone, int dotail)
431 if(strstr(realdir, "outgoing") != nil)
434 /* show mail box in reverse order, pieces in forward order */
444 name = estrstrdup(dir, m->name);
445 tmp = info(m, ind, ogf);
446 fsprint(fd, "%s%s\n", name, tmp);
448 if(dotail && m->tail)
449 mesgmenu0(w, m, realdir, name, ind+1, fd, 0, dotail);
461 mesgmenu(Window *w, Message *mbox)
463 winopenbody(w, OWRITE);
464 mesgmenu0(w, mbox, mbox->name, "", 0, w->body, 0, !shortmenu);
468 /* one new message has arrived, as mbox->tail */
470 mesgmenunew(Window *w, Message *mbox)
474 winselect(w, "0", 0);
475 w->data = winopenfile(w, "data");
476 b = emalloc(sizeof(Biobuf));
477 mesgmenu0(w, mbox, mbox->name, "", 0, w->data, 1, !shortmenu);
481 /* select tag line plus following indented lines, but not final newline (it's distinctive) */
482 winselect(w, "0/.*\\n((\t.*\\n)*\t.*)?/", 1);
490 name2regexp(char *prefix, char *s)
494 buf = emalloc(strlen(prefix)+2*strlen(s)+50); /* leave room to append more */
501 for(q=s; *q!='\0'; q++){
502 if(strchr(regexchars, *q) != nil)
512 mesgmenumarkdel(Window *w, Message *mbox, Message *m, int writeback)
519 m->writebackdel = writeback;
521 w->data = winopenfile(w, "data");
522 buf = name2regexp("", m->name);
524 if(winselect(w, buf, 1))
525 fswrite(w->data, deleted, 10);
536 mesgmenumarkundel(Window *w, Message *v, Message *m)
544 w->data = winopenfile(w, "data");
545 buf = name2regexp(deletedrx, m->name);
546 if(winselect(w, buf, 1))
547 if(winsetaddr(w, deletedaddr, 1))
548 fswrite(w->data, "", 0);
558 mesgmenudel(Window *w, Message *mbox, Message *m)
563 w->data = winopenfile(w, "data");
564 buf = name2regexp(deletedrx01, m->name);
565 if(winsetaddr(w, buf, 1) && winsetaddr(w, ".,./.*\\n(\t.*\\n)*/", 1))
566 fswrite(w->data, "", 0);
572 /* assume caller knows best mbox->dirty = 1; */
577 mesgmenumark(Window *w, char *which, char *mark)
582 w->data = winopenfile(w, "data");
583 buf = name2regexp(deletedrx01, which);
584 if(winsetaddr(w, buf, 1) && winsetaddr(w, "+0-#1", 1)) /* go to end of line */
585 fswrite(w->data, mark, strlen(mark));
596 mesgfreeparts(Message *m)
607 free(m->disposition);
613 mesgdel(Message *mbox, Message *m)
618 error("internal error: deleted message still open in mesgdel\n");
619 /* delete subparts */
620 for(n=m->head; n!=nil; n=next){
624 /* remove this message from list */
626 m->next->prev = m->prev;
628 mbox->tail = m->prev;
630 m->prev->next = m->next;
632 mbox->head = m->next;
638 mesgsave(Message *m, char *s, int save)
641 char *t, *raw, *unixheader, *all;
644 if(fsprint(mbox.ctlfd, "save %q %q", s, m->name) < 0){
645 fprint(2, "Mail: can't save %s to %s: %r\n", m->name, s);
651 t = estrstrdup(mbox.name, m->name);
652 raw = readfile(t, "raw", &n);
653 unixheader = readfile(t, "unixheader", &k);
654 if(raw==nil || unixheader==nil){
655 fprint(2, "Mail: can't read %s: %r\n", t);
661 all = emalloc(n+k+1);
662 memmove(all, unixheader, k);
663 memmove(all+k, raw, n);
664 memmove(all+k+n, "\n", 1);
671 s = egrow(estrdup(mailboxdir), "/", s);
672 ofd = open(s, OWRITE);
674 fprint(2, "Mail: can't open %s: %r\n", s);
676 }else if(seek(ofd, 0LL, 2)<0 || write(ofd, all, n)!=n){
677 fprint(2, "Mail: save failed: can't write %s: %r\n", s);
687 mesgcommand(Message *m, char *cmd)
691 int save, ok, ret, nargs;
695 nargs = tokenize(s, args, nelem(args));
698 if(strcmp(args[0], "Post") == 0){
702 if(strncmp(args[0], "Save", 4) == 0 || strncmp(args[0], "Write", 5) == 0){
705 save = args[0][0]=='S';
707 s = estrdup("\t[saved");
709 s = estrdup("\t[wrote");
710 if(nargs==1 || strcmp(args[1], "")==0){
711 ok = mesgsave(m, "stored", save);
713 ok = mesgsave(m, args[1], save);
714 s = eappend(s, " ", args[1]);
717 s = egrow(s, "]", nil);
718 mesgmenumark(mbox.w, m->name, s);
723 if(strcmp(args[0], "Reply")==0){
724 if(nargs>=2 && strcmp(args[1], "all")==0)
725 mkreply(m, "Replyall", nil, nil, nil);
727 mkreply(m, "Reply", nil, nil, nil);
730 if(strcmp(args[0], "Q") == 0){
731 s = winselection(m->w); /* will be freed by mkreply */
732 if(nargs>=3 && strcmp(args[1], "Reply")==0 && strcmp(args[2], "all")==0)
733 mkreply(m, "QReplyall", nil, nil, s);
735 mkreply(m, "QReply", nil, nil, s);
738 if(strcmp(args[0], "Del") == 0){
753 if(strcmp(args[0], "Delmesg") == 0){
755 mesgmenumarkdel(wbox, &mbox, m, 1);
756 free(cmd); /* mesgcommand might not return */
757 mesgcommand(m, estrdup("Del"));
762 if(strcmp(args[0], "UnDelmesg") == 0){
763 if(!m->isreply && m->deleted)
764 mesgmenumarkundel(wbox, &mbox, m);
767 /* if(strcmp(args[0], "Headers") == 0){ */
768 /* m->showheaders(); */
780 mesgtagpost(Message *m)
784 wintagwrite(m->w, " Post", 5);
788 /* need to expand selection more than default word */
789 #pragma varargck argpos eval 2
792 eval(Window *w, char *s, ...)
798 vsnprint(buf, sizeof buf, s, arg);
801 if(winsetaddr(w, buf, 1)==0)
804 if(fspread(w->addr, buf, 24, 0) != 24)
806 return strtol(buf, 0, 10);
818 else if(!isalpha(*s) && !isdigit(*s) && !strchr("_.-+/", *s))
823 char addrdelim[] = "/[ \t\\n<>()\\[\\]]/";
825 expandaddr(Window *w, Event *e)
830 if(e->q0 != e->q1) /* cannot happen */
833 q0 = eval(w, "#%d-%s", e->q0, addrdelim);
834 if(q0 == -1) /* bad char not found */
836 else /* increment past bad char */
839 q1 = eval(w, "#%d+%s", e->q0, addrdelim);
847 s = emalloc((q1-q0)*UTFmax+1);
848 winread(w, q0, q1, s);
853 replytoaddr(Window *w, Message *m, Event *e, char *s)
862 /* autoexpanded; use our own bigger expansion */
863 buf = expandaddr(w, e);
870 pm = emalloc(sizeof(Plumbmsg));
871 pm->src = estrdup("Mail");
872 pm->dst = estrdup("sendmail");
873 pm->data = estrdup(s);
875 if(m->subject && m->subject[0]){
876 pm->attr = emalloc(sizeof(Plumbattr));
877 pm->attr->name = estrdup("Subject");
878 if(tolower(m->subject[0]) != 'r' || tolower(m->subject[1]) != 'e' || m->subject[2] != ':')
879 pm->attr->value = estrstrdup("Re: ", m->subject);
881 pm->attr->value = estrdup(m->subject);
882 pm->attr->next = nil;
884 if(plumbsendtofid(plumbsendfd, pm) < 0)
885 fprint(2, "error writing plumb message: %r\n");
898 Event *e, *eq, *e2, *ea;
900 char *os, *s, *t, *buf;
904 threadsetname("mesgctl");
906 proccreate(wineventproc, w, STACK);
908 e = recvp(w->cevent);
912 print("unknown message %c%c\n", e->c1, e->c2);
915 case 'E': /* write to body; can't affect us */
918 case 'F': /* generated by our actions; ignore */
921 case 'K': /* type away; we don't care */
924 case 'x': /* mouse only */
929 e2 = recvp(w->cevent);
933 ea = recvp(w->cevent);
938 if(eq->q1>eq->q0 && eq->nb==0){
939 s = emalloc((eq->q1-eq->q0)*UTFmax+1);
940 winread(w, eq->q0, eq->q1, s);
944 t = emalloc(strlen(s)+1+na+1);
945 sprint(t, "%s %s", s, ea->b);
949 if(!mesgcommand(m, s)) /* send it back */
953 case 'l': /* mouse only */
958 e2 = recvp(w->cevent);
962 if(eq->q1>eq->q0 && eq->nb==0){
963 buf = emalloc((eq->q1-eq->q0)*UTFmax+1);
964 winread(w, eq->q0, eq->q1, buf);
970 /* skip mail box name if present */
971 if(strncmp(s, mbox.name, strlen(mbox.name)) == 0)
972 s += strlen(mbox.name);
973 if(strstr(s, "body") != nil){
974 /* strip any known extensions */
975 for(i=0; ports[i].suffix!=nil; i++){
976 j = strlen(ports[i].suffix);
977 if(strlen(s)>j && strcmp(s+strlen(s)-j, ports[i].suffix)==0){
978 s[strlen(s)-j] = '\0';
982 if(strlen(s)>5 && strcmp(s+strlen(s)-5, "/body")==0)
983 s[strlen(s)-4] = '\0'; /* leave / in place */
985 nopen += mesgopen(&mbox, mbox.name, s, m, 0, nil);
986 while(*s!=0 && *s++!='\n')
989 if(nopen == 0 && e->c1 == 'L')
990 nopen += replytoaddr(w, m, e, os);
996 case 'I': /* modify away; we don't care */
1012 mesgline(Message *m, char *header, char *value)
1014 if(strlen(value) > 0)
1015 fsprint(m->w->body, "%s: %s\n", header, value);
1019 isprintable(char *type)
1023 for(i=0; goodtypes[i]!=nil; i++)
1024 if(strcmp(type, goodtypes[i])==0)
1034 for(i=0; ports[i].type!=nil; i++)
1035 if(strcmp(type, ports[i].type)==0)
1036 return ports[i].suffix;
1041 mimedisplay(Message *m, char *name, char *rootdir, Window *w, int fileonly)
1045 if(strcmp(m->disposition, "file")==0 || strlen(m->filename)!=0 || !fileonly){
1046 if(strlen(m->filename) == 0)
1047 dest = estrstrdup("a", ext(m->type));
1049 dest = estrdup(m->filename);
1050 if(m->filename[0] != '/')
1051 dest = egrow(estrdup(home), "/", dest);
1052 fsprint(w->body, "\t9p read %s/%s/%sbody > %s\n",
1053 srvname, mboxname, name, dest);
1059 printheader(char *dir, CFid *fid, char **okheaders)
1065 s = readfile(dir, "header", nil);
1068 n = getfields(s, lines, nelem(lines), 0, "\n");
1070 for(j=0; okheaders[j]; j++)
1071 if(cistrncmp(lines[i], okheaders[j], strlen(okheaders[j])) == 0)
1072 fsprint(fid, "%s\n", lines[i]);
1077 mesgload(Message *m, char *rootdir, char *file, Window *w)
1079 char *s, *subdir, *name, *dir;
1080 Message *mp, *thisone;
1083 dir = estrstrdup(rootdir, file);
1085 if(strcmp(m->type, "message/rfc822") != 0){ /* suppress headers of envelopes */
1086 if(strlen(m->from) > 0){
1087 fsprint(w->body, "From: %s\n", m->from);
1088 mesgline(m, "Date", m->date);
1089 mesgline(m, "To", m->to);
1090 mesgline(m, "CC", m->cc);
1091 mesgline(m, "Subject", m->subject);
1092 printheader(dir, w->body, extraheaders);
1094 printheader(dir, w->body, okheaders);
1095 printheader(dir, w->body, extraheaders);
1097 fsprint(w->body, "\n");
1100 if(m->level == 1 && m->recursed == 0){
1102 readmbox(m, rootdir, m->name);
1104 if(m->head == nil){ /* single part message */
1105 if(strcmp(m->type, "text")==0 || strncmp(m->type, "text/", 5)==0){
1106 mimedisplay(m, m->name, rootdir, w, 1);
1107 s = readbody(m->type, dir, &n);
1108 winwritebody(w, s, n);
1111 mimedisplay(m, m->name, rootdir, w, 0);
1113 /* multi-part message, either multipart/* or message/rfc822 */
1115 if(strcmp(m->type, "multipart/alternative") == 0){
1116 thisone = m->head; /* in case we can't find a good one */
1117 for(mp=m->head; mp!=nil; mp=mp->next)
1118 if(isprintable(mp->type)){
1123 for(mp=m->head; mp!=nil; mp=mp->next){
1124 if(thisone!=nil && mp!=thisone)
1126 subdir = estrstrdup(dir, mp->name);
1127 name = estrstrdup(file, mp->name);
1128 /* skip first element in name because it's already in window name */
1130 fsprint(w->body, "\n===> %s (%s) [%s]\n", strchr(name, '/')+1, mp->type, mp->disposition);
1131 if(strcmp(mp->type, "text")==0 || strncmp(mp->type, "text/", 5)==0){
1132 mimedisplay(mp, name, rootdir, w, 1);
1133 printheader(subdir, w->body, okheaders);
1134 printheader(subdir, w->body, extraheaders);
1135 winwritebody(w, "\n", 1);
1136 s = readbody(mp->type, subdir, &n);
1137 winwritebody(w, s, n);
1140 if(strncmp(mp->type, "multipart/", 10)==0 || strcmp(mp->type, "message/rfc822")==0){
1142 mesgload(mp, rootdir, name, w);
1145 mimedisplay(mp, name, rootdir, w, 0);
1155 tokenizec(char *str, char **args, int max, char *splitc)
1164 /* if(strchr(str, ',') || strchr(str, '"') || strchr(str, '<') || strchr(str, '(')) */
1166 for(na=0; *str != '\0';str++){
1167 if(strchr(splitc, *str) == nil){
1173 /* it's a separator/skip character */
1182 for(i=0; i<na; i++){
1183 while(*args[i] && strchr(" \t\r\n", *args[i]))
1185 p = args[i]+strlen(args[i]);
1186 while(p>args[i] && strchr(" \t\r\n", *(p-1)))
1193 mesglookup(Message *mbox, char *name, char *digest)
1199 if(digest && digest[0]){
1200 /* can find exactly */
1201 for(m=mbox->head; m!=nil; m=m->next)
1202 if(strcmp(digest, m->digest) == 0)
1210 if(name[n-1] == '/')
1213 t = estrstrdup(name, "/");
1214 for(m=mbox->head; m!=nil; m=m->next)
1215 if(strcmp(t, m->name) == 0)
1222 * Find plumb port, knowing type is text, given file name (by extension)
1225 plumbportbysuffix(char *file)
1230 nfile = strlen(file);
1231 for(i=0; ports[i].type!=nil; i++){
1232 suf = ports[i].suffix;
1235 if(cistrncmp(file+nfile-nsuf, suf, nsuf) == 0)
1242 * Find plumb port using type and file name (by extension)
1245 plumbport(char *type, char *file)
1249 for(i=0; ports[i].type!=nil; i++)
1250 if(strncmp(type, ports[i].type, strlen(ports[i].type)) == 0)
1252 /* see if it's a text type */
1253 for(i=0; goodtypes[i]!=nil; i++)
1254 if(strncmp(type, goodtypes[i], strlen(goodtypes[i])) == 0)
1255 return plumbportbysuffix(file);
1260 plumb(Message *m, char *dir)
1266 if(strlen(m->type) == 0)
1268 i = plumbport(m->type, m->filename);
1270 fprint(2, "can't find destination for message subpart\n");
1272 port = ports[i].port;
1273 pm = emalloc(sizeof(Plumbmsg));
1274 pm->src = estrdup("Mail");
1276 pm->dst = estrdup(port);
1280 pm->type = estrdup("text");
1282 pm->data = estrstrdup(dir, "body");
1283 pm->data = eappend(pm->data, "", ports[i].suffix);
1284 if(plumbsendtofid(plumbsendfd, pm) < 0)
1285 fprint(2, "error writing plumb message: %r\n");
1291 mesgopen(Message *mbox, char *dir, char *s, Message *mesg, int plumbed, char *digest)
1296 int i, ndirelem, reuse;
1298 /* find white-space-delimited first word */
1299 for(t=s; *t!='\0' && !isspace(*t); t++)
1303 /* separate it on slashes */
1304 ndirelem = tokenizec(u, direlem, nelem(direlem), "/");
1314 /* open window for message */
1315 m = mesglookup(mbox, direlem[0], digest);
1318 if(mesg!=nil && m!=mesg) /* string looked like subpart but isn't part of this message */
1326 /* re-use existing window */
1327 if(winsetaddr(m->w, "0,$", 1)){
1328 if(m->w->data == nil)
1329 m->w->data = winopenfile(m->w, "data");
1330 fswrite(m->w->data, "", 0);
1333 v = estrstrdup(mbox->name, m->name);
1338 wintagwrite(m->w, "Q Reply all UnDelmesg Save ", 2+6+4+10+5);
1340 wintagwrite(m->w, "Q Reply all Delmesg Save ", 2+6+4+8+5);
1342 threadcreate(mesgctl, m, STACK);
1343 winopenbody(m->w, OWRITE);
1344 mesgload(m, dir, m->name, m->w);
1354 if(ndirelem == 1 && plumbport(m->type, m->filename) <= 0){
1355 /* make sure dot is visible */
1356 ctlprint(m->w->ctl, "show\n");
1359 /* walk to subpart */
1360 dir = estrstrdup(dir, m->name);
1361 for(i=1; i<ndirelem; i++){
1362 m = mesglookup(m, direlem[i], digest);
1365 dir = egrow(dir, m->name, nil);
1367 if(m != nil && plumbport(m->type, m->filename) > 0)
1375 rewritembox(Window *w, Message *mbox)
1378 char *deletestr, *t;
1381 deletestr = estrstrdup("delete ", fsname);
1384 for(m=mbox->head; m!=nil; m=next){
1392 if(m->writebackdel){
1393 /* messages deleted by plumb message are not removed again */
1394 t = estrdup(m->name);
1396 t[strlen(t)-1] = '\0';
1397 deletestr = egrow(deletestr, " ", t);
1399 mesgmenudel(w, mbox, m);
1402 if(fswrite(mbox->ctlfd, deletestr, strlen(deletestr)) < 0)
1403 fprint(2, "Mail: warning: error removing mail message files: %r\n");
1405 winselect(w, "0", 0);
1411 /* name is a full file name, but it might not belong to us */
1413 mesglookupfile(Message *mbox, char *name, char *digest)
1418 n = strlen(mbox->name);
1419 if(k==0 || strncmp(name, mbox->name, n) != 0){
1420 /* fprint(2, "Mail: message %s not in this mailbox\n", name); */
1423 return mesglookup(mbox, name+n, digest);