Return to mh-edit.ml CVS log

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

Initial revision

;  This autoloaded file implements the "e" command of mhe
(defun 
    (&mh-edit msgn sm fn fl
	(save-excursion
	    (pop-to-buffer (concat "+" mh-folder))
	    (&mh-save-killbuffer)
	    (delete-other-windows)
	    (error-occured
		(setq msgn (&mh-get-msgnum))
		(setq fn (&mh-get-fname))
		(setq fl mh-folder)
		(setq sm mode-line-format)
		(message "editing message " msgn)
		(setq mode-line-format "{%b}	%[^X^F writes and exits to top level%]  ")
		(pop-to-buffer "message")
		(read-file fn)
		(setq mode-line-format
		      (concat "{%b}	%[%p of +" fl "/" msgn
			      "%]	^X^C exits to top level"))
		(local-bind-to-key "exit-emacs" "\\")
		(&mh-restore-killbuffer)
		(recursive-edit)
		(pop-to-buffer "message")
		(setq mode-line-format
		      (concat "{%b}	%[%p of +" fl "/" msgn "%]"))
	    )
	)
	(pop-to-buffer (concat "+" mh-folder))
	(setq mode-line-format sm)
    )
)

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