shithub: riscv

Info  •  Files  •  Log  •  Branches

Mail: only clear upas-maintained flags on change (thanks deuteron)

When message flags change, Mail would clear all the flags and
recompute them. This would clobber internal flags like Ftodel.
So, don't do that.

--- a/sys/src/cmd/upas/Mail/mbox.c

+++ b/sys/src/cmd/upas/Mail/mbox.c

@@ -321,7 +321,7 @@

 		return nil;

 	free(m->mflags);

 	m->mflags = f;

-	m->flags = 0;

+	m->flags &= ~(Fdel|Fseen|Fresp);

 	if(strchr(m->mflags, 'd')) m->flags |= Fdel;

 	if(strchr(m->mflags, 's')) m->flags |= Fseen;

 	if(strchr(m->mflags, 'a')) m->flags |= Fresp;

@@ -797,7 +797,6 @@

 	digest = plumblookup(pm->attr, "digest");

 	action = plumblookup(pm->attr, "mailtype");

-//	fprint(2, "changing message %s, %s %s\n", action, pm->data, digest);

 	if(strcmp(action, "new") == 0){

 		if((m = load(pm->data, digest, 1)) == nil)

 			return;