BSD 4_4_Lite2 development

[unix-history] / usr / src / contrib / mh-6.8.3a / miscellany / mhe / mh-show.ml

;  This autoloaded file implements the "t" command of mhe
(defun 
   (&mh-show msgn sm fn fl
       (setq msgn (&mh-get-msgnum))
       (message  "Typing message " msgn) (sit-for 0)
       (if 
           (error-occured
               (pop-to-buffer (concat "+" mh-folder))
               (setq fn (&mh-get-fname))
               (setq fl mh-folder)
               (pop-to-buffer "show")
               (read-file fn)
               (setq mode-line-format
                     (concat "{%b}     %[%p of +" fl "/" msgn
                             "%]       ^X^C exits to top level"))
               (use-local-map "&mh-keymap")
               (setq mode-string "mhe")
               
               (setq mode-line-format
                     (concat "{%b}     %[%p of +" fl "/" msgn "%]"))
               (&mh-set-cur)
           )
           (progn (delete-window)
                  (error-message "message " msgn " does not exist!")
           )
       )
   )
)