Return to mh-show.ml CVS log

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

Annotation of 43BSD/contrib/mh/miscellany/mhe/mh-show.ml, revision 1.1

1.1     ! root        1: ;  This autoloaded file implements the "t" command of mhe
        !             2: (defun 
        !             3:     (&mh-show msgn sm fn fl
        !             4:        (setq msgn (&mh-get-msgnum))
        !             5:        (message  "Typing message " msgn) (sit-for 0)
        !             6:        (if 
        !             7:            (error-occured
        !             8:                (pop-to-buffer (concat "+" mh-folder))
        !             9:                (setq fn (&mh-get-fname))
        !            10:                (setq fl mh-folder)
        !            11:                (pop-to-buffer "show")
        !            12:                (read-file fn)
        !            13:                (setq mode-line-format
        !            14:                      (concat "{%b}     %[%p of +" fl "/" msgn
        !            15:                              "%]       ^X^C exits to top level"))
        !            16:                (use-local-map "&mh-keymap")
        !            17:                (setq mode-string "mhe")
        !            18:                
        !            19:                (setq mode-line-format
        !            20:                      (concat "{%b}     %[%p of +" fl "/" msgn "%]"))
        !            21:                (&mh-set-cur)
        !            22:            )
        !            23:            (progn (delete-window)
        !            24:                   (error-message "message " msgn " does not exist!")
        !            25:            )
        !            26:        )
        !            27:     )
        !            28: )

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