minor compctl-examples changes for MH

[Peter Stephenson <pws@xxxxxx>]

1) inc: should be -file, not file; 2) show etc.: extended capabilities,
-showproc was wrong too; 3) mhpath, mhn: new.  Could complete MIME
types and subtypes in mhn:  exercise for the reader.  Supposed to be
up to date (MH 6.8.4) but haven't checked all commands in detail.

*** Misc/compctl-examples~	Wed Aug 14 18:00:42 1996
--- Misc/compctl-examples	Wed Dec  4 14:14:47 1996
***************
*** 359,365 ****
  compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - \
    's[-]' -k "(audit noaudit changecur nochangecur form format \
    file silent nosilent truncate notruncate width help)" - \
!   'C[-1,-(audit|form)]' -K mhfile - 'c[-1,file]' -f + -- inc
  compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - \
    's[-]' -k "(sequence add delete list public nopublic zero nozero help)" -- \
    mark
--- 359,365 ----
  compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - \
    's[-]' -k "(audit noaudit changecur nochangecur form format \
    file silent nosilent truncate notruncate width help)" - \
!   'C[-1,-(audit|form)]' -K mhfile - 'c[-1,-file]' -f + -- inc
  compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - \
    's[-]' -k "(sequence add delete list public nopublic zero nozero help)" -- \
    mark
***************
*** 378,385 ****
    's[-]' -k "(clear noclear form format header noheader reverse noreverse \
    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 header noheader showproc noshowproc)" - \
!   'c[-1,showproc]' -c -- show next prev
  compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - 's[-]' \
    -k "(help)" -- rmm
  compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - \
--- 378,387 ----
    's[-]' -k "(clear noclear form format header noheader reverse noreverse \
    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
  compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - 's[-]' \
    -k "(help)" -- rmm
  compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - \
***************
*** 389,394 ****
--- 391,404 ----
  compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - 's[-]' \
    -k "(alias check draft draftfolder draftmessage help nocheck \
    nodraftfolder)" -- whom
+ compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - 's[-]' \
+   -k "(file part type list headers noheaders realsize norealsize nolist \
+   show serialonly noserialonly form pause nopause noshow store auto noauto \
+   nostore cache nocache rcache wcache check nocheck ebcdicsafe noebcdicsafe \
+   rfc934mode norfc934mode verbose noverbose help)" - \
+   'c[-1,-file]' -f - 'c[-1,-form]' -K mhfile - \
+   'C[-1,-[rw]cache]' -k '(public private never ask)' -- mhn
+ compctl -K mhfseq -x 's[+][@]' -K mhcomp -S / -q - 's[-]' -k '(help)' -- mhpath
  #------------------------------------------------------------------------------
  # By Bart Schaefer
  # CVS -- there's almost no way to make this all-inclusive, but ...

-- 
Peter Stephenson <pws@xxxxxx>       Tel: +49 33762 77366
WWW:  http://www.ifh.de/~pws/       Fax: +49 33762 77413
Deutches Electronen-Synchrotron --- Institut fuer Hochenergiephysik Zeuthen
DESY-IfH, 15735 Zeuthen, Germany.