Return to emh-help.ml CVS log

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

Annotation of 43BSD/contrib/mh/miscellany/emh/emh-help.ml, revision 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.