X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=notmuch.el;h=b8d8e54f4f21b1e57b6753c156c64a9cfcded816;hp=8f0852b4185f8ec58858fa283375a97f2a6fbbed;hb=494c74229bb8bdfc8571ce5de20a7beb0333c5f2;hpb=22adeeaab79f33f8aaaefe2a86f665dc32756065 diff --git a/notmuch.el b/notmuch.el index 8f0852b4..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 @@ -642,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)))