Re: [PATCH v3 2/4] emacs: add support for replying just to the sender

diff --git a/8b/0896ef9d6f07162b6c7da498bdc8c9e47f5705 b/8b/0896ef9d6f07162b6c7da498bdc8c9e47f5705
new file mode 100644 (file)
index 0000000..f7548b8
--- /dev/null
+++ b/8b/0896ef9d6f07162b6c7da498bdc8c9e47f5705
@@ -0,0 +1,102 @@
+Return-Path: <jani@nikula.org>\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 827C5429E21\r
+       for <notmuch@notmuchmail.org>; Wed, 11 Jan 2012 14:08:47 -0800 (PST)\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 f5Q-k3pgBpxZ for <notmuch@notmuchmail.org>;\r
+       Wed, 11 Jan 2012 14:08:36 -0800 (PST)\r
+Received: from mail-ey0-f181.google.com (mail-ey0-f181.google.com\r
+       [209.85.215.181]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
+       (No client certificate requested)\r
+       by olra.theworths.org (Postfix) with ESMTPS id 9A6B1431FB6\r
+       for <notmuch@notmuchmail.org>; Wed, 11 Jan 2012 14:08:36 -0800 (PST)\r
+Received: by eaah10 with SMTP id h10so540062eaa.26\r
+       for <notmuch@notmuchmail.org>; Wed, 11 Jan 2012 14:08:34 -0800 (PST)\r
+Received: by 10.213.15.12 with SMTP id i12mr277597eba.107.1326319713765;\r
+       Wed, 11 Jan 2012 14:08:33 -0800 (PST)\r
+Received: from localhost (dsl-hkibrasgw4-fe5cdc00-23.dhcp.inet.fi.\r
+       [80.220.92.23])\r
+       by mx.google.com with ESMTPS id u53sm11140517eeu.6.2012.01.11.14.08.30\r
+       (version=SSLv3 cipher=OTHER); Wed, 11 Jan 2012 14:08:31 -0800 (PST)\r
+From: Jani Nikula <jani@nikula.org>\r
+To: Aaron Ecay <aaronecay@gmail.com>, David Edmondson <dme@dme.org>,\r
+       notmuch@notmuchmail.org\r
+Subject: Re: [PATCH v3 2/4] emacs: add support for replying just to the sender\r
+In-Reply-To: <m2d3aqdjpp.fsf@gmail.com>\r
+References: <cover.1326224339.git.jani@nikula.org>\r
+       <069a0cddd4e848314fb64da861b3bf5b4f053f14.1326224339.git.jani@nikula.org>\r
+       <cun39bmodjr.fsf@hotblack-desiato.hh.sledj.net>\r
+       <m2d3aqdjpp.fsf@gmail.com>\r
+User-Agent: Notmuch/0.10.2+193~ga73a411 (http://notmuchmail.org) Emacs/23.3.1\r
+       (i686-pc-linux-gnu)\r
+Date: Thu, 12 Jan 2012 00:08:29 +0200\r
+Message-ID: <8762gh3naa.fsf@nikula.org>\r
+MIME-Version: 1.0\r
+Content-Type: text/plain; charset=utf-8\r
+Content-Transfer-Encoding: quoted-printable\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: Wed, 11 Jan 2012 22:08:47 -0000\r
+\r
+On Wed, 11 Jan 2012 16:15:30 -0500, Aaron Ecay <aaronecay@gmail.com> wrote:\r
+> On Wed, 11 Jan 2012 08:20:56 +0000, David Edmondson <dme@dme.org> wrote:\r
+> > On Tue, 10 Jan 2012 21:54:02 +0200, Jani Nikula <jani@nikula.org> wrote:\r
+> > > -(defun notmuch-mua-reply (query-string &optional sender)\r
+> > > +(defun notmuch-mua-reply (query-string &optional sender reply-all)\r
+> > >    (let (headers\r
+> > >          body\r
+> > >          (args '("reply")))\r
+> > >      (if notmuch-show-process-crypto\r
+> > >          (setq args (append args '("--decrypt"))))\r
+> > > +    (if reply-all\r
+> > > +        (setq args (append args '("--reply-to=3Dall")))\r
+> > > +      (setq args (append args '("--reply-to=3Dsender"))))\r
+> > >      (setq args (append args (list query-string)))\r
+> >=20\r
+> > I don't like how this ends up. How about something like:\r
+> >=20\r
+> > (defun notmuch-mua-reply (query-string &optional sender)\r
+> >   (let (headers\r
+> >    body\r
+> >    (args (nconc (list "reply"\r
+> >                            (concat "--reply-to=3D"\r
+> >                                    (if reply-all "all" "sender")))\r
+> >                 (when notmuch-show-process-crypto\r
+> >                   (list "--decrypt"))\r
+> >                 (list query-string))))\r
+>=20\r
+> What about using =E2=80=98format=E2=80=99:\r
+>=20\r
+> (let (...\r
+>       (args (format "reply --reply-to=3D%s %s %s"\r
+>                     (if reply-all "all" "sender")\r
+>                     (if notmuch-show-process-crypto "--decrypt" "")\r
+>                     query-string)))\r
+>   ...)\r
+>=20\r
+> It=E2=80=99s still not beautiful, but maybe it is better?\r
+\r
+I don't think it works. The arguments to call-process need to be a list,\r
+not a string.\r
+\r
+BR,\r
+Jani.\r