# the Z Shell (zsh) for the nmh mail system.
#
# You may need to edit where it says EDIT ME.
-# These were orginally written for MH by Peter Stephenson
+# These were originally written for MH by Peter Stephenson
# The following three functions are best autoloaded.
#
#
# Extract nmh message names and numbers for completion. Use of the
# correct folder, if it is not the current one, requires that it
-# should be the previous command line argument. If the previous
-# argument is `-draftmessage', a hard wired draft folder name is used.
+# should be the previous command line argument.
#
mhfseq() {
local folder foldpath words pos nums
# First try the previous word.
if [[ $words[$pos-1] = [@+]* ]]; then
folder=$words[$pos-1]
- # Next look and see if we're looking for a draftmessage
- elif [[ $words[$pos-1] = -draftmessage ]]; then
- # EDIT ME: shortcut -- hard-wire draftfolder here
- # Should really look for a +draftfolder argument.
- folder=+drafts
fi
# Else use the current folder ($folder empty)
's[-]' -k "(sequence all noall recurse norecurse showzero noshowzero \
alpha noalpha fast nofast help)" -- flist flists
-compctl -K mhfseq -x 's[+][@],c[-1,-draftfolder] s[+][@]' \
- -K mhcomp -S / -q - 'c[-1,-draftmessage]' -K mhfseq - \
+compctl -K mhfseq -x 's[+][@],c[-1] s[+][@]' \
+ -K mhcomp -S / -q - 'c[-1]' -K mhfseq - \
'C[-1,-(editor|whatnowproc)]' -c - \
- 's[-]' -k "(draftfolder draftmessage nodraftfolder editor noedit \
- file form use nouse whatnowproc nowhatnowproc help)" - \
+ 's[-]' -k "(editor noedit \
+ form use nouse whatnowproc help)" - \
'c[-1,-form]' -K mhfile -- comp
compctl -K mhfseq -x 's[+][@]' \
- -K mhcomp -S / -q - 'c[-1,-draftmessage]' -K mhfseq -\
- 's[-]' -k "(annotate noannotate cc nocc draftfolder nodraftfolder \
- draftmessage editor noedit fcc filter form group nogroup inplace noinplace
- query noquery width whatnowproc nowhatnowproc help)" - 'c[-1,(cc|nocc)]' \
+ -K mhcomp -S / -q - 'c[-1]' -K mhfseq -\
+ 's[-]' -k "(annotate noannotate cc nocc \
+ editor noedit filter nofilter form group nogroup \
+ query noquery width whatnowproc help)" - 'c[-1,(cc|nocc)]' \
-k "(all to cc me)" - 'C[-1,-(filter|form)]' -K mhfile - \
'C[-1,-(editor|whatnowproc)]' -c -- repl
compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - \
- 's[-]' -k "(audit noaudit changecur nochangecur form format \
+ 's[-]' -k "(audit noaudit changecur nochangecur form \
file silent nosilent truncate notruncate width help)" - \
'C[-1,-(audit|form)]' -K mhfile - 'c[-1,-file]' -f + -- inc
mark
compctl -K mhfseq -x 's[+][@]' \
- -K mhcomp -S / -q - 'c[-1,-file]' -f - 'c[-1,-rmmprov]' -c - \
- 's[-]' -k "(draft link nolink preserve nopreserve src file \
- rmmproc normmproc help)" -- refile
+ -K mhcomp -S / -q - 'c[-1,-file]' -f - \
+ 's[-]' -k "(link nolink src file help)" -- refile
compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - \
- 's[-]' -k "(clear noclear form format header noheader reverse noreverse \
+ 's[-]' -k "(form \
file help width)" - 'c[-1,-file]' -f - 'c[-1,-form]' -K mhfile -- scan
compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - \
- 's[-]' -k "(draft form moreproc nomoreproc header noheader \
- showproc noshowproc length width help)" - 'C[-1,-(show|more)proc]' -c - \
- 'c[-1,-file]' -f - 'c[-1,-form]' -K mhfile - \
- 'c[-1,-length]' -s '$LINES' - 'c[-1,-width]' -s '$COLUMNS' -- show next prev
+ 's[-]' -k "(file form part type help)" - \
+ 'c[-1,-file]' -f - 'c[-1,-form]' -K mhfile - -- show next prev
compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - 's[-]' \
-k "(help)" -- rmm