From: Amadeusz =?utf-8?B?xbtvxYJub3dza2k=?= <aidecoe@aidecoe.name>
To: Matt Armstrong <marmstrong@google.com>
Cc: notmuch@notmuchmail.org
Subject: Re: notmuch and "mute" -- useful to anyone?
In-Reply-To: <qf5vazjjciq.fsf@marmstrong-linux.kir.corp.google.com>
References: <qf5vazjjciq.fsf@marmstrong-linux.kir.corp.google.com>
User-Agent: Notmuch/0.22.1 (http://notmuchmail.org) Emacs/24.5.1
 (x86_64-pc-linux-gnu)
Date: Tue, 02 Aug 2016 20:28:38 +0100
Message-ID: <87d1lrq8bd.fsf@freja.aidecoe.name>
MIME-Version: 1.0
Content-Type: multipart/signed; boundary="=-=-=";
 micalg=pgp-sha512; protocol="application/pgp-signature"
Precedence: list

--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

This seems to be something that https://github.com/teythoon/afew already
does, although it uses tag 'killed' instead. I think that alot e-mail
client uses 'killed' tag as well. Maybe you could consider having that
name instead or make it configurable with 'killed' as default?

Cheers,

=2D- Amadeusz =C5=BBo=C5=82nowski

Matt Armstrong <marmstrong@google.com> writes:

> Is anyone else interested in Gmail-like "mute" support in notmuch.el?
> If so, I can think about polishing the below off and adding it to
> notmuch.
>
> I've managed to implement Gmail's "mute" in notmuch as follows in my
> notmuch-post-new:
>
> ----------------------------------------------------------------------
> # Unmute all threads with new messages sent to me.
> notmuch search --output=3Dthreads tag:new AND tag:me | \
>   xargs --no-run-if-empty notmuch tag -muted --
>
> # Remove all muted threads from the inbox and mark every message in them
> # muted.  Ideally this would be atomic with the above.
> notmuch search --output=3Dthreads tag:muted | \
>   xargs --no-run-if-empty notmuch tag -inbox +muted --
> ----------------------------------------------------------------------
>
> Then in .emacs:
>
> ----------------------------------------------------------------------
> (defcustom my-notmuch-mute-tags '("+muted" "-inbox")
>   "List of tag changes to apply to a message or a thread when it is muted.
>
> Tags starting with \"+\" (or not starting with either \"+\" or
> \"-\") in the list will be added, and tags starting with \"-\"
> will be removed from the message or thread being archived.
>
> For example, if you wanted to remove an \"inbox\" tag and add an
> \"archived\" tag, you would set:
>     (\"-inbox\" \"+archived\")"
>   :type '(repeat string)
>   :group 'notmuch-search
>   :group 'notmuch-show)
>
> ;; TODO: consider defadvice?
> (defun my-notmuch-search-mute-thread (&optional unarchive beg end)
>   "Mute the currently selected thread or region.
>
> Mute  each message in the currently selected thread by applying the
> tag changes in `my-notmuch-mute-tags' to each (remove the \"inbox\"
> tag by default). If a prefix argument is given, the messages will
> be \"unarchived\" (i.e. the tag changes in `my-notmuch-mute-tags'
> will be reversed).
>
> This function advances the next thread when finished."
>   (interactive (cons current-prefix-arg (notmuch-search-interactive-regio=
n)))
>   (let ((notmuch-archive-tags my-notmuch-mute-tags))
>     (notmuch-search-archive-thread unarchive beg end)))
>
> (defun my-notmuch-show-mute-thread-then-next ()
>   (interactive)
>   "Mute all messages in the current buffer, then show next thread from se=
arch."
>   (let ((notmuch-archive-tags my-notmuch-mute-tags))
>     (notmuch-show-archive-thread-then-next)))
>
> (define-key notmuch-search-mode-map "m" 'my-notmuch-search-mute-thread)
> (define-key notmuch-show-mode-map "m" 'my-notmuch-show-mute-thread-then-n=
ext)
> ----------------------------------------------------------------------
> _______________________________________________
> notmuch mailing list
> notmuch@notmuchmail.org
> https://notmuchmail.org/mailman/listinfo/notmuch

--=-=-=
Content-Type: application/pgp-signature; name="signature.asc"

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.1

iQJ8BAEBCgBmBQJXoPRnXxSAAAAAAC4AKGlzc3Vlci1mcHJAbm90YXRpb25zLm9w
ZW5wZ3AuZmlmdGhob3JzZW1hbi5uZXRCMzcyRTFENjI5NUM1MzYwQTQwODQyRUZD
QkNDODAyM0Y1OUUxNzA0AAoJEMvMgCP1nhcEX7UP/jSq+b8HBhOdiMA+zui05DO9
5HBiSboLyPZ6i/gHTyFbqC3wyS0zNHozyQl1Ok2yNunxi3QMpMFyYvKcEorPPR4b
VNnsdC7CEo79CReB4EySZAJSH48FrHu8dOh3m6KMRI+Ui4igfUejWySvaZo3hgXE
/01P4SHBcOfFkukQayrXgIryUJwpow6i6Yu4RpkokyoiNWzsmjQ3i6fFXWlKgI0c
OlO9fk88wfoREmQb8e2MNps2oa7fuviruxghvm+Hue4/NYL09jrDmRSbMbrGuVrR
AqkogqV+3xr22zOTV+VkPvsT0+InUBsIdv3lmQtEDKzT7DfATCeXTFGsZQu65IYp
Fx5q1NUTa/hk9xJdvCec/NHj3VO7nhm4lCbbDkXgYs3xomjW7BY2R2uJnWadc0dK
w5zP/1m1pXspCpjcnnGYaRn2uForDMjZELTVkpKAJpMLTekwMkqpgP6KvsKF4cgA
1L9Hh6VcTOpaYVbUUeyTDvWadGxD0RjeTi3Ohfxh2OxTo3LKlJGjYR9Wey/K2Yvc
YSwPX2ksq4v7MTd/RQvansXMCQQIWtuH0fSq+/ps7BVNYpEGr2ScTB38pdpV7hVD
jLHrGdt/TooWuBTj132EUO3TxGFTYACPE4LSssK/vv5x3jupl9CABw0WTtSY5Thp
kbKjj/1zocrx1+RaMWZe
=dSBX
-----END PGP SIGNATURE-----
--=-=-=--