From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 16 May 2009 00:22:09 +0000 (+0000)
Subject: mutt: message flag keys
X-Git-Tag: v1.3~130
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/a2b067caa11637ea1c79a5980ec8088ebd36c49b

mutt: message flag keys
---

diff --git a/mutt.inc.pl b/mutt.inc.pl
index fdb4269..8dfaa02 100644
--- a/mutt.inc.pl
+++ b/mutt.inc.pl
@@ -104,8 +104,8 @@ my %common = (
 	'V' => ["version", 'ci'], # show-version
 	'+v'=> ["(un)collapse thread", 'me'], # collapse-thread
 	'+V'=> ["(un)collapse threads", 'me'], # collapse-all
-	'w' => ["set flag", 'co arg'], # set-flag
-	'W' => ["clear flag", 'co arg'], # clear-flag
+	'w' => ["set flag", 'co arg modew'], # set-flag
+	'W' => ["clear flag", 'co arg modew'], # clear-flag
 	'x' => ["abort", 'mv'], # exit
 	'y' => ["list incoming mailboxes", 'mv'], # M <change-folder>?<toggle-mailboxes>
 }, # index
@@ -121,9 +121,9 @@ my %common = (
 	'b' => ["edit bcc", 'co'],
 	'c' => ["edit cc", 'co'],
 	'C' => ["copy file", 'mi'],
-	'D' => ["delete entry", 'co'],
-	'^d'=> ["dispo$sign{_}sition tog$sign{_}gle", 'co'],
 	'd' => ["desc$sign{_}ribe attach$sign{_}m$sign{_}ent", 'co'],
+	'D' => ["delete attach$sign{_}m$sign{_}ent", 'co'],
+	'^d'=> ["dispo$sign{_}sition tog$sign{_}gle", 'co'],
 	'e' => ["edit body", 'co linkvi'],
 	'E' => ["edit all", 'co linkvi'],
 	'^e'=> ["edit encoding", 'co'],
@@ -152,6 +152,21 @@ my %common = (
 	'y' => ["send", 'mo'],
 }, # compose
 
+w => {
+	desc => 'message flags (w)',
+
+	'D' => ["deleted", 'co'],
+	'd' => 'wD',
+	'N' => ["new", 'co'],
+	'n' => 'wN',
+	'O' => ["old", 'co'],
+	'o' => 'wO',
+	'r' => ["replied", 'co'],
+	'R' => 'wr',
+	'*' => ["tagged", 'co'],
+	'!' => ["flagged", 'co'],
+}, # flag
+
 '/~' => {
 	desc => 'search flags (/~)',