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

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.