[PATCH] emacs: do not change users' mail agent configuration

Jani Nikula jani at nikula.org
Sat Dec 13 13:04:26 PST 2014


On Fri, 12 Dec 2014, Łukasz Stelmach <stlman at poczta.fm> wrote:
> `mail-user-agent' is defined with defcustom and may be customised
> by users. It should not be set to arbitrary values in modules.

Point taken.

> To make use of that configuration value call `compose-mail' which
> starts user's preferred mail composition package as selected with
> the variable `mail-user-agent' instead of notmuch's hardcoded
> `message-mail'.

So your proposed change is that `notmuch-mua-mail` should start
whichever mua the user has configured in `mail-user-agent` instead of
the notmuch mail composition window, as described in the function
documentation? I don't think I like that either.

Maybe we should let bind `mail-user-agent` instead?

> ---
>  NEWS                 | 10 ++++++++++
>  emacs/notmuch-mua.el |  2 +-
>  emacs/notmuch.el     |  2 --
>  3 files changed, 11 insertions(+), 3 deletions(-)
>
> diff --git a/NEWS b/NEWS
> index 44e8d05..cf5b3c3 100644
> --- a/NEWS
> +++ b/NEWS
> @@ -64,6 +64,16 @@ Added `notmuch address` subcommand
>  Emacs Interface
>  ---------------
>  
> +Fixed `mail-user-agent` handling
> +
> +  The value of the mail-user-agent variable is not forcibly set to
> +  `notmuch-user-agent`, regardles of how a user has customised it,
> +  everytime notmuch.el is loaded. This way, someone who used for example
> +  Gnus has her MUA and notmuch just as a search engine, doesn't have her
> +  configuration broken everytime notmuch.el is loaded. The user can now
> +  use her favourite mail composing package when replying messages in
> +  notmuch too.

I understand you're annoyed at the current behaviour, but please don't
pour that annoyance into notmuch NEWS. Thank you.

BR,
Jani.


> +
>  Use the `j` key to access saved searches from anywhere in notmuch
>  
>    `j` is now globally bound to `notmuch-jump`, which provides fast,
> diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
> index 2c58886..f02c7b5 100644
> --- a/emacs/notmuch-mua.el
> +++ b/emacs/notmuch-mua.el
> @@ -263,7 +263,7 @@ OTHER-ARGS are passed through to `message-mail'."
>      (push (cons 'From (concat
>  		       (notmuch-user-name) " <" (notmuch-user-primary-email) ">")) other-headers))
>  
> -  (apply #'message-mail to subject other-headers other-args)
> +  (apply #'compose-mail to subject other-headers other-args)
>    (message-sort-headers)
>    (message-hide-headers)
>    (set-buffer-modified-p nil)
> diff --git a/emacs/notmuch.el b/emacs/notmuch.el
> index 218486a..80cab57 100644
> --- a/emacs/notmuch.el
> +++ b/emacs/notmuch.el
> @@ -1037,8 +1037,6 @@ notmuch buffers exist, run `notmuch'."
>  	  (switch-to-buffer first))
>        (notmuch))))
>  
> -(setq mail-user-agent 'notmuch-user-agent)
> -
>  (provide 'notmuch)
>  
>  ;; After provide to avoid loops if notmuch was require'd via notmuch-init-file.
> -- 
> 2.0.4
>
> _______________________________________________
> notmuch mailing list
> notmuch at notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch


More information about the notmuch mailing list