[PATCH WIP v2 4/6] emacs: show: use the `seen' interface

Mark Walters markwalters1009 at gmail.com
Sun Dec 1 02:02:25 PST 2013


This converts the existing logic to use the seen/read distinction. At
this point the logic for deciding whether to mark seen/read is
unchanged, but the actual tagging read is now deferred to
quit/refresh.
---
 emacs/notmuch-show.el |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 05f649b..261c2e3 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -1721,7 +1721,7 @@ thread, navigate to the next thread in the parent search buffer."
   (interactive "P")
   (if (notmuch-show-goto-message-next)
       (progn
-	(notmuch-show-mark-read)
+	(notmuch-show-mark-seen)
 	(notmuch-show-message-adjust))
     (if pop-at-end
 	(notmuch-show-next-thread)
@@ -1733,7 +1733,7 @@ thread, navigate to the next thread in the parent search buffer."
   (if (= (point) (notmuch-show-message-top))
       (notmuch-show-goto-message-previous)
     (notmuch-show-move-to-message-top))
-  (notmuch-show-mark-read)
+  (notmuch-show-mark-seen)
   (notmuch-show-message-adjust))
 
 (defun notmuch-show-next-open-message (&optional pop-at-end)
@@ -1749,7 +1749,7 @@ to show, nil otherwise."
 		(not (notmuch-show-message-visible-p))))
     (if r
 	(progn
-	  (notmuch-show-mark-read)
+	  (notmuch-show-mark-seen)
 	  (notmuch-show-message-adjust))
       (if pop-at-end
 	  (notmuch-show-next-thread)
@@ -1764,7 +1764,7 @@ to show, nil otherwise."
 		(not (notmuch-show-get-prop :match))))
     (if r
 	(progn
-	  (notmuch-show-mark-read)
+	  (notmuch-show-mark-seen)
 	  (notmuch-show-message-adjust))
       (goto-char (point-max)))))
 
@@ -1777,7 +1777,7 @@ to show, nil otherwise."
   "Move to the first open message and mark it read"
   (goto-char (point-min))
   (if (notmuch-show-message-visible-p)
-      (notmuch-show-mark-read)
+      (notmuch-show-mark-seen)
     (notmuch-show-next-open-message))
   (when (eobp)
     ;; There are no matched non-excluded messages so open all matched
@@ -1786,7 +1786,7 @@ to show, nil otherwise."
     (force-window-update)
     (goto-char (point-min))
     (if (notmuch-show-message-visible-p)
-	(notmuch-show-mark-read)
+	(notmuch-show-mark-seen)
       (notmuch-show-next-open-message))))
 
 (defun notmuch-show-previous-open-message ()
@@ -1796,7 +1796,7 @@ to show, nil otherwise."
 		  (notmuch-show-goto-message-previous)
 		(notmuch-show-move-to-message-top))
 	      (not (notmuch-show-message-visible-p))))
-  (notmuch-show-mark-read)
+  (notmuch-show-mark-seen)
   (notmuch-show-message-adjust))
 
 (defun notmuch-show-view-raw-message ()
-- 
1.7.9.1



More information about the notmuch mailing list