*** Library/Implementation/HTParse.c	Sun Sep 25 14:53:34 1994
--- Library/Implementation/HTParse.c.patch2	Thu Mar  9 11:22:03 1995
***************
*** 534,539 ****
--- 534,540 ----
      char *port;
      char *strptr;
      char *path;
+     char *access = host-3;
  
      if ((path = strchr(host, '/')) == NULL)			/* Find path */
  	path = host + strlen(host);
***************
*** 575,586 ****
  
      /* Chop off port if `:80' (http), `:70' (gopher), or `:21' (ftp) */
      if (port) {
! 	if ((*(port+1)=='8' && *(port+2)=='0' &&
! 	     (*(port+3)=='/' || !*(port+3))) ||
! 	    (*(port+1)=='2' && *(port+2)=='1' &&
! 	     (*(port+3)=='/' || !*(port+3))) ||
! 	    (*(port+1)=='7' && *(port+2)=='0' &&
! 	     (*(port+3)=='/' || !*(port+3)))) {
  	    if (!new) {
  		char *orig=port, *dest=port+3;
  		while((*orig++ = *dest++));
--- 576,587 ----
  
      /* Chop off port if `:80' (http), `:70' (gopher), or `:21' (ftp) */
      if (port) {
! 	if ((!strncmp(access, "http", 4) &&
! 	     (*(port+1)=='8'&&*(port+2)=='0'&&(*(port+3)=='/'||!*(port+3)))) ||
! 	    (!strncmp(access, "gopher", 6) &&
! 	     (*(port+1)=='7'&&*(port+2)=='0'&&(*(port+3)=='/'||!*(port+3)))) ||
! 	    (!strncmp(access, "ftp", 3) &&
! 	     (*(port+1)=='2'&&*(port+2)=='1'&&(*(port+3)=='/'||!*(port+3))))) {
  	    if (!new) {
  		char *orig=port, *dest=port+3;
  		while((*orig++ = *dest++));