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]
}