popfile-commit

[<sta...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv22322

Modified Files:
	HTML.pm 
Log Message:
restored spaces that had changed to tab characters; restored D.Smith's amp fixes in lines 2211-2223

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -C2 -d -r1.90 -r1.91
*** HTML.pm	25 Feb 2003 03:39:18 -0000	1.90
--- HTML.pm	25 Feb 2003 06:39:36 -0000	1.91
***************
*** 65,76 ****
      # The subkeys are
      #
!     #	cull			Used internally by load_history_cache (see there for details)
!     #   from			The address the email was from
!     #   short_from		Version of from with max 40 characters
!     # 	subject			The subject of the email
!     #   short_subject	Version of subject with max 40 characters
!     #	magnet			If a magnet was used to classify the mail contains the magnet string
!     #	bucket			The classification of the mail
!     #	reclassified	1 if the mail has already been reclassified
[...1105 lines suppressed...]
!             # TODO This may be UNSAFE, please write a better comment that explains
!             # why this might be unsafe.  What does unsafe mean in this context?
  
!             $self->history_copy_file( "$self->{configuration}->{configuration}{msgdir}$mail_file", $path, $mail_file );
!         }
!     }
  
!     # Before deleting the file make sure that the appropriate entry in the
!     # history cache is also remove
  
!     delete $self->{history_}{$mail_file};
  
!     # Now remove the files from the disk, remove both the msg file containing
!     # the mail message and its associated CLS file
  
!     unlink( "$self->{configuration}->{configuration}{msgdir}$mail_file" );
!     $mail_file =~ s/msg$/cls/;
!     unlink( "$self->{configuration}->{configuration}{msgdir}$mail_file" );
  }