Re: [PATCH] emacs: add paramter to not quote original message in replies

[David Bremner <david@tethera.net>]

joshua@joshuao.com writes:

> From: Joshua O'Connor <joshua@joshuao.com>
>
> While the default reply function does nicely set the region to the
> quoted text to allow for easy an easy kill-region, at least one
> package, org-msg, interprets the incoming citation (or not) and
> operates on it.  Adding this parameter makes it feasible for users of
> that library to write their own notmuch-show-reply-sender-esque
> function for this purpose.

Since this changes / extends the API, it should have a
test. test/T453-reply.sh has an example you can probably copy and modify
for your purposes. Feel free to use a different message from the
standard corpus.

> ---
>  emacs/notmuch-mua.el | 12 +++++++-----
>  1 file changed, 7 insertions(+), 5 deletions(-)
>
> diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
> index 60801f4b..b37bab0d 100644
> --- a/emacs/notmuch-mua.el
> +++ b/emacs/notmuch-mua.el
> @@ -234,7 +234,7 @@ Typically this is added to `notmuch-mua-send-hook'."
>  
>  ;;; Mua reply
>  
> -(defun notmuch-mua-reply (query-string &optional sender reply-all)
> +(defun notmuch-mua-reply (query-string &optional sender reply-all omit-original)
>    (let ((args '("reply" "--format=sexp" "--format-version=5"))
>  	(process-crypto notmuch-show-process-crypto)
>  	reply
> @@ -280,6 +280,7 @@ Typically this is added to `notmuch-mua-send-hook'."
>        (when notmuch-message-replied-tags
>  	(setq notmuch-message-queued-tag-changes
>  	      (list (cons query-string notmuch-message-replied-tags))))
> +      (unless omit-original

Please do a separate commit with the whitespace cleanup this
requires. Just following the automatic indentation of emacs is most
likely fine (and encouraged).

>        ;; Insert the message body - but put it in front of the signature
>        ;; if one is present, and after any other content
>        ;; message*setup-hooks may have added to the message body already.
> @@ -327,7 +328,7 @@ Typically this is added to `notmuch-mua-send-hook'."
>  	(set-mark (point))
>  	(goto-char start)
>  	;; Quote the original message according to the user's configured style.
> -	(funcall notmuch-mua-cite-function)))
> +	(funcall notmuch-mua-cite-function))))
>      ;; Crypto processing based crypto content of the original message
>      (when process-crypto
>        (notmuch-mua-reply-crypto (plist-get original :body))))
> @@ -512,12 +513,13 @@ the From: address."
>        (message-hide-headers)
>        (set-buffer-modified-p nil))))
>  
> -(defun notmuch-mua-new-reply (query-string &optional prompt-for-sender reply-all)
> +(defun notmuch-mua-new-reply (query-string &optional prompt-for-sender reply-all omit-original)
>    "Compose a reply to the message identified by QUERY-STRING.
>  
>  If PROMPT-FOR-SENDER is non-nil, the user will be prompted for
>  the From: address first.  If REPLY-ALL is non-nil, the message
> -will be addressed to all recipients of the source message."
> +will be addressed to all recipients of the source message.  If
> +OMIT-ORIGINAL is non-nil, the orignial message will not be quoted."

Please double check the spelling of your changes. There are several typos.