debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Add final '*' to generated buffer names.

Browse source 
Just looks a little neater that way.
This commit is contained in:
Carl Worth 2009-10-31 01:55:12 -07:00
parent 1c75d622c9
commit acdc9988a2
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
notmuch.el
View file

@ -51,7 +51,7 @@
(defun notmuch-show (thread-id) (defun notmuch-show (thread-id)
"Run \"notmuch show\" with the given thread ID and display results." "Run \"notmuch show\" with the given thread ID and display results."
(interactive "sNotmuch show: ") (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) (switch-to-buffer buffer)
(notmuch-show-mode) (notmuch-show-mode)
(let ((proc (get-buffer-process (current-buffer))) (let ((proc (get-buffer-process (current-buffer)))
@ -96,10 +96,16 @@
(interactive) (interactive)
(notmuch-show (notmuch-search-find-thread-id))) (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) (defun notmuch-search (query)
"Run \"notmuch search\" with the given query string and display results." "Run \"notmuch search\" with the given query string and display results."
(interactive "sNotmuch search: ") (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) (switch-to-buffer buffer)
(notmuch-search-mode) (notmuch-search-mode)
(let ((proc (get-buffer-process (current-buffer))) (let ((proc (get-buffer-process (current-buffer)))