From acdc9988a2a502accad860a116b094b0a1f62008 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Sat, 31 Oct 2009 01:55:12 -0700 Subject: [PATCH] notmuch.el: Add final '*' to generated buffer names. Just looks a little neater that way. --- notmuch.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/notmuch.el b/notmuch.el index 010fc2ff..c97f3f53 100644 --- a/notmuch.el +++ b/notmuch.el @@ -51,7 +51,7 @@ (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))) @@ -96,10 +96,16 @@ (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: ") - (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))) -- 2.26.2