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     ! 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.