Return to emh-help.ml CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / miscellany / emh

Annotation of 43BSDReno/contrib/mh/miscellany/emh/emh-help.ml, revision 1.1.1.1

1.1       root        1: ; emh-help.ml :: implements the emh help command
                      2: ; Wed Oct  5 12:17:00 1983     /mtr  <mrose@uci-750a>
                      3: 
                      4: 
                      5: (if (! (is-bound &mhelp))
                      6:     (setq-default &mhelp "MH help"))
                      7: 
                      8: (defun
                      9: 
                     10:     (&mh-help
                     11:        (error-occured (delete-buffer &mhelp))
                     12:        (save-excursion 
                     13:            (pop-to-buffer &mhelp)
                     14:            (setq needs-checkpointing 0)
                     15:            (use-local-map "&mh-keymap")
                     16:            (erase-buffer)
                     17:            (insert-string 
                     18: "[Use ^U- prefix to specify additional arguments]\n\n"
                     19: "  Top level commands:                  ^X-f    list folders\n"
                     20: "    ^X-m    send mail                  ^X-r    read mail\n\n"
                     21: "  emh mode commands:\n"
                     22: "    s: show current message            n: show next message\n"
                     23: "    p: show prev message               c: compose new message\n"
                     24: "    f: forward current message         r: reply to current message\n"
                     25: "    d: delete current message          m: file current message\n"
                     26: "    i: incorporate new mail\n"
                     27: "    ?: display command summary\n"
                     28:            )
                     29:            (beginning-of-file)
                     30:            (setq mode-string "emh")
                     31:            (setq mode-line-format "  %b: ESC-^V to scroll (%m) %M %[%p%]"))
                     32: 
                     33:        (novalue)
                     34:     )
                     35: )
                     36: 
                     37: (novalue)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.