sunet.tcl

#                   #
# convert/sunet.tcl #
#####################


#############################################################################
#                                                                           #
# This file contains functions for use by messages sent within SUNET in     #
# in Sweden. I.e. uuencoded files and iso-646-se charset text.              #
#                                                                 14.11.-94 #
#############################################################################



set PART_NUMBER 0
topmessnode
while {1 == 1} {
	set MTYPE [gettype]
	rmspecheader
	case $MTYPE in {
	
	TEXT	{
			do_decode
			tocharset  "ISO-8859-1"
			to7bit
		}

	BINHEX	{
			set JUNK "BINHEX"			
		}

	MULTIPART {
			set JUNK "MULTIPART"
		}

	default {
			if {![is_root]} {
			  do_decode
			  encode "UUENCODE"
			}
		}
	}
	set A [nextmessnode]
	if {$A < 1} {
		break
	}
	set PART_NUMBER [expr $PART_NUMBER+1]
}