[9fans] Forward option for Mail

["Skip Tavakkolian" <fst@centurytel.net>]

I added a Forward option for acme/mail. I've been using it a few days. I
was careful to leave the Q/Reply/all behavior unchanged.

If you mark something that looks like an email address (has an '@' in
it) and middle-left-click on Forward, it creates the new Forward
buffer with that address in the To line; otherwise the To line will be
blank.  Another minor thing was adding the |spell in the tag line.

diff /n/dump/2003/1207/acme/mail/src/dat.h /acme/mail/src/dat.h
diff /n/dump/2003/1207/acme/mail/src/html.c /acme/mail/src/html.c
diff /n/dump/2003/1207/acme/mail/src/mail.c /acme/mail/src/mail.c
diff /n/dump/2003/1207/acme/mail/src/mesg.c /acme/mail/src/mesg.c
642a643,647
> 	if (strcmp(args[0], "Forward") == 0) {
> 		char *to = (nargs >= 2 && strchr(args[1], '@')) ? args[1] : nil;
> 		mkreply(m, "Forward", to, nil, nil);
> 		goto Return;
> 	}
1233c1238
< 				wintagwrite(m->w, "Q Reply all UnDelmesg Save ", 2+6+4+10+5);
---
> 				wintagwrite(m->w, "Q Reply all Forward UnDelmesg Save ", 2+6+4+8+10+5);
1235c1240
< 				wintagwrite(m->w, "Q Reply all Delmesg Save ", 2+6+4+8+5);
---
> 				wintagwrite(m->w, "Q Reply all Forward Delmesg Save ", 2+6+4+8+8+5);
diff /n/dump/2003/1207/acme/mail/src/reply.c /acme/mail/src/reply.c
74c74
< 	int quotereply;
---
> 	int quotereply, fwdreply;
77a78
> 	fwdreply = (strcmp(label, "Forward") == 0);
93c94
< 	wintagwrite(r->w, "|fmt Post", 5+4);
---
> 	wintagwrite(r->w, "|spell |fmt Undo Post", 7+5+5+4);
97c98
< 	if(to!=nil && to[0]!='\0')
---
> 	if(to!=nil && to[0]!='\0' && !fwdreply)
104c105,109
< 		if(to == nil && attr == nil){
---
> 		if (fwdreply) {
> 			Bprint(r->w->body, "To: %s\n", to ? to: "");
> 			quotereply = 0;	/* force inclusion of the whole message */
> 		}
> 		else if(to == nil && attr == nil){
118,119c123,124
< 			t = "Subject: Re: ";
< 			if(strlen(m->subject) >= 3)
---
> 			t = (fwdreply) ? "Subject: Fwd: " : "Subject: Re: ";
> 			if(!fwdreply && strlen(m->subject) >= 3)
diff /n/dump/2003/1207/acme/mail/src/util.c /acme/mail/src/util.c
diff /n/dump/2003/1207/acme/mail/src/win.c /acme/mail/src/win.c