Added -clobber switch to mhstore(1) [Bug #11160].
[mmh] / docs / historical / mh-6.8.5 / miscellany / mhe / mh-edit.ml
1 ;  This autoloaded file implements the "e" command of mhe
2 (defun 
3     (&mh-edit msgn sm fn fl
4         (save-excursion
5             (pop-to-buffer (concat "+" mh-folder))
6             (&mh-save-killbuffer)
7             (delete-other-windows)
8             (error-occured
9                 (setq msgn (&mh-get-msgnum))
10                 (setq fn (&mh-get-fname))
11                 (setq fl mh-folder)
12                 (setq sm mode-line-format)
13                 (message "editing message " msgn)
14                 (setq mode-line-format "{%b}    %[^X^F writes and exits to top level%]  ")
15                 (pop-to-buffer "message")
16                 (read-file fn)
17                 (setq mode-line-format
18                       (concat "{%b}     %[%p of +" fl "/" msgn
19                               "%]       ^X^C exits to top level"))
20                 (local-bind-to-key "exit-emacs" "\\18\\ 3")
21                 (&mh-restore-killbuffer)
22                 (recursive-edit)
23                 (pop-to-buffer "message")
24                 (setq mode-line-format
25                       (concat "{%b}     %[%p of +" fl "/" msgn "%]"))
26             )
27         )
28         (pop-to-buffer (concat "+" mh-folder))
29         (setq mode-line-format sm)
30     )
31 )