3c/489e66737ebc35278a96cc39a5c30df03872ec

   1 Return-Path: <tomi.ollila@iki.fi>\r
   2 X-Original-To: notmuch@notmuchmail.org\r
   3 Delivered-To: notmuch@notmuchmail.org\r
   4 Received: from localhost (localhost [127.0.0.1])\r
   5         by olra.theworths.org (Postfix) with ESMTP id 6195C40D1CF\r
   6         for <notmuch@notmuchmail.org>; Sat,  7 Jun 2014 06:38:01 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]\r
  12         autolearn=disabled\r
  13 Received: from olra.theworths.org ([127.0.0.1])\r
  14         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  15         with ESMTP id YYNB-c-X9UwR for <notmuch@notmuchmail.org>;\r
  16         Sat,  7 Jun 2014 06:37:50 -0700 (PDT)\r
  17 Received: from guru.guru-group.fi (guru.guru-group.fi [46.183.73.34])\r
  18         by olra.theworths.org (Postfix) with ESMTP id 9A9D040A924\r
  19         for <notmuch@notmuchmail.org>; Sat,  7 Jun 2014 06:37:50 -0700 (PDT)\r
  20 Received: from guru.guru-group.fi (localhost [IPv6:::1])\r
  21         by guru.guru-group.fi (Postfix) with ESMTP id 4F6681000B3;\r
  22         Sat,  7 Jun 2014 16:37:41 +0300 (EEST)\r
  23 From: Tomi Ollila <tomi.ollila@iki.fi>\r
  24 To: Vladimir Marek <Vladimir.Marek@oracle.com>\r
  25 Subject: Re: Deduplication ?\r
  26 In-Reply-To: <20140606104018.GJ2154@virt.cz.oracle.com>\r
  27 References: <20140602123212.GA12639@virt.cz.oracle.com>\r
  28         <87d2ers9mi.fsf@qmul.ac.uk> <m2ppirs8ea.fsf@guru.guru-group.fi>\r
  29         <87ppirqtfa.fsf@qmul.ac.uk> <87y4xfz1fi.fsf@nikula.org>\r
  30         <cunegz71aw9.fsf@gargravarr.hh.sledj.net>\r
  31         <20140606104018.GJ2154@virt.cz.oracle.com>\r
  32 User-Agent: Notmuch/0.18+28~gcecaba1 (http://notmuchmail.org) Emacs/24.3.1\r
  33         (x86_64-unknown-linux-gnu)\r
  34 X-Face: HhBM'cA~<r"^Xv\KRN0P{vn'Y"Kd;zg_y3S[4)KSN~s?O\"QPoL\r
  35         $[Xv_BD:i/F$WiEWax}R(MPS`^UaptOGD`*/=@\1lKoVa9tnrg0TW?"r7aRtgk[F\r
  36         !)g;OY^,BjTbr)Np:%c_o'jj,Z\r
  37 Date: Sat, 07 Jun 2014 16:37:41 +0300\r
  38 Message-ID: <m2fvjgn8m2.fsf@guru.guru-group.fi>\r
  39 MIME-Version: 1.0\r
  40 Content-Type: text/plain\r
  41 Cc: notmuch@notmuchmail.org\r
  42 X-BeenThere: notmuch@notmuchmail.org\r
  43 X-Mailman-Version: 2.1.13\r
  44 Precedence: list\r
  45 List-Id: "Use and development of the notmuch mail system."\r
  46         <notmuch.notmuchmail.org>\r
  47 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  48         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  49 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  50 List-Post: <mailto:notmuch@notmuchmail.org>\r
  51 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  52 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  53         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  54 X-List-Received-Date: Sat, 07 Jun 2014 13:38:01 -0000\r
  55 \r
  56 On Fri, Jun 06 2014, Vladimir Marek <Vladimir.Marek@oracle.com> wrote:\r
  57 \r
  58 > Hi,\r
  59 >\r
  60 \r
  61  // stuff deleted //\r
  62 \r
  63 >\r
  64 > I'm attaching my perl script if anyone is interested. It's in no way\r
  65 > complete solution. It is supposed to be used as\r
  66 >\r
  67 > notmuch search --output=files --duplicate=2 '*' > dups\r
  68 > ./dedup # It opens the file 'dups'\r
  69 >\r
  70 > The attached version does not remove anyting (the 'unlink' command is\r
  71 > commented out).\r
  72 >\r
  73 >\r
  74 > Interestingly this does not work (it seems to return all messages):\r
  75 > notmuch search --output=messages --duplicate=2 '*'\r
  76 >\r
  77 > Also I have found that if I run 'notmuch search' and 'notmuch new' at\r
  78 > the same time, the notmuch search crashes sometimes. That's why I don't\r
  79 > use\r
  80 >\r
  81 > notmuch search ... | ./dedup\r
  82 >\r
  83 > Use with care :)\r
  84 \r
  85 To me, any perl code that lacks use strict; use warning; looks like a BIG\r
  86 footgun ;/\r
  87 \r
  88 >\r
  89 > Thank you for your help\r
  90 > -- \r
  91 >       Vlad\r
  92 \r
  93 \r
  94 Tomi\r
  95 \r
  96 > #!/usr/bin/perl\r
  97 >\r
  98 > use Data::Dumper;\r
  99 > use List::Util;\r
 100 >\r
 101 >\r
 102 > @TO_IGNORE= (\r
 103 >\r