mutt.inc.pl

   1 use utf8;
   2
   3 my @generic = qw(^l ! * / : ; < = > ? H L M Z [ ] j k n q t z);
   4
   5 '' => {
   6         desc => 'index',
   7
   8         ';' => ["apply to tagged", 'arg'], # tag-prefix
   9         '@' => ["display sender", 'ci'], # display-address
  10         ':' => ["enter command"], # enter-command
  11         '=' => ["first entry"], # first-entry
  12         ']' => ["half page down"], # half-down
  13         '[' => ["half page up"], # half-up
  14         '?' => ["help"], # help
  15         '!' => ["invoke shell"], # shell
  16         '*' => ["last message"], # last-entry
  17         '>' => ["line $sign{down}"], # next-line
  18         '<' => ["line $sign{up}"], # previous-line
  19         '.' => ["list new mail"], # buffy-list #TODO
  20         '|' => ["pipe to shell"], # pipe-message
  21         '$' => ["save mailbox"], # sync-mailbox
  22         '/' => ["search"], # search
  23         '#' => ["split up thread"], # break-thread
  24         '&' => ["thread tagged"], # link-threads
  25         '%' => ["toggle readonly"], # toggle-write
  26         ' ' => '^m',
  27
  28         'a' => ["create alias"], # create-alias
  29         'b' => ["bounce"], # bounce-message
  30         '^b'=> ["url$sign{_}view"],
  31         '\b'=> ["search bodies"], # M <search>~b
  32         'c' => ["open folder"], # change-folder
  33         'C' => ["copy message"], # copy-message
  34         '\c'=> ["open readonly"], # change-folder-readonly
  35         '\C'=> ["make plain copy"], # decode-copy
  36         'd' => ["delete"], # delete-message
  37         'D' => ["delete pattern"], # delete-pattern
  38         '^d'=> ["delete thread"], # delete-thread
  39         '\d'=> ["delete subthread"], # delete-subthread
  40         'e' => ["edit"], # edit
  41         '^e'=> ["edit con$sign{_}tent type"], # edit-type
  42         '\e'=> ["edit+send copy"], # resend-message
  43         'f' => ["forward"], # forward-message
  44         'F' => ["toggle important"], # flag-message
  45         '^f'=> ["forget pass$sign{_}phras$sign{_}e"], # forget-passphrase
  46         'g' => ["reply to all", '', 'Group reply'], # group-reply
  47         'G' => ["fetch POP", '', 'Gather new mail'], # fetch-mail
  48         'h' => ["toggle headers"], # display-toggle-weed
  49         'H' => ["screen top"], # top-page
  50         '^i'=> ["next unread msg"], # next-new-then-unread
  51 #       '\tab'=> ["previous unread msg"], # previous-new-then-unread
  52         'j' => ["next entry"], # next-entry, next-undeleted
  53         'J' => ["next message"], # next-entry
  54         'k' => ["previous entry"], # previous-entry, previous-undeleted
  55         'K' => ["previous message"], # previous-entry
  56         '^k'=> ["extract pub keys"], # extract-keys
  57         '\k'=> ["send public key"], # mail-key
  58         'l' => ["limit pattern"], # limit
  59         'L' => ["reply to list"], # list-reply
  60         '^l'=> ["redraw"], # refresh
  61         '\l'=> ["show current limit"], # show-limit
  62         'm' => ["compose mail"], # mail
  63         'M' => ["screen middle"], # middle-page
  64         '^m'=> ["select"], # select-entry, display-message
  65         'n' => ["search next"], # search-next
  66         'N' => ["toggle new"], # toggle-new
  67         '^n'=> ["next thread"], # next-thread
  68         '\n'=> ["next subthread"], # next-subthread
  69         'o' => ["sort"], # sort-mailbox
  70         'O' => ["sort reverse"], # sort-reverse
  71         'p' => ["print"], # print-message
  72         'P' => ["to parent"], # parent-message
  73         '^p'=> ["previous thread"], # previous-thread
  74         '\p'=> ["previous subthread"], # previous-subthread
  75         '\P'=> ["check for pgp"], # check-traditional-pgp
  76         'q' => ["exit or quit"], # exit, quit
  77         'Q' => ["query for addresses"], # query #TODO
  78         'r' => ["reply to sender"], # reply
  79         'R' => ["recall postpon$sign{_}e$sign{_}d"], # recall-message
  80         '^r'=> ["mark thread read"], # read-thread
  81         '\r'=> ["mark sub$sign{_}thread r$sign{_}ead"], # read-subthread
  82         's' => ["move"], # save-message
  83         '\s'=> ["save and delete"], # decode-save
  84         't' => ["tag"], # tag-entry
  85         'T' => ["tag pattern"], # tag-pattern
  86         '^t'=> ["untag pattern"], # untag-pattern
  87         '\t'=> ["tag thread"], # tag-thread
  88         'u' => ["undo delete"], # undelete-message
  89         'U' => ["undelete pattern"], # undelete-pattern
  90         '^u'=> ["undelete thread"], # undelete-pattern
  91         '\u'=> ["undelete subthread"], # undelete-subthread
  92         'v' => ["attach$sign{_}ments"], # view-attachments
  93         'V' => ["version"], # show-version
  94         '\v'=> ["(un)collapse thread"], # collapse-thread
  95         '\V'=> ["(un)collapse threads"], # collapse-all
  96         'w' => ["set flag", 'arg'], # set-flag
  97         'W' => ["clear flag", 'arg'], # clear-flag
  98         'x' => ["exit menu"], # exit
  99         'y' => ["list incoming mailboxes"], # M <change-folder>?<toggle-mailboxes>
 100         'z' => ["page $sign{down}"], # next-page
 101         'Z' => ["page $sign{up}"], # previous-page
 102 }, # index
 103
 104 ' ' => {
 105         'L' => ["screen bottom"], # bottom-page
 106 }, # general
 107