diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/miscellany/mhe/mh-show.ml

   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 )