[PATCH] emacs: search archive tweak
Mark Walters writes: > notmuch-search-archive-thread moves to the next line after tagging. In > the normal case this makes sense, but if the region is active, it tags > the whole region and then it doesn't really. Thus only move to the > next line if region is not active. > --- pushed to master. d
[PATCH] emacs: search archive tweak
On Fri, Jun 06 2014, Mark Walters wrote: > notmuch-search-archive-thread moves to the next line after tagging. In > the normal case this makes sense, but if the region is active, it tags > the whole region and then it doesn't really. Thus only move to the > next line if region is not active. > --- Looks good, although I have no idea how to test this ;) Tomi > > In response to the request in the parent message. > > Best wishes > > Mark > > emacs/notmuch.el |3 ++- > 1 file changed, 2 insertions(+), 1 deletion(-) > > diff --git a/emacs/notmuch.el b/emacs/notmuch.el > index f6bf9c8..2a9876f 100644 > --- a/emacs/notmuch.el > +++ b/emacs/notmuch.el > @@ -580,7 +580,8 @@ (defun notmuch-search-archive-thread ( unarchive > beg end) >(when notmuch-archive-tags > (notmuch-search-tag > (notmuch-tag-change-list notmuch-archive-tags unarchive) beg end)) > - (notmuch-search-next-thread)) > + (when (eq beg end) > +(notmuch-search-next-thread))) > > (defun notmuch-search-update-result (result pos) >"Replace the result object of the thread at POS (or point) by > -- > 1.7.10.4 > > ___ > notmuch mailing list > notmuch at notmuchmail.org > http://notmuchmail.org/mailman/listinfo/notmuch
Re: [PATCH] emacs: search archive tweak
On Fri, Jun 06 2014, Mark Walters markwalters1...@gmail.com wrote: notmuch-search-archive-thread moves to the next line after tagging. In the normal case this makes sense, but if the region is active, it tags the whole region and then it doesn't really. Thus only move to the next line if region is not active. --- Looks good, although I have no idea how to test this ;) Tomi In response to the request in the parent message. Best wishes Mark emacs/notmuch.el |3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/emacs/notmuch.el b/emacs/notmuch.el index f6bf9c8..2a9876f 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -580,7 +580,8 @@ (defun notmuch-search-archive-thread (optional unarchive beg end) (when notmuch-archive-tags (notmuch-search-tag (notmuch-tag-change-list notmuch-archive-tags unarchive) beg end)) - (notmuch-search-next-thread)) + (when (eq beg end) +(notmuch-search-next-thread))) (defun notmuch-search-update-result (result optional pos) Replace the result object of the thread at POS (or point) by -- 1.7.10.4 ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch
[PATCH] emacs: search archive tweak
notmuch-search-archive-thread moves to the next line after tagging. In the normal case this makes sense, but if the region is active, it tags the whole region and then it doesn't really. Thus only move to the next line if region is not active. --- In response to the request in the parent message. Best wishes Mark emacs/notmuch.el |3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/emacs/notmuch.el b/emacs/notmuch.el index f6bf9c8..2a9876f 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -580,7 +580,8 @@ (defun notmuch-search-archive-thread ( unarchive beg end) (when notmuch-archive-tags (notmuch-search-tag (notmuch-tag-change-list notmuch-archive-tags unarchive) beg end)) - (notmuch-search-next-thread)) + (when (eq beg end) +(notmuch-search-next-thread))) (defun notmuch-search-update-result (result pos) "Replace the result object of the thread at POS (or point) by -- 1.7.10.4
[PATCH] emacs: search archive tweak
notmuch-search-archive-thread moves to the next line after tagging. In the normal case this makes sense, but if the region is active, it tags the whole region and then it doesn't really. Thus only move to the next line if region is not active. --- In response to the request in the parent message. Best wishes Mark emacs/notmuch.el |3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/emacs/notmuch.el b/emacs/notmuch.el index f6bf9c8..2a9876f 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -580,7 +580,8 @@ (defun notmuch-search-archive-thread (optional unarchive beg end) (when notmuch-archive-tags (notmuch-search-tag (notmuch-tag-change-list notmuch-archive-tags unarchive) beg end)) - (notmuch-search-next-thread)) + (when (eq beg end) +(notmuch-search-next-thread))) (defun notmuch-search-update-result (result optional pos) Replace the result object of the thread at POS (or point) by -- 1.7.10.4 ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch