diff -cr OP/pine4.58/imap/src/c-client/mail.h NP/pine4.58/imap/src/c-client/mail.h
*** OP/pine4.58/imap/src/c-client/mail.h	Tue Aug 19 22:46:41 2003
--- NP/pine4.58/imap/src/c-client/mail.h	Fri Sep 19 10:02:18 2003
***************
*** 678,683 ****
--- 678,684 ----
    } size;
    char *md5;			/* MD5 checksum */
    void *sparep;			/* spare pointer reserved for main program */
+   unsigned short topal_hack;    /* set to 1 if topal has wrecked the sending */
  };
  
  
diff -cr OP/pine4.58/pine/pine.h NP/pine4.58/pine/pine.h
*** OP/pine4.58/pine/pine.h	Tue Sep  9 22:52:38 2003
--- NP/pine4.58/pine/pine.h	Fri Sep 19 10:02:18 2003
***************
*** 63,69 ****
  #ifndef _PINE_INCLUDED
  #define _PINE_INCLUDED
  
! #define PINE_VERSION		"4.58"
  #define	PHONE_HOME_VERSION	"-count"
  #define	PHONE_HOME_HOST		"docserver.cac.washington.edu"
  
--- 63,69 ----
  #ifndef _PINE_INCLUDED
  #define _PINE_INCLUDED
  
! #define PINE_VERSION		"4.58T"
  #define	PHONE_HOME_VERSION	"-count"
  #define	PHONE_HOME_HOST		"docserver.cac.washington.edu"
  
diff -cr OP/pine4.58/pine/send.c NP/pine4.58/pine/send.c
*** OP/pine4.58/pine/send.c	Fri Aug 29 23:03:08 2003
--- NP/pine4.58/pine/send.c	Fri Sep 19 10:02:18 2003
***************
*** 5094,5099 ****
--- 5094,5109 ----
      pbf = save_previous_pbuf;
      g_rolenick = NULL;
  
+     if ((*body)->type == TYPEMULTIPART 
+ 	&& (*body)->topal_hack == 1)
+       /* This was a single part message which Topal mangled. */
+       (*body)->type = TYPETEXT;
+     if ((*body)->type == TYPEMULTIPART
+ 	&& (*body)->topal_hack != 1)
+       /* Topal mangled a multipart message.  So the first nested part
+ 	 is really TYPETEXT. */
+       (*body)->nested.part->body.type = TYPETEXT;
+     
      dprint(4, (debugfile, "=== send returning ===\n"));
  }
  
***************
*** 6440,6452 ****
  				  ;
  
  				rfc822_parse_content_header(nb,ucase(buf+8),s);
! 				if(nb->type == TYPETEXT
! 				   && nb->subtype
  				   && (!b->subtype 
  				       || strucmp(b->subtype, nb->subtype))){
  				    if(b->subtype)
  				      fs_give((void **) &b->subtype);
  
  				    b->subtype  = nb->subtype;
  				    nb->subtype = NULL;
  				      
--- 6450,6462 ----
  				  ;
  
  				rfc822_parse_content_header(nb,ucase(buf+8),s);
! 				if(nb->subtype
  				   && (!b->subtype 
  				       || strucmp(b->subtype, nb->subtype))){
  				    if(b->subtype)
  				      fs_give((void **) &b->subtype);
  
+ 				    b->type     = nb->type;
  				    b->subtype  = nb->subtype;
  				    nb->subtype = NULL;
  				      
***************
*** 6454,6459 ****
--- 6464,6471 ----
  				    b->parameter = nb->parameter;
  				    nb->parameter = NULL;
  				    mail_free_body_parameter(&nb->parameter);
+ 				    if (b->type != TYPETEXT)
+ 				      b->topal_hack = 1;
  				}
  
  				mail_free_body(&nb);
***************
*** 9032,9048 ****
    dprint(4, (debugfile, "-- pine_encode_body: %d\n", body ? body->type : 0));
    if (body) switch (body->type) {
    case TYPEMULTIPART:		/* multi-part */
!     if (!body->parameter) {	/* cookie not set up yet? */
!       char tmp[MAILTMPLEN];	/* make cookie not in BASE64 or QUOTEPRINT*/
!       sprintf (tmp,"%ld-%ld-%ld=:%ld",gethostid (),random (),time (0),
! 	       getpid ());
!       body->parameter = mail_newbody_parameter ();
!       body->parameter->attribute = cpystr ("BOUNDARY");
!       body->parameter->value = cpystr (tmp);
!     }
!     part = body->nested.part;	/* encode body parts */
!     do pine_encode_body (&part->body);
!     while (part = part->next);	/* until done */
      break;
  /* case MESSAGE:	*/	/* here for documentation */
      /* Encapsulated messages are always treated as text objects at this point.
--- 9044,9062 ----
    dprint(4, (debugfile, "-- pine_encode_body: %d\n", body ? body->type : 0));
    if (body) switch (body->type) {
    case TYPEMULTIPART:		/* multi-part */
!     if (body->topal_hack != 1){
!       if (!body->parameter) {	/* cookie not set up yet? */
! 	char tmp[MAILTMPLEN];	/* make cookie not in BASE64 or QUOTEPRINT*/
! 	sprintf (tmp,"%ld-%ld-%ld=:%ld",gethostid (),random (),time (0),
! 		 getpid ());
! 	body->parameter = mail_newbody_parameter ();
! 	body->parameter->attribute = cpystr ("BOUNDARY");
! 	body->parameter->value = cpystr (tmp);
!       }
!       part = body->nested.part;	/* encode body parts */
!       do pine_encode_body (&part->body);
!       while (part = part->next);	/* until done */
!     }
      break;
  /* case MESSAGE:	*/	/* here for documentation */
      /* Encapsulated messages are always treated as text objects at this point.
***************
*** 9212,9218 ****
  
      dprint(4, (debugfile, "-- pine_rfc822_output_body: %d\n",
  	       body ? body->type : 0));
!     if(body->type == TYPEMULTIPART) {   /* multipart gets special handling */
  	part = body->nested.part;	/* first body part */
  					/* find cookie */
  	for (param = body->parameter; param && !cookie; param = param->next)
--- 9226,9233 ----
  
      dprint(4, (debugfile, "-- pine_rfc822_output_body: %d\n",
  	       body ? body->type : 0));
!     if(body->type == TYPEMULTIPART
!        && body->topal_hack != 1) {   /* multipart gets special handling */
  	part = body->nested.part;	/* first body part */
  					/* find cookie */
  	for (param = body->parameter; param && !cookie; param = param->next)
***************
*** 9272,9278 ****
  	 * Convert text pieces to canonical form
  	 * BEFORE applying any encoding (rfc1341: appendix G)...
  	 */
! 	if(body->type == TYPETEXT){
  	    gf_link_filter(gf_local_nvtnl, NULL);
  	}
  
--- 9287,9294 ----
  	 * Convert text pieces to canonical form
  	 * BEFORE applying any encoding (rfc1341: appendix G)...
  	 */
! 	if(body->type == TYPETEXT
! 	   | (body->type == TYPEMULTIPART && body->topal_hack == 1)){
  	    gf_link_filter(gf_local_nvtnl, NULL);
  	}
  
***************
*** 9372,9386 ****
  			      ? body->subtype
  			      : rfc822_default_subtype (body->type))))
  	  return(pwbh_finish(0, so));
! 	    
  	if (param){
! 	    do
! 	      if(!(so_puts(so, "; ")
! 		   && rfc2231_output(so, param->attribute, param->value,
! 				     (char *) tspecials,
! 				     ps_global->VAR_CHAR_SET)))
! 		return(pwbh_finish(0, so));
! 	    while (param = param->next);
  	}
  	else if(!so_puts(so, "; CHARSET=US-ASCII"))
  	  return(pwbh_finish(0, so));
--- 9388,9414 ----
  			      ? body->subtype
  			      : rfc822_default_subtype (body->type))))
  	  return(pwbh_finish(0, so));
! 	
  	if (param){
! 	  do
! 	    if(body->topal_hack == 1 
! 	       && !struncmp(param->attribute, "protocol", 9))
! 	      {
! 		if(!(so_puts(so, "; \015\012\011")
! 		     && rfc2231_output(so, param->attribute, param->value,
! 				       (char *) tspecials,
! 				       ps_global->VAR_CHAR_SET)))
! 		  return(pwbh_finish(0, so));
! 	      }
! 	    else
! 	      {
! 		if(!(so_puts(so, "; ")
! 		     && rfc2231_output(so, param->attribute, param->value,
! 				       (char *) tspecials,
! 				       ps_global->VAR_CHAR_SET)))
! 		  return(pwbh_finish(0, so));
! 	      }
! 	  while (param = param->next);
  	}
  	else if(!so_puts(so, "; CHARSET=US-ASCII"))
  	  return(pwbh_finish(0, so));
***************
*** 9611,9617 ****
      long  l = 0L;
      PART *part;
  
!     if(body->type == TYPEMULTIPART) {   /* multipart gets special handling */
  	part = body->nested.part;	/* first body part */
  	do				/* for each part */
  	  l += send_body_size(&part->body);
--- 9639,9646 ----
      long  l = 0L;
      PART *part;
  
!     if(body->type == TYPEMULTIPART
!        && body->topal_hack != 1) {   /* multipart gets special handling */
  	part = body->nested.part;	/* first body part */
  	do				/* for each part */
  	  l += send_body_size(&part->body);