MIMEä! KIVUITTA?!?

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