#
# $Id: multipart.icn,v 1.1 2004/02/12 17:07:56 rparlett Exp $
#

package mail

import util

#
# This class represents a multipart content
#
class Multipart : Error(preamble, parts, epilogue)
   #
   # Get the preamble
   #
   method get_preamble()
      return preamble
   end

   #
   # Set the preamble
   #
   method set_preamble(s)
      preamble := s
   end

   #
   # Get the epilogue
   #
   method get_epilogue()
      return epilogue
   end

   #
   # Set the epilogue
   #
   method set_epilogue(s)
      epilogue := s
   end

   method get_parts()
      return parts
   end

   method add_part(m)
      put(parts, m)
   end

   initially(a[])
      preamble := epilogue := ""
      parts := []
end