[PATCH] replace gnu xargs usage in notmuch-mutt with perl

diff --git a/77/eb6db6ca1a676fa033d5e697c9674310b511ec b/77/eb6db6ca1a676fa033d5e697c9674310b511ec
new file mode 100644 (file)
index 0000000..8d5b0b9
--- /dev/null
+++ b/77/eb6db6ca1a676fa033d5e697c9674310b511ec
@@ -0,0 +1,107 @@
+Return-Path: <taylor@codecafe.com>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+       by olra.theworths.org (Postfix) with ESMTP id 001F340BC76\r
+       for <notmuch@notmuchmail.org>; Mon,  9 Apr 2012 14:11:57 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: -0.7\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=-0.7 tagged_above=-999 required=5\r
+       tests=[RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\r
+Received: from olra.theworths.org ([127.0.0.1])\r
+       by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
+       with ESMTP id pbu-clYImB-y for <notmuch@notmuchmail.org>;\r
+       Mon,  9 Apr 2012 14:11:57 -0700 (PDT)\r
+Received: from mail-ob0-f181.google.com (mail-ob0-f181.google.com\r
+       [209.85.214.181]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
+       (No client certificate requested)\r
+       by olra.theworths.org (Postfix) with ESMTPS id 85B9E4040EA\r
+       for <notmuch@notmuchmail.org>; Mon,  9 Apr 2012 14:11:57 -0700 (PDT)\r
+Received: by obqv19 with SMTP id v19so7269155obq.26\r
+       for <notmuch@notmuchmail.org>; Mon, 09 Apr 2012 14:11:57 -0700 (PDT)\r
+X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;\r
+       d=google.com; s=20120113;\r
+       h=date:from:to:subject:message-id:mime-version:content-type\r
+       :content-disposition:user-agent:x-gm-message-state;\r
+       bh=bC42mCOz39CXJKOpMa7Eg9/01psPtpVHwjd+GDG1OTw=;\r
+       b=c7r00iWr/9UGlUq+4kTZh2149sui91Og0XBq9m81SbjeP4Af7BQ9h4vSpUU1PhBIe9\r
+       ouRL7GJLf45euA24MjLd6PfZITFekHm+tEDq3x7WBRPVoLxtFM0WaQbSA6OZoeaq8Skc\r
+       wK9g1anCjM1Uyly7AKkphxKXV+Q1bz3zpZVgZ7c3Qb+khSv6H7SMwsg9gpyWDt/MH1FD\r
+       vtWEa00vHif8IjZDwhubRD0Bj6r06PMxHjS2Xz2q68mccQNO2OCdPP7JA7JFUecvBF17\r
+       YgZ1Vp5hvBR2LOgfSKbEoBfbsaueWzOidhCIUVBuFeVNkEfGoY3oGF0etSbj1sq99Os0\r
+       BnEw==\r
+Received: by 10.60.3.34 with SMTP id 2mr12436682oez.27.1334005916929;\r
+       Mon, 09 Apr 2012 14:11:56 -0700 (PDT)\r
+Received: from localhost (cpe-173-174-57-204.austin.res.rr.com.\r
+       [173.174.57.204])\r
+       by mx.google.com with ESMTPS id h2sm4913995obn.20.2012.04.09.14.11.55\r
+       (version=TLSv1/SSLv3 cipher=OTHER);\r
+       Mon, 09 Apr 2012 14:11:56 -0700 (PDT)\r
+Date: Mon, 9 Apr 2012 16:11:53 -0500\r
+From: Taylor Carpenter <taylor@codecafe.com>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH] replace gnu xargs usage in notmuch-mutt with perl\r
+Message-ID: <20120409211153.GA6497@codecafe.com>\r
+MIME-Version: 1.0\r
+Content-Type: text/plain; charset=us-ascii\r
+Content-Disposition: inline\r
+User-Agent: Mutt/1.5.21 (2010-09-15)\r
+X-Gm-Message-State:\r
+ ALoCoQkK+b7H414PboOiSbblJPc9UCW6Yit6RvJ/XAWIIV2cEiQs14fJiYsVOAw3PkUihyikFTHB\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.13\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+       <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Mon, 09 Apr 2012 21:11:58 -0000\r
+\r
+---\r
+ contrib/notmuch-mutt/notmuch-mutt |   12 ++++++++----\r
+ 1 files changed, 8 insertions(+), 4 deletions(-)\r
+\r
+diff --git a/contrib/notmuch-mutt/notmuch-mutt b/contrib/notmuch-mutt/notmuch-mutt\r
+index 71206c3..dbe7f2d 100755\r
+--- a/contrib/notmuch-mutt/notmuch-mutt\r
++++ b/contrib/notmuch-mutt/notmuch-mutt\r
+@@ -1,4 +1,4 @@\r
+-#!/usr/bin/perl -w\r
++#!/usr/bin/env perl -w\r
+ #\r
+ # notmuch-mutt - notmuch (of a) helper for Mutt\r
+ #\r
+@@ -12,6 +12,7 @@ use strict;\r
+ use warnings;\r
+ \r
+ use File::Path;\r
++use File::Basename;\r
+ use Getopt::Long qw(:config no_getopt_compat);\r
+ use Mail::Internet;\r
+ use Mail::Box::Maildir;\r
+@@ -41,9 +42,12 @@ sub search($$) {\r
+     $query = shell_quote($query);\r
+ \r
+     empty_maildir($maildir);\r
+-    system("notmuch search --output=files $query"\r
+-         . " | sed -e 's: :\\\\ :g'"\r
+-         . " | xargs --no-run-if-empty ln -s -t $maildir/cur/");\r
++    my @filelist = `notmuch search --output=files $query`;\r
++    foreach(@filelist) {\r
++        chomp;\r
++        my $target = sprintf("$maildir/cur/%s", basename($_));\r
++        symlink($_, $target);\r
++    }\r
+ }\r
+ \r
+ sub prompt($$) {\r
+-- \r
+1.7.7.4\r
+\r