Added -clobber switch to mhstore(1) [Bug #11160].
[mmh] / 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 )