mutt.inc.pl

   1 use utf8;
   2
   3 my %common = (
   4         'H' => ["screen top", 'pm'], # top-page
   5         'j' => ["entry $sign{down}", 'pm'], # next-entry, next-undeleted
   6         'k' => ["entry $sign{up}", 'pm'], # previous-entry, previous-undeleted
   7         'L' => ["screen bottom", 'pm'], # bottom-page
   8         '^l'=> ["redraw", 'ci'], # refresh
   9         'M' => ["screen middle", 'pm'], # middle-page
  10         '^m'=> ["select", 'mi mode^m'], # select-entry, display-message
  11         'n' => ["search $sign{down}", 'po'], # search-next
  12         'q' => ["exit", 'mv mode'], # exit
  13         't' => ["tag", 'co'], # tag-entry
  14         'z' => ["page $sign{down}", 'pm'], # next-page
  15         'Z' => ["page $sign{up}", 'pm'], # previous-page
  16
  17         '*' => ["last entry", 'pm'], # last-entry
  18         '=' => ["first entry", 'pm'], # first-entry
  19         ':' => ["enter command", 'mi'], # enter-command
  20         ';' => ["apply to tagged", 'mi arg'], # tag-prefix
  21         '>' => ["line $sign{down}", 'pm'], # next-line
  22         '<' => ["line $sign{up}", 'pm'], # previous-line
  23         ']' => ["half page $sign{down}", 'pm'], # half-down
  24         '[' => ["half page $sign{up}", 'pm'], # half-up
  25         '?' => ["help", 'ci'], # help
  26         '!' => ["invoke shell", 'ci arg'], # shell
  27         '/' => ["search $sign{down}", 'po arg mode/~'], # search
  28         '+/'=> ["search $sign{up}", 'po arg mode/~'], # search
  29 );
  30
  31 '' => {
  32         desc => 'index',
  33
  34         %common,
  35
  36         '@' => ["display sender", 'ci'], # display-address
  37         '.' => ["list new mail", 'mv'], # buffy-list #TODO
  38         '|' => ["pipe to shell", 'mi'], # pipe-message
  39         '$' => ["save mailbox", 'co'], # sync-mailbox
  40         '#' => ["split up thread", 'co'], # break-thread
  41         '&' => ["thread tagged", 'co'], # link-threads
  42         '%' => ["toggle reado$sign{_}nl$sign{_}y", 'co'], # toggle-write
  43         ' ' => '^m',
  44
  45         'a' => ["create alias", 'mi'], # create-alias
  46         'b' => ["bounce", 'mo'], # bounce-message
  47         '^b'=> ["url$sign{_}view", 'ci'],
  48         '+b'=> ["search bodies"], # M <search>~b
  49         'c' => ["open folder", 'mv'], # change-folder
  50         'C' => ["copy messag$sign{_}e", 'mi'], # copy-message
  51         '+c'=> ["open reado$sign{_}nly", 'mv'], # change-folder-readonly
  52         '+C'=> ["make plain copy"], # decode-copy
  53         'd' => ["delete", 'co'], # delete-message
  54         'D' => ["delete patt$sign{_}er$sign{_}n", 'co arg'], # delete-pattern
  55         '^d'=> ["delete thread", 'co'], # delete-thread
  56         '+d'=> ["delete subthread", 'co'], # delete-subthread
  57         'e' => ["edit", 'co'], # edit
  58         '^e'=> ["edit con$sign{_}tent type", 'co'], # edit-type
  59         '+e'=> ["edit+send copy"], # resend-message
  60         'f' => ["forward", 'mo modem'], # forward-message
  61         'F' => ["toggle important", 'co'], # flag-message
  62         '^f'=> ["forget pass$sign{_}phras$sign{_}e", 'mi'], # forget-passphrase
  63         'g' => ["reply to all", 'mo modem', 'Group reply'], # group-reply
  64         'G' => ["fetch POP", 'mi', 'Gather new mail'], # fetch-mail
  65         'h' => ["toggle headers", 'me'], # display-toggle-weed
  66         '^i'=> ["unread msg $sign{down}", 'po'], # next-new-then-unread
  67         '+^i'=> ["unread msg $sign{up}"], # previous-new-then-unread
  68         'j' => ["messag$sign{_}e $sign{down}", 'pm'], # next-undeleted
  69         'k' => ["messag$sign{_}e $sign{up}", 'pm'], # previous-undeleted
  70         'J' => ["any $sign{down}", 'po'], # next-entry
  71         'K' => ["any $sign{up}", 'po'], # previous-entry
  72         '^k'=> ["extract pub keys", 'ci'], # extract-keys
  73         '+k'=> ["send public key", 'mo modem'], # mail-key
  74         'l' => ["limit pattern", 'me'], # limit
  75         'L' => ["reply to list", 'mo modem'], # list-reply
  76         '+l'=> ["show current limit", 'ci'], # show-limit
  77         'm' => ["compo$sign{_}s$sign{_}e mail", 'mo modem'], # mail
  78         'N' => ["toggle new", 'co'], # toggle-new
  79         '^n'=> ["thread $sign{down}", 'po'], # next-thread
  80         '+n'=> ["subthr$sign{_}ead $sign{down}", 'po'], # next-subthread
  81         'o' => ["sort", 'me modeo'], # sort-mailbox
  82         'O' => ["sort reverse", 'me modeo'], # sort-reverse
  83         'p' => ["print", 'ci'], # print-message
  84         'P' => ["to parent", 'po'], # parent-message
  85         '^p'=> ["thread $sign{up}", 'po'], # previous-thread
  86         '+p'=> ["subthr$sign{_}ead $sign{up}", 'po'], # previous-subthread
  87         '+P'=> ["check for pgp"], # check-traditional-pgp
  88         'q' => ["quit", 'mv'], # quit
  89         'Q' => ["query addr$sign{_}ess$sign{_}es", 'ci arg'], # query
  90         'r' => ["reply to sender", 'mo modem'], # reply
  91         'R' => ["recall postpon$sign{_}e$sign{_}d", 'mo modem'], # recall-message
  92         '^r'=> ["mark thread read", 'co'], # read-thread
  93         '+r'=> ["mark sub$sign{_}thread r$sign{_}ead", 'co'], # read-subthread
  94         's' => ["move", 'co'], # save-message
  95         '+s'=> ["save and delete", 'co'], # decode-save
  96         'T' => ["tag patt$sign{_}er$sign{_}n", 'co arg'], # tag-pattern
  97         '^t'=> ["untag pattern", 'co'], # untag-pattern
  98         '+t'=> ["tag thread", 'co'], # tag-thread
  99         'u' => ["undo delete", 'co'], # undelete-message
 100         'U' => ["res$sign{_}tore pat$sign{_}t$sign{_}er$sign{_}n", 'co arg'], # undelete-pattern
 101         '^u'=> ["restore thread", 'co'], # undelete-thread
 102         '+u'=> ["restore subthread", 'co'], # undelete-subthread
 103         'v' => ["attach$sign{_}ments", 'ci'], # view-attachments
 104         'V' => ["version", 'ci'], # show-version
 105         '+v'=> ["(un)collapse thread", 'me'], # collapse-thread
 106         '+V'=> ["(un)collapse threads", 'me'], # collapse-all
 107         'w' => ["set flag", 'co arg modew'], # set-flag
 108         'W' => ["clear flag", 'co arg modew'], # clear-flag
 109         'x' => ["abort", 'mv'], # exit
 110         'y' => ["list incoming mailboxes", 'mv'], # M <change-folder>?<toggle-mailboxes>
 111 }, # index
 112
 113 'm' => {
 114         desc => 'compose (m)',
 115
 116         %common,
 117
 118         '|' => ["pipe attach$sign{_}m$sign{_}ent", 'co'],
 119         'a' => ["attach file", 'mi'],
 120         'A' => ["attach messag$sign{_}e", 'mi'],
 121         'b' => ["edit bcc", 'co'],
 122         'c' => ["edit cc", 'co'],
 123         'C' => ["copy file", 'mi'],
 124         'd' => ["desc$sign{_}ribe attach$sign{_}m$sign{_}ent", 'co'],
 125         'D' => ["delete attach$sign{_}m$sign{_}ent", 'co'],
 126         '^d'=> ["dispo$sign{_}sition tog$sign{_}gle", 'co'],
 127         'e' => ["edit body", 'co linkvi'],
 128         'E' => ["edit all", 'co linkvi'],
 129         '^e'=> ["edit encoding", 'co'],
 130         'f' => ["edit fcc", 'co'],
 131         '^f'=> ["forget pass$sign{_}phrase", 'mi'],
 132         '+f'=> ["edit from", 'co'],
 133         'F' => ["filter attach$sign{_}m$sign{_}ent", 'co'],
 134         'G' => ["get attach$sign{_}m$sign{_}ent", 'ci'],
 135         'h' => ["display message", 'ci'],
 136         'i' => ["run ispell", 'mi'],
 137         'l' => ["print attach$sign{_}m$sign{_}ent", 'ci'],
 138         'm' => ["edit attach$sign{_}m$sign{_}ent", 'co', 'Mime-appropriate open'],
 139         'M' => ["edit mix", 'co'],
 140         '^m'=> ["view attach$sign{_}m$sign{_}ent", 'ci'],
 141         'n' => ["new attach$sign{_}m$sign{_}ent", 'mi'],
 142         'P' => ["post$sign{_}pone", 'mv mode'],
 143         'r' => ["edit reply$sign{_}-to", 'co'],
 144         'R' => ["rename attach$sign{_}m$sign{_}ent", 'co'],
 145         's' => ["edit subject", 'co'],
 146         'S' => ["s/mime options", 'co menumS'],
 147         't' => ["edit to", 'co'],
 148         '^t'=> ["ctype attach$sign{_}m$sign{_}ent", 'co'],
 149         'w' => ["copy to folder", 'mi'],
 150         'u' => ["unlink toggle", 'mi'],
 151         'U' => ["encode attach$sign{_}m$sign{_}ent", 'co'],
 152         'y' => ["send", 'mo'],
 153 }, # compose
 154
 155 w => {
 156         desc => 'message flags (w)',
 157
 158         'D' => ["deleted", 'co'],
 159         'd' => 'wD',
 160         'N' => ["new", 'co'],
 161         'n' => 'wN',
 162         'O' => ["old", 'co'],
 163         'o' => 'wO',
 164         'r' => ["replied", 'co'],
 165         'R' => 'wr',
 166         '*' => ["tagged", 'co'],
 167         '!' => ["flagged", 'co'],
 168 }, # flag
 169
 170 '/~' => {
 171         desc => 'search flags (/~)',
 172
 173         A => ["all"],
 174         b => ["msg body", 'X arg'],
 175         B => ["whole msg", 'arg'],
 176         c => ["cc address", 'arg'],
 177         C => ["to or cc address", 'arg'],
 178         d => ["date sent ran$sign{_}g$sign{_}e", 'arg'],
 179         D => ["deleted"],
 180         e => ["sender", 'arg'],
 181         E => ["expired"],
 182         f => ["from", 'arg'],
 183         F => ["flagged"],
 184         g => ["signed"],
 185         G => ["encryp$sign{_}ted"],
 186         h => ["header", 'arg'],
 187         H => ["spam attr$sign{_}ib$sign{_}ute", 'arg'],
 188         i => ["msg id", 'arg'],
 189         k => ["pgp key"],
 190         L => ["receiv$sign{_}d by", 'arg'],
 191         l => ["mailing list"],
 192         m => ["num$sign{_}ber ran$sign{_}g$sign{_}e", 'arg'],
 193         n => ["score range", 'arg'],
 194         N => ["new"],
 195         O => ["old"],
 196         p => ["to you"],
 197         P => ["by you"],
 198         Q => ["replies"],
 199         r => ["receive date ran$sign{_}ge", 'arg'],
 200         R => ["read"],
 201         s => ["subject"],
 202         S => ["super$sign{_}seded"],
 203         t => ["to address", 'arg'],
 204         T => ["tagged"],
 205         u => ["subscr$sign{_}ibed list"],
 206         U => ["unread"],
 207         v => ["collapsed thread"],
 208         V => ["verified"],
 209         x => ["refer$sign{_}ence", 'arg'],
 210         X => ["attach$sign{_}ments", 'arg'],
 211         y => ["x-label", 'arg'],
 212         z => ["size range", 'arg'],
 213         '=' => ["dupli$sign{_}cate"],
 214         '$' => ["unrefer$sign{_}enced"],
 215         '(' => ["in thread", 'arg'],
 216 }, # search option
 217