[PATCH v3 2/4] emacs: add support for replying just to the sender
Jani Nikula
jani at nikula.org
Wed Jan 11 14:08:29 PST 2012
On Wed, 11 Jan 2012 16:15:30 -0500, Aaron Ecay <aaronecay at gmail.com> wrote:
> On Wed, 11 Jan 2012 08:20:56 +0000, David Edmondson <dme at dme.org> wrote:
> > On Tue, 10 Jan 2012 21:54:02 +0200, Jani Nikula <jani at nikula.org> 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=all")))
> > > + (setq args (append args '("--reply-to=sender"))))
> > > (setq args (append args (list query-string)))
> >
> > I don't like how this ends up. How about something like:
> >
> > (defun notmuch-mua-reply (query-string &optional sender)
> > (let (headers
> > body
> > (args (nconc (list "reply"
> > (concat "--reply-to="
> > (if reply-all "all" "sender")))
> > (when notmuch-show-process-crypto
> > (list "--decrypt"))
> > (list query-string))))
>
> What about using ‘format’:
>
> (let (...
> (args (format "reply --reply-to=%s %s %s"
> (if reply-all "all" "sender")
> (if notmuch-show-process-crypto "--decrypt" "")
> query-string)))
> ...)
>
> It’s still not beautiful, but maybe it is better?
I don't think it works. The arguments to call-process need to be a list,
not a string.
BR,
Jani.
More information about the notmuch
mailing list