about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--man/mcom.12
-rwxr-xr-xmcom11
2 files changed, 12 insertions, 1 deletions
diff --git a/man/mcom.1 b/man/mcom.1
index 5e4a15e..69ea5d4 100644
--- a/man/mcom.1
+++ b/man/mcom.1
@@ -40,6 +40,8 @@ on the draft, and show the result of
 .Ic mshow -t .
 .It Ic e
 Re-run the editor on the draft.
+.It Ic d
+Delete the draft and quit.
 .El
 .Sh ENVIRONMENT
 .Bl -tag -width Ds
diff --git a/mcom b/mcom
index 72269a8..0402b20 100755
--- a/mcom
+++ b/mcom
@@ -159,8 +159,17 @@ while :; do
 			c=c
 		fi
 		;;
+	d|delete)
+		rm -i $draft
+		if ! [ -f $draft ]; then
+			rm -f $draftmime
+			echo "mcom: deleted draft $draft"
+			exit 0
+		fi
+		c=
+		;;
 	*)
-		echo -n "What now? ([s]end, [c]ancel, [e]dit, [m]ime) "
+		echo -n "What now? ([s]end, [c]ancel, [d]elete, [e]dit, [m]ime) "
 		read -r c
 		;;
 	esac