PATCH: _mutt, _mailboxes

[Clint Adams <schizo@xxxxxxxxxx>]

This is my stab at completion for mutt.  I imagine that the
_mailboxes function would be useful for completing the -f arguments
of elm and pine, after some tweaking.

diff -cN --recursive Completion/User.old/_mailboxes Completion/User/_mailboxes
*** Completion/User.old/_mailboxes      Wed Dec 31 19:00:00 1969
--- Completion/User/_mailboxes  Wed Sep 15 17:21:44 1999
***************
*** 0 ****
--- 1,32 ----
+ #autoload
+ 
+ # This is needlessly mutt-biased and should be fixed.
+ 
+ local expl muttboxes mboxes dirboxes MHboxes maildirboxes muttrc="~/.muttrc" m
aildirectory="~/Mail"
+ 
+ test -f "$compconfig[muttrc_path]" && muttrc=$compconfig[muttrc_path]
+ test -f "$compconfig[maildirectory]" && maildirectory=$compconfig[maildirector
y]
+ 
+ if (( ! $+_mailbox_cache )) then
+ 
+ test ${muttrc} || test -f ${~muttrc} && muttboxes=( ${(@)$(grep mailboxes ${~m
uttrc})[2,-1]} )
+ 
+ mboxes=(${~maildirectory}/*(^/))
+ dirboxes=(${~maildirectory}/*(/))
+ 
+ for i in $dirboxes
+ do 
+ if test -d "${i}/cur"
+ then
+ maildirboxes=($maildirboxes $i)
+ else
+ MHboxes=($MHboxes $i)
+ fi
+ done
+ 
+ _mailbox_cache=(\! \< \> $muttboxes $mboxes $maildirboxes $MHboxes)
+ 
+ fi
+ 
+ _description expl 'mailbox specification'
+ compadd "$@" "$expl[@]" - "$_mailbox_cache[@]"
diff -cN --recursive Completion/User.old/_mutt Completion/User/_mutt
*** Completion/User.old/_mutt   Wed Dec 31 19:00:00 1969
--- Completion/User/_mutt       Wed Sep 15 17:21:44 1999
***************
*** 0 ****
--- 1,39 ----
+ #compdef mutt
+ 
+ local state line muttrc="~/.muttrc" ret=1
+ 
+  _arguments \
+  '::recipient:->userhost' \
+  '-a:MIME attachment:_files' \
+  '-b:BCC recipient:->userhost' \
+  '-c:CC recipient:->userhost' \
+  '-e:post-init configuration:' \
+  '-f+:mailbox:_mailboxes' \
+  '-F+:init file:_files' \
+  '-h+:help' \
+  '-H+:draft file:_files' \
+  '-i:include file:_files' \
+  '-m+:default mailbox type:(mbox MMDF MH Maildir)' \
+  '-n+:bypass system configuration:' \
+  '-p+:resume postponed message:' \
+  '-R+:open in read-only mode:' \
+  '-s+:subject:' \
+  '-v+:version:' \
+  '-x+:emulate mailx compose:' \
+  '-y+:start listing mailboxes:' \
+  '-z+:start only if new messages:' \
+  '-Z+:open first mailbox with new mail:' && ret=0
+ 
+ if [[ "$state" = userhost ]]; then
+       if compset -P '*@'; then
+         _description expl 'remote host name'
+         _hosts "$expl[@]" -q -S,
+         return
+       else
+           _description expl 'login name'
+           _users "$expl[@]" -q -S@ && ret=0
+         fi
+       fi
+ 
+ return ret
+ fi