|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T m
Length: 884 (0x374)
Types: TextFile
Names: »mh-edit.ml«
└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
└─⟦3658e588a⟧ »EurOpenD3/mail/mh/mh-6.7.tar.Z«
└─⟦c75e36ecb⟧
└─⟦this⟧ »mh-6.7/miscellany/mhe/mh-edit.ml«
; 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" "\▶18◀\▶03◀")
(&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)
)
)