X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=notmuch.el;h=b8d8e54f4f21b1e57b6753c156c64a9cfcded816;hp=cd5c896449a38c1c264b10096a829f796235c35c;hb=494c74229bb8bdfc8571ce5de20a7beb0333c5f2;hpb=19993ea33b618b054398244114d6e1181a34cb84

diff --git a/notmuch.el b/notmuch.el
index cd5c8964..b8d8e54f 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -33,6 +33,7 @@
     (define-key map "c" 'notmuch-show-toggle-citations-visible)
     (define-key map "h" 'notmuch-show-toggle-headers-visible)
     (define-key map "n" 'notmuch-show-next-message)
+    (define-key map "N" 'notmuch-show-mark-read-then-next-open-message)
     (define-key map "p" 'notmuch-show-previous-message)
     (define-key map (kbd "C-n") 'notmuch-show-next-line)
     (define-key map (kbd "C-p") 'notmuch-show-previous-line)
@@ -64,8 +65,8 @@
 (set 'notmuch-show-part-end-regexp         "part}")
 (set 'notmuch-show-marker-regexp "\\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$")
 
-(set 'notmuch-show-id-regexp "ID: \\([^ ]*\\)")
-(set 'notmuch-show-filename-regexp "Filename: \\(.*\\)$")
+(set 'notmuch-show-id-regexp "id:\\([^ ]*\\)")
+(set 'notmuch-show-filename-regexp "filename:\\(.*\\)$")
 (set 'notmuch-show-tags-regexp "(\\([^)]*\\))$")
 
 ; XXX: This should be a generic function in emacs somewhere, not here
@@ -358,11 +359,10 @@ which this thread was originally shown."
 	(unread (notmuch-show-message-unread-p)))
     (if (> next (window-end))
 	(scroll-up nil)
-      (if unread
-	  (notmuch-show-mark-read-then-next-open-message)
-	(if (notmuch-show-last-message-p)
-	    (notmuch-show-archive-thread)
-	  (notmuch-show-next-open-message))))))
+      (let ((last (notmuch-show-last-message-p)))
+	(notmuch-show-mark-read-then-next-open-message)
+	(if last
+	    (notmuch-show-archive-thread))))))
 
 (defun notmuch-show-markup-citations-region (beg end)
   (goto-char beg)
@@ -643,13 +643,13 @@ global search.
   (save-excursion
     (beginning-of-line)
     (let ((beg (point)))
-      (re-search-forward "[a-fA-F0-9]*")
+      (re-search-forward "thread:[a-fA-F0-9]*")
       (filter-buffer-substring beg (point)))))
 
 (defun notmuch-search-markup-this-thread-id ()
   (beginning-of-line)
   (let ((beg (point)))
-    (re-search-forward "[a-fA-F0-9]*")
+    (re-search-forward "thread:[a-fA-F0-9]*")
     (forward-char)
     (overlay-put (make-overlay beg (point)) 'invisible 'notmuch-search)))