[PATCH 2/3] Introducing the concept of mail processing order.

servilio at gmail.com servilio at gmail.com
Sat Jun 26 16:28:58 PDT 2010


This separates the order you want to go through your mail from the
order you want it sorted visually. Now you can, e.g.: have your newer
mails appearing at the top while still reading them starting from the
oldest.
---
 emacs/notmuch-lib.el |    8 ++++++++
 emacs/notmuch.el     |    6 ++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el
index f30bcb4..54c7329 100644
--- a/emacs/notmuch-lib.el
+++ b/emacs/notmuch-lib.el
@@ -33,6 +33,14 @@
   :type 'boolean
   :group 'notmuch)

+(defcustom notmuch-process-newer-next nil
+  "When finished with a thread, which one you intend to process next.
+
+If the value is nil, the thread older than the current will be
+focused next, otherwise focus the newer thread will be chosen."
+  :type 'boolean
+  :group 'notmuch)
+
 ;;

 (defcustom notmuch-saved-searches nil
diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 417f3fd..404e77d 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -261,12 +261,14 @@ For a mouse binding, return nil."
 (defun notmuch-search-next-thread ()
   "Select the next thread in the search results."
   (interactive)
-  (forward-line 1))
+  (forward-line (* (if notmuch-search-oldest-first 1 -1)
+                   (if notmuch-process-newer-next 1 -1))))

 (defun notmuch-search-previous-thread ()
   "Select the previous thread in the search results."
   (interactive)
-  (forward-line -1))
+  (previous-line (* (if notmuch-search-oldest-first 1 -1)
+		    (if notmuch-process-newer-next 1 -1))))

 (defun notmuch-search-last-thread ()
   "Select the last thread in the search results."
-- 
1.7.1


More information about the notmuch mailing list