Re: [Evolution] Deleting duplicate emails

[Not Zed <notzed ximian com>]

Hmm, use a hash, a linear list search is going to bog down pretty
quickly.

And fwiw, why do you bother to disable it, shouldn't it work always?

On Mon, 2003-08-25 at 04:24, Vincent Birebent wrote:
> On Thu, 2003-08-21 at 05:08, HvR wrote:
> > run md5sum on the mail message body and store the resulting string in
> > a file then compare each message against this list in the file, if the
> > md5sums of the message body are the same then the message is
> > guaranteed to be the same.
>
> Ok, here is my script (I am begining in perl so excuse if 
> it is not good code) :
>
> #!/usr/bin/perl
>
> use strict;
>
> my $line = "";
> my $temp_file = '/.../email_temp';
> my $list_file = '/.../email_list';
>
> my @mail = <STDIN>;
> open TEMP, ">$temp_file";
> print TEMP @mail;
> close TEMP;
>
> my $current_md5 = `md5sum "$temp_file" | cut -f1 -d ' '`;
>
> open FILE, "$list_file";
> my @list = <FILE>;
> close FILE;
>
> foreach $line (@list) {
>   if ($current_md5 eq $line) {
>     exit 0;
>   }
> }
>
> open FILE, ">>$list_file";
> print FILE $current_md5;
> close FILE;
> exit 1;
>
>
> That does the trick but, I would like it to be applied only "on demand"
> and not have to "disable" it each time I receive mails... Is there a way
> to do that ?
>
> _______________________________________________
> evolution maillist  -  evolution lists ximian com
> http://lists.ximian.com/mailman/listinfo/evolution