DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T m

⟦94f728d94⟧ TextFile

    Length: 703 (0x2bf)
    Types: TextFile
    Names: »mh-show.ml«

Derivation

└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦3658e588a⟧ »EurOpenD3/mail/mh/mh-6.7.tar.Z« 
        └─⟦c75e36ecb⟧ 
            └─⟦this⟧ »mh-6.7/miscellany/mhe/mh-show.ml«

TextFile

;  This autoloaded file implements the "t" command of mhe
(defun 
    (&mh-show msgn sm fn fl
	(setq msgn (&mh-get-msgnum))
	(message  "Typing message " msgn) (sit-for 0)
	(if 
	    (error-occured
		(pop-to-buffer (concat "+" mh-folder))
		(setq fn (&mh-get-fname))
		(setq fl mh-folder)
		(pop-to-buffer "show")
		(read-file fn)
		(setq mode-line-format
		      (concat "{%b}	%[%p of +" fl "/" msgn
			      "%]	^X^C exits to top level"))
		(use-local-map "&mh-keymap")
		(setq mode-string "mhe")
		
		(setq mode-line-format
		      (concat "{%b}	%[%p of +" fl "/" msgn "%]"))
		(&mh-set-cur)
	    )
	    (progn (delete-window)
		   (error-message "message " msgn " does not exist!")
	    )
	)
    )
)