notmuch.el: bind 'd' to new function notmuch-search-delete-thread-or-region

[Matthieu Lemerre]

On Fri, 15 Jul 2011 00:11:29 -0400, anarcat  wrote:
Non-text part: multipart/mixed
Non-text part: multipart/signed
> I can confirm this patch works for me.
> 
> I think this would be a great addition to notmuch, and I could add it
> directly to Debian's 0.6 package install.
> 

I also strongly in favor for the addition of this patch, having a
similar one in my own branch.

Matthieu

Re: notmuch.el: bind 'd' to new function notmuch-search-delete-thread-or-region

[Matthieu Lemerre]

On Fri, 15 Jul 2011 00:11:29 -0400, anarcat  wrote:
Non-text part: multipart/mixed
Non-text part: multipart/signed
> I can confirm this patch works for me.
> 
> I think this would be a great addition to notmuch, and I could add it
> directly to Debian's 0.6 package install.
> 

I also strongly in favor for the addition of this patch, having a
similar one in my own branch.

Matthieu
___
notmuch mailing list
notmuch@notmuchmail.org
http://notmuchmail.org/mailman/listinfo/notmuch

Re: notmuch.el: bind 'd' to new function notmuch-search-delete-thread-or-region

[anarcat]

I can confirm this patch works for me.

I think this would be a great addition to notmuch, and I could add it
directly to Debian's 0.6 package install.

A.

On Wed, Feb 17, 2010 at 02:12:26AM -, Sebastian Spaeth wrote:
> Create a new function notmuch-search-delete-thread-or region which does 
> exactly what its name implies.
> 
> Hitting 'd' will delete the current thread (or multiple threads if you marked 
> a region). Deleting means adding tag 'delete' and removing tags 'unread' and 
> 'inbox' in this case.

-- 
Antoine Beaupré +++ Réseau Koumbit Networks +++ +1.514.387.6262 #208

À force de ne jamais réfléchir, on a un bonheur stupide
- Jean Cocteau


signature.asc
Description: Digital signature
___
notmuch mailing list
notmuch@notmuchmail.org
http://notmuchmail.org/mailman/listinfo/notmuch

notmuch.el: bind 'd' to new function notmuch-search-delete-thread-or-region

[anarcat]

I can confirm this patch works for me.

I think this would be a great addition to notmuch, and I could add it
directly to Debian's 0.6 package install.

A.

On Wed, Feb 17, 2010 at 02:12:26AM -, Sebastian Spaeth wrote:
> Create a new function notmuch-search-delete-thread-or region which does 
> exactly what its name implies.
> 
> Hitting 'd' will delete the current thread (or multiple threads if you marked 
> a region). Deleting means adding tag 'delete' and removing tags 'unread' and 
> 'inbox' in this case.

-- 
Antoine Beaupr? +++ R?seau Koumbit Networks +++ +1.514.387.6262 #208

? force de ne jamais r?fl?chir, on a un bonheur stupide
- Jean Cocteau
-- next part --
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 836 bytes
Desc: Digital signature
URL: 

[notmuch] [PATCH] notmuch.el: bind 'd' to new function notmuch-search-delete-thread-or-region

[Sebastian Spaeth]

Create a new function notmuch-search-delete-thread-or region which does exactly 
what its name implies.

Hitting 'd' will delete the current thread (or multiple threads if you marked a 
region). Deleting means adding tag 'delete' and removing tags 'unread' and 
'inbox' in this case.

This patch requires Jesse's patch from mail id:87sk90ragj.fsf at jhu.edu.

Signed-off-by: Sebastian Spaeth 
---
 notmuch.el |   11 +++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/notmuch.el b/notmuch.el
index 7d9a82f..ac07ff3 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -1101,6 +1101,7 @@ matching this search term are shown if non-nil. "
 (define-key map [mouse-1] 'notmuch-search-show-thread)
 (define-key map "*" 'notmuch-search-operate-all)
 (define-key map "a" 'notmuch-search-archive-thread)
+(define-key map "d" 'notmuch-search-delete-thread-or-region)
 (define-key map "-" 'notmuch-search-remove-tag)
 (define-key map "+" 'notmuch-search-add-tag)
 (define-key map (kbd "RET") 'notmuch-search-show-thread)
@@ -1396,6 +1397,16 @@ This function advances the next thread when finished."
   (notmuch-search-remove-tag-thread "inbox")
   (forward-line))

+(defun notmuch-search-delete-thread-or-region ()
+  "Delete the currently selected thread (tag \"+delete -inbox -unread\").
+
+This function advances the next thread when finished."
+  (interactive)
+  (notmuch-search-add-tag "delete")
+  (notmuch-search-remove-tag "inbox")
+  (notmuch-search-remove-tag "unread")
+  (forward-line))
+
 (defun notmuch-search-process-sentinel (proc msg)
   "Add a message to let user know when \"notmuch search\" exits"
   (let ((buffer (process-buffer proc))
-- 
1.6.3.3

[notmuch] [PATCH] notmuch.el: bind 'd' to new function notmuch-search-delete-thread-or-region

[Sebastian Spaeth]

Create a new function notmuch-search-delete-thread-or region which does exactly 
what its name implies.

Hitting 'd' will delete the current thread (or multiple threads if you marked a 
region). Deleting means adding tag 'delete' and removing tags 'unread' and 
'inbox' in this case.

This patch requires Jesse's patch from mail id:87sk90ragj@jhu.edu.

Signed-off-by: Sebastian Spaeth 
---
 notmuch.el |   11 +++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/notmuch.el b/notmuch.el
index 7d9a82f..ac07ff3 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -1101,6 +1101,7 @@ matching this search term are shown if non-nil. "
 (define-key map [mouse-1] 'notmuch-search-show-thread)
 (define-key map "*" 'notmuch-search-operate-all)
 (define-key map "a" 'notmuch-search-archive-thread)
+(define-key map "d" 'notmuch-search-delete-thread-or-region)
 (define-key map "-" 'notmuch-search-remove-tag)
 (define-key map "+" 'notmuch-search-add-tag)
 (define-key map (kbd "RET") 'notmuch-search-show-thread)
@@ -1396,6 +1397,16 @@ This function advances the next thread when finished."
   (notmuch-search-remove-tag-thread "inbox")
   (forward-line))
 
+(defun notmuch-search-delete-thread-or-region ()
+  "Delete the currently selected thread (tag \"+delete -inbox -unread\").
+
+This function advances the next thread when finished."
+  (interactive)
+  (notmuch-search-add-tag "delete")
+  (notmuch-search-remove-tag "inbox")
+  (notmuch-search-remove-tag "unread")
+  (forward-line))
+
 (defun notmuch-search-process-sentinel (proc msg)
   "Add a message to let user know when \"notmuch search\" exits"
   (let ((buffer (process-buffer proc))
-- 
1.6.3.3

___
notmuch mailing list
notmuch@notmuchmail.org
http://notmuchmail.org/mailman/listinfo/notmuch