notmuch.el: Add final '*' to generated buffer names.
authorCarl Worth <cworth@cworth.org>
Sat, 31 Oct 2009 08:55:12 +0000 (01:55 -0700)
committerCarl Worth <cworth@cworth.org>
Sat, 31 Oct 2009 08:55:12 +0000 (01:55 -0700)
Just looks a little neater that way.

notmuch.el

index 010fc2ff048a883db1a27400f59b64ca89ba0b4a..c97f3f53e8adf73959e6c4cef66ec199d61ecbcd 100644 (file)
@@ -51,7 +51,7 @@
 (defun notmuch-show (thread-id)
   "Run \"notmuch show\" with the given thread ID and display results."
   (interactive "sNotmuch show: ")
 (defun notmuch-show (thread-id)
   "Run \"notmuch show\" with the given thread ID and display results."
   (interactive "sNotmuch show: ")
-  (let ((buffer (get-buffer-create (concat "*notmuch-show-" thread-id))))
+  (let ((buffer (get-buffer-create (concat "*notmuch-show-" thread-id "*"))))
     (switch-to-buffer buffer)
     (notmuch-show-mode)
     (let ((proc (get-buffer-process (current-buffer)))
     (switch-to-buffer buffer)
     (notmuch-show-mode)
     (let ((proc (get-buffer-process (current-buffer)))
   (interactive)
   (notmuch-show (notmuch-search-find-thread-id)))
 
   (interactive)
   (notmuch-show (notmuch-search-find-thread-id)))
 
+(defun notmuch-search-archive-thread ()
+  (interactive)
+  (if (eq (call-process "notmuch" nil (get-buffer-create "*Messages*") nil "tag" "-inbox" (concat "thread:" (notmuch-search-find-thread-id))) 0)
+      (let ((inhibit-read-only t))
+       (kill-whole-line))))
+
 (defun notmuch-search (query)
   "Run \"notmuch search\" with the given query string and display results."
   (interactive "sNotmuch search: ")
 (defun notmuch-search (query)
   "Run \"notmuch search\" with the given query string and display results."
   (interactive "sNotmuch search: ")
-  (let ((buffer (get-buffer-create (concat "*notmuch-search-" query))))
+  (let ((buffer (get-buffer-create (concat "*notmuch-search-" query "*"))))
     (switch-to-buffer buffer)
     (notmuch-search-mode)
     (let ((proc (get-buffer-process (current-buffer)))
     (switch-to-buffer buffer)
     (notmuch-search-mode)
     (let ((proc (get-buffer-process (current-buffer)))