X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;ds=sidebyside;f=notmuch.el;h=c334e2ffb9831d808d50d56815b10d9f380984af;hb=d47fc172636302af74fc4543ffc3ebd99801e9b3;hp=0fb6e5f8a8aa59b7c5f4fe705472721f18f2c5f9;hpb=0bec4692b6136eea3116d040a0e644f4bfddc433;p=notmuch
diff --git a/notmuch.el b/notmuch.el
index 0fb6e5f8..c334e2ff 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -18,18 +18,6 @@
; along with Notmuch. If not, see .
;
; Authors: Carl Worth
-;
-; Much of notmuch.el was written by looking at the implementation of
-; compile.el from the emacs distribution source which has the
-; following copyright and authorsip (and the identical license as
-; above):
-;
-; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
-; Free Software Foundation, Inc.
-
-; Authors: Roland McGrath ,
-; Daniel Pfeiffer
(defvar notmuch-show-mode-map
(let ((map (make-sparse-keymap)))
@@ -363,6 +351,7 @@ Does nothing if already on the first message in the buffer."
(interactive)
(kill-all-local-variables)
(make-local-variable 'notmuch-search-query-string)
+ (add-to-invisibility-spec 'notmuch-search)
(use-local-map notmuch-search-mode-map)
(setq major-mode 'notmuch-search-mode
mode-name "notmuch-search")
@@ -391,11 +380,15 @@ Does nothing if already on the first message in the buffer."
(defun notmuch-search-hide-thread-ids ()
(interactive)
- (add-to-invisibility-spec 'notmuch-search))
+ (add-to-invisibility-spec 'notmuch-search)
+ (force-window-update)
+ (redisplay t))
(defun notmuch-search-show-thread-ids ()
(interactive)
- (remove-from-invisibility-spec 'notmuch-search))
+ (remove-from-invisibility-spec 'notmuch-search)
+ (force-window-update)
+ (redisplay t))
(defun notmuch-search-show-thread ()
(interactive)