Source of mutt.eng.inc.pl

use utf8;

my %commonkey = (
	'H' => "screen top",
	'j' => "entry <down>",
	'k' => "entry <up>",
	'L' => "screen bottom",
	'^l'=> "redraw",
	'M' => "screen middle",
	'^m'=> "select",
	'n' => "search <down>",
	'q' => "exit",
	't' => "tag",
	'z' => "page <down>",
	'Z' => "page <up>",

	'*' => "last entry",
	'=' => "first entry",
	':' => "enter command",
	';' => "apply to tagged",
	'>' => "line <down>",
	'<' => "line <up>",
	']' => "half page <down>",
	'[' => "half page <up>",
	'?' => "help",
	'!' => "invoke shell",
	'/' => "search <down>",
	'+/'=> "search <up>",
);

my %commondef = (
	"\e"=> 'g9 mode',

	'H' => 'g2', # top-page
	'j' => 'g2', # next-entry, next-undeleted
	'k' => 'g2', # previous-entry, previous-undeleted
	'L' => 'g2', # bottom-page
	'^l'=> 'g1', # refresh
	'M' => 'g2', # middle-page
	'^m'=> 'g6 mode^m', # select-entry, display-message
	'n' => 'g3', # search-next
	'q' => 'g8 mode', # exit
	't' => 'g4', # tag-entry
	'z' => 'g2', # next-page
	'Z' => 'g2', # previous-page

	'*' => 'g2', # last-entry
	'=' => 'g2', # first-entry
	':' => 'g6', # enter-command
	';' => 'g6 arg', # tag-prefix
	'>' => 'g2', # next-line
	'<' => 'g2', # previous-line
	']' => 'g2', # half-down
	'[' => 'g2', # half-up
	'?' => 'g1', # help
	'!' => 'g1 arg', # shell
	'/' => 'g3 arg mode/~', # search
	'+/'=> 'g3 arg mode/~', # search
);

{
key => {
	%commonkey,

	'@' => "display sender",
	'.' => "list new mail",
	'|' => "pipe to shell",
	'$' => "save mailbox",
	'#' => "split up thread",
	'&' => "thread tagged",
	'%' => "toggle reado<>nl<>y",

	'a' => "create alias",
	'b' => "bounce",
	'^b'=> "url<>view",
	'+b'=> "search bodies",
	'c' => "open folder",
	'C' => "copy messag<>e",
	'+c'=> "open reado<>nly",
	'+C'=> "make plain copy",
	'd' => "delete",
	'D' => "delete patt<>er<>n",
	'^d'=> "delete thread",
	'+d'=> "delete subthread",
	'e' => "edit",
	'^e'=> "edit con<>tent type",
	'+e'=> "edit+send copy",
	'f' => "forward",
	'F' => "toggle important",
	'^f'=> "forget pass<>phras<>e",
	'g' => "reply to all\nGroup reply",
	'G' => "fetch POP\nGather new mail",
	'h' => "toggle headers",
	'^i'=> "unread msg <down>",
	'+^i'=> "unread msg <up>",
	'j' => "messag<>e <down>",
	'k' => "messag<>e <up>",
	'J' => "any <down>",
	'K' => "any <up>",
	'^k'=> "extract pub keys",
	'+k'=> "send public key",
	'l' => "limit pattern",
	'L' => "reply to list",
	'+l'=> "show current limit",
	'm' => "compo<>s<>e mail",
	'N' => "toggle new",
	'^n'=> "thread <down>",
	'+n'=> "subthr<>ead <down>",
	'o' => "sort",
	'O' => "sort reverse",
	'p' => "print",
	'P' => "to parent",
	'^p'=> "thread <up>",
	'+p'=> "subthr<>ead <up>",
	'+P'=> "check for pgp",
	'q' => "quit",
	'Q' => "query addr<>ess<>es",
	'r' => "reply to sender",
	'R' => "recall postpon<>e<>d",
	'^r'=> "mark thread read",
	'+r'=> "mark sub<>thread r<>ead",
	's' => "move",
	'+s'=> "save and delete",
	'T' => "tag patt<>er<>n",
	'^t'=> "untag pattern",
	'+t'=> "tag thread",
	'u' => "undo delete",
	'U' => "res<>tore pat<>t<>er<>n",
	'^u'=> "restore thread",
	'+u'=> "restore subthread",
	'v' => "attach<>ments",
	'V' => "version",
	'+v'=> "(un)collapse thread",
	'+V'=> "(un)collapse threads",
	'w' => "set flag",
	'W' => "clear flag",
	'x' => "abort",
	'y' => "list incoming mailboxes",

	(map { 'm'.$_ => $commonkey{$_} } keys %commonkey),

	'm|' => "pipe attach<>m<>ent",
	'ma' => "attach file",
	'mA' => "attach messag<>e",
	'mb' => "edit bcc",
	'mc' => "edit cc",
	'mC' => "copy file",
	'md' => "desc<>ribe attach<>m<>ent",
	'mD' => "delete attach<>m<>ent",
	'm^d'=> "dispo<>sition tog<>gle",
	'me' => "edit body",
	'mE' => "edit all",
	'm^e'=> "edit encoding",
	'mf' => "edit fcc",
	'm^f'=> "forget pass<>phrase",
	'm+f'=> "edit from",
	'mF' => "filter attach<>m<>ent",
	'mG' => "get attach<>m<>ent",
	'mh' => "display message",
	'mi' => "run ispell",
	'ml' => "print attach<>m<>ent",
	'mm' => "edit attach<>m<>ent\nMime-appropriate open",
	'mM' => "edit mix",
	'm^m'=> "view attach<>m<>ent",
	'mn' => "new attach<>m<>ent",
	'mP' => "post<>pone",
	'mr' => "edit reply<>-to",
	'mR' => "rename attach<>m<>ent",
	'ms' => "edit subject",
	'mS' => "s/mime options",
	'mt' => "edit to",
	'm^t'=> "ctype attach<>m<>ent",
	'mw' => "copy to folder",
	'mu' => "unlink toggle",
	'mU' => "encode attach<>m<>ent",
	'my' => "send",

	'wD' => "deleted",
	'wN' => "new",
	'wO' => "old",
	'wr' => "replied",
	'w*' => "tagged",
	'w!' => "flagged",

	'/~A' => "all",
	'/~b' => "msg body",
	'/~B' => "whole msg",
	'/~c' => "cc address",
	'/~C' => "to or cc address",
	'/~d' => "date sent ran<>g<>e",
	'/~D' => "deleted",
	'/~e' => "sender",
	'/~E' => "expired",
	'/~f' => "from",
	'/~F' => "flagged",
	'/~g' => "signed",
	'/~G' => "encryp<>ted",
	'/~h' => "header",
	'/~H' => "spam attr<>ib<>ute",
	'/~i' => "msg id",
	'/~k' => "pgp key",
	'/~L' => "receiv<>d by",
	'/~l' => "mailing list",
	'/~m' => "num<>ber ran<>g<>e",
	'/~n' => "score range",
	'/~N' => "new",
	'/~O' => "old",
	'/~p' => "to you",
	'/~P' => "by you",
	'/~Q' => "replies",
	'/~r' => "receive date ran<>ge",
	'/~R' => "read",
	'/~s' => "subject",
	'/~S' => "super<>seded",
	'/~t' => "to address",
	'/~T' => "tagged",
	'/~u' => "subscr<>ibed list",
	'/~U' => "unread",
	'/~v' => "collapsed thread",
	'/~V' => "verified",
	'/~x' => "refer<>ence",
	'/~X' => "attach<>ments",
	'/~y' => "x-label",
	'/~z' => "size range",
	'/~=' => "dupli<>cate",
	'/~$' => "unrefer<>enced",
	'/~(' => "in thread",

	# globally label escape as meta key
	  "\e"=> "+",
	 "m\e"=> "+",
	 "w\e"=> "+",
	"/~\e"=> "+",
},

mode => {
	'' => 'index',
	'm' => 'compose (m)',
	w => 'message flags (w)',
	'/~' => 'search flags (/~)',
},

flag => {
	g1 => [aside   => "Temporarily display something without changing state."],
	g2 => [select  => "Scroll list and/or select a different line."],
	g3 => [search  => "Go to a specific message entry."],
	g4 => [edit    => "Modify message flags or contents."],
	g6 => [command => "Any other action which does not alter an existing message."],
	g7 => [send    => "Prepare and/or send a (new) message."],
	g8 => [leave   => "Exit the opened folder."],
	g9 => [display => "Permanently alter/toggle current view."],

	arg => ["key<arg>" => "Commands with a dot need an argument afterwards."],
},

def => {
	'' => {
		%commondef,

		'@' => 'g1', # display-address
		'.' => 'g8', # buffy-list #TODO
		'|' => 'g6', # pipe-message
		'$' => 'g4', # sync-mailbox
		'#' => 'g4', # break-thread
		'&' => 'g4', # link-threads
		'%' => 'g4', # toggle-write
		' ' => '=^m',

		'a' => 'g6', # create-alias
		'b' => 'g7', # bounce-message
		'^b'=> 'g1',
		'+b'=> undef, # M <search>~b
		'c' => 'g8', # change-folder
		'C' => 'g6', # copy-message
		'+c'=> 'g8', # change-folder-readonly
		'+C'=> undef, # decode-copy
		'd' => 'g4', # delete-message
		'D' => 'g4 arg', # delete-pattern
		'^d'=> 'g4', # delete-thread
		'+d'=> 'g4', # delete-subthread
		'e' => 'g4 linkvi', # edit
		'^e'=> 'g4', # edit-type
		'+e'=> undef, # resend-message
		'f' => 'g7 modem', # forward-message
		'F' => 'g4', # flag-message
		'^f'=> 'g6', # forget-passphrase
		'g' => 'g7 modem', # group-reply
		'G' => 'g6', # fetch-mail
		'h' => 'g9', # display-toggle-weed
		'^i'=> 'g3', # next-new-then-unread
		'+^i'=> undef, # previous-new-then-unread
		'j' => 'g2', # next-undeleted
		'k' => 'g2', # previous-undeleted
		'J' => 'g3', # next-entry
		'K' => 'g3', # previous-entry
		'^k'=> 'g1', # extract-keys
		'+k'=> 'g7 modem', # mail-key
		'l' => 'g9', # limit
		'L' => 'g7 modem', # list-reply
		'+l'=> 'g1', # show-limit
		'm' => 'g7 modem', # mail
		'N' => 'g4', # toggle-new
		'^n'=> 'g3', # next-thread
		'+n'=> 'g3', # next-subthread
		'o' => 'g9 modeo', # sort-mailbox
		'O' => 'g9 modeo', # sort-reverse
		'p' => 'g1', # print-message
		'P' => 'g3', # parent-message
		'^p'=> 'g3', # previous-thread
		'+p'=> 'g3', # previous-subthread
		'+P'=> undef, # check-traditional-pgp
		'q' => 'g8', # quit
		'Q' => 'g1 arg', # query
		'r' => 'g7 modem', # reply
		'R' => 'g7 modem', # recall-message
		'^r'=> 'g4', # read-thread
		'+r'=> 'g4', # read-subthread
		's' => 'g4', # save-message
		'+s'=> 'g4', # decode-save
		'T' => 'g4 arg', # tag-pattern
		'^t'=> 'g4', # untag-pattern
		'+t'=> 'g4', # tag-thread
		'u' => 'g4', # undelete-message
		'U' => 'g4 arg', # undelete-pattern
		'^u'=> 'g4', # undelete-thread
		'+u'=> 'g4', # undelete-subthread
		'v' => 'g1', # view-attachments
		'V' => 'g1', # show-version
		'+v'=> 'g9', # collapse-thread
		'+V'=> 'g9', # collapse-all
		'w' => 'g4 arg modew', # set-flag
		'W' => 'g4 arg modew', # clear-flag
		'x' => 'g8', # exit
		'y' => 'g8', # M <change-folder>?<toggle-mailboxes>
	}, # index

	'm' => {
		%commondef,

		'|' => 'g4',
		'a' => 'g6',
		'A' => 'g6',
		'b' => 'g4',
		'c' => 'g4',
		'C' => 'g6',
		'd' => 'g4',
		'D' => 'g4',
		'^d'=> 'g4',
		'e' => 'g4 linkvi',
		'E' => 'g4 linkvi',
		'^e'=> 'g4',
		'f' => 'g4',
		'^f'=> 'g6',
		'+f'=> 'g4',
		'F' => 'g4',
		'G' => 'g1',
		'h' => 'g1',
		'i' => 'g6',
		'l' => 'g1',
		'm' => 'g4',
		'M' => 'g4',
		'^m'=> 'g1',
		'n' => 'g6',
		'P' => 'g8 mode',
		'r' => 'g4',
		'R' => 'g4',
		's' => 'g4',
		'S' => 'g4 menumS',
		't' => 'g4',
		'^t'=> 'g4',
		'w' => 'g6',
		'u' => 'g6',
		'U' => 'g4',
		'y' => 'g7',
	}, # compose

	w => {
		"\e"=> 'g9 mode',
		'D' => 'g4',
		'd' => '=wD',
		'N' => 'g4',
		'n' => '=wN',
		'O' => 'g4',
		'o' => '=wO',
		'r' => 'g4',
		'R' => '=wr',
		'*' => 'g4',
		'!' => 'g4',
	}, # flag

	'/~' => {
		"\e"=> 'g9 mode',
		A => 'g3',
		b => 'g3 arg',
		B => 'g3 arg',
		c => 'g3 arg',
		C => 'g3 arg',
		d => 'g3 arg',
		D => 'g3',
		e => 'g3 arg',
		E => 'g3',
		f => 'g3 arg',
		F => 'g3',
		g => 'g3',
		G => 'g3',
		h => 'g3 arg',
		H => 'g3 arg',
		i => 'g3 arg',
		k => 'g3',
		L => 'g3 arg',
		l => 'g3',
		m => 'g3 arg',
		n => 'g3 arg',
		N => 'g3',
		O => 'g3',
		p => 'g3',
		P => 'g3',
		Q => 'g3',
		r => 'g3 arg',
		R => 'g3',
		s => 'g3',
		S => 'g3',
		t => 'g3 arg',
		T => 'g3',
		u => 'g3',
		U => 'g3',
		v => 'g3',
		V => 'g3',
		x => 'g3 arg',
		X => 'g3 arg',
		y => 'g3 arg',
		z => 'g3 arg',
		'=' => 'g3',
		'$' => 'g3',
		'(' => 'g3 arg',
	}, # search option
},
}