shithub: Nail

Info  •  Files  •  Log  •  Branches

add Mail command to windows

Acme mail had the 'Mail' command, and sirjofri
likes having it -- add it.

--- a/mbox.c

+++ b/mbox.c

@@ -585,6 +585,12 @@

 }

 static void

+mbcompose(char **, int)

+{

+	compose("", nil, 0, 0);

+}

+

+static void

 delmesg(char **f, int nf)

 {

 	mark(f, nf, nil, Ftodel, 1);

@@ -717,6 +723,7 @@

 Fn mboxfn[] = {

 	{"Put",	mbflush},

+	{"Mail", mbcompose},

 	{"Delmesg", delmesg},

 	{"Undelmesg", undelmesg},

 	{"Del", quitall},

@@ -793,7 +800,7 @@

 	threadsetname("mbox %s", mbox.path);

 	wininit(&mbox, mbox.path);

-	wintagwrite(&mbox, "Put Delmesg Undelmesg Next ");

+	wintagwrite(&mbox, "Put Mail Delmesg Undelmesg Next ");

 	showlist();

 	fprint(mbox.ctl, "clean\n");

 	procrfork(eventread, nil, Stack, RFNOTEG);