Return to mh-edit.ml CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe

Annotation of 43BSD/contrib/mh/miscellany/mhe/mh-edit.ml, revision 1.1.1.1

1.1       root        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" "\\")
                     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: )

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.