diff options
author | Carl Worth <cworth@cworth.org> | 2009-11-10 18:45:30 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-10 18:45:30 -0800 |
commit | 54d79f60a19566493593c0399a27ced0f0aa72e2 (patch) | |
tree | 7d3cbb84a69a362d3fe8b32251864c738c093f80 /notmuch.el | |
parent | 357aba3ec8177c11a7ce22cbe26d92482f6a5e53 (diff) |
notmuch.el: Simplify get-message-id
We were stripping off the "id:" portion of the identifier, only to
put it back on again in all cases. Stop this madness.
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -68,7 +68,7 @@ (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-id-regexp "\\(id:[^ ]*\\)") (set 'notmuch-show-filename-regexp "filename:\\(.*\\)$") (set 'notmuch-show-tags-regexp "(\\([^)]*\\))$") @@ -153,7 +153,7 @@ Unlike builtin `next-line' this version accepts no arguments." (apply 'notmuch-call-notmuch-process (append (cons "tag" (mapcar (lambda (s) (concat "+" s)) toadd)) - (cons (concat "id:" (notmuch-show-get-message-id)) nil))) + (cons (notmuch-show-get-message-id) nil))) (notmuch-show-set-tags (sort (union toadd (notmuch-show-get-tags) :test 'string=) 'string<))) (defun notmuch-show-remove-tag (&rest toremove) @@ -165,7 +165,7 @@ Unlike builtin `next-line' this version accepts no arguments." (apply 'notmuch-call-notmuch-process (append (cons "tag" (mapcar (lambda (s) (concat "-" s)) toremove)) - (cons (concat "id:" (notmuch-show-get-message-id)) nil))) + (cons (notmuch-show-get-message-id) nil))) (notmuch-show-set-tags (sort (set-difference tags toremove :test 'string=) 'string<)))))) (defun notmuch-show-archive-thread-maybe-mark-read (markread) |