Monday, November 08, 2010 at 12:04 AM.


local (adrroot = @[system.temp.mainresponder.discussrootfile], ct = sizeof (adrroot^), i, adrgroup);
for i = 1 to ct {
	adrgroup = @adrroot^ [i];
	local (adrmessages = @adrgroup^.messages, ctmessages = sizeof (adrmessages^), j);
	for j = 1 to ctmessages {
		msg ("Archiving discussion group \"" + nameof (adrgroup^) + "\", msg#" + j + ".");
		mainresponder.discuss.archivemessage (@adrmessages^ [j])}};
msg ("")

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.