Return-Path: X-Original-To: notmuch@notmuchmail.org Delivered-To: notmuch@notmuchmail.org Received: from localhost (localhost [127.0.0.1]) by olra.theworths.org (Postfix) with ESMTP id 57B4E429E25 for ; Wed, 11 Jan 2012 13:15:34 -0800 (PST) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org X-Spam-Flag: NO X-Spam-Score: -0.799 X-Spam-Level: X-Spam-Status: No, score=-0.799 tagged_above=-999 required=5 tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled Received: from olra.theworths.org ([127.0.0.1]) by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 5dCEXWnKBvSn for ; Wed, 11 Jan 2012 13:15:33 -0800 (PST) Received: from mail-qw0-f53.google.com (mail-qw0-f53.google.com [209.85.216.53]) (using TLSv1 with cipher RC4-SHA (128/128 bits)) (No client certificate requested) by olra.theworths.org (Postfix) with ESMTPS id BA5ED429E21 for ; Wed, 11 Jan 2012 13:15:33 -0800 (PST) Received: by qady1 with SMTP id y1so869364qad.5 for ; Wed, 11 Jan 2012 13:15:33 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=from:to:subject:in-reply-to:references:user-agent:date:message-id :mime-version:content-type:content-transfer-encoding; bh=Sxe5p72mD+9Hx1IO2SOFHrhCjgiazCJ4CDPmcrKZKfM=; b=G7beAnmJJ2W2Rl221oN45wHu7GpUPezaVDSnJ3BnvsDwHienSChnuyxkmNoztFsGB0 Ga71x4SGuE/D/LfpqapVmLPt85TFMgggB8ynw9uMcHi76GnZflZMpudIlPpD4pEvY8NV v1HLAzWjQkg5LtRXesf5BMTaQBOOzDfCXp6WY= Received: by 10.224.181.10 with SMTP id bw10mr2277298qab.59.1326316533158; Wed, 11 Jan 2012 13:15:33 -0800 (PST) Received: from localhost (wal044.wireless-pennnet.upenn.edu. [128.91.71.173]) by mx.google.com with ESMTPS id df3sm5673773qab.6.2012.01.11.13.15.31 (version=TLSv1/SSLv3 cipher=OTHER); Wed, 11 Jan 2012 13:15:31 -0800 (PST) From: Aaron Ecay To: David Edmondson , Jani Nikula , notmuch@notmuchmail.org Subject: Re: [PATCH v3 2/4] emacs: add support for replying just to the sender In-Reply-To: References: <069a0cddd4e848314fb64da861b3bf5b4f053f14.1326224339.git.jani@nikula.org> User-Agent: Notmuch/0.10.1+56~gd709fd6 (http://notmuchmail.org) Emacs/24.0.92.1 (i386-apple-darwin10.8.0) Date: Wed, 11 Jan 2012 16:15:30 -0500 Message-ID: MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-BeenThere: notmuch@notmuchmail.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: "Use and development of the notmuch mail system." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 11 Jan 2012 21:15:34 -0000 On Wed, 11 Jan 2012 08:20:56 +0000, David Edmondson wrote: > On Tue, 10 Jan 2012 21:54:02 +0200, Jani Nikula wrote: > > -(defun notmuch-mua-reply (query-string &optional sender) > > +(defun notmuch-mua-reply (query-string &optional sender reply-all) > > (let (headers > > body > > (args '("reply"))) > > (if notmuch-show-process-crypto > > (setq args (append args '("--decrypt")))) > > + (if reply-all > > + (setq args (append args '("--reply-to=3Dall"))) > > + (setq args (append args '("--reply-to=3Dsender")))) > > (setq args (append args (list query-string))) >=20 > I don't like how this ends up. How about something like: >=20 > (defun notmuch-mua-reply (query-string &optional sender) > (let (headers > body > (args (nconc (list "reply" > (concat "--reply-to=3D" > (if reply-all "all" "sender"))) > (when notmuch-show-process-crypto > (list "--decrypt")) > (list query-string)))) What about using =E2=80=98format=E2=80=99: (let (... (args (format "reply --reply-to=3D%s %s %s" (if reply-all "all" "sender") (if notmuch-show-process-crypto "--decrypt" "") query-string))) ...) It=E2=80=99s still not beautiful, but maybe it is better? --=20 Aaron Ecay