All we have here so far is 'n' and 'p' for going to next and
previous lines respectively.
; Authors: Roland McGrath <roland@gnu.org>,
; Daniel Pfeiffer <occitan@esperanto.org>
; Authors: Roland McGrath <roland@gnu.org>,
; Daniel Pfeiffer <occitan@esperanto.org>
+(defvar notmuch-search-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "n" 'next-line)
+ (define-key map "p" 'previous-line)
+ map)
+ "Keymap for \"notmuch search\" buffers.")
+(fset 'notmuch-search-mode-map notmuch-search-mode-map)
+
;;;###autoload
(defun notmuch-search-mode ()
"Major mode for handling the output of notmuch search"
(interactive)
(kill-all-local-variables)
;;;###autoload
(defun notmuch-search-mode ()
"Major mode for handling the output of notmuch search"
(interactive)
(kill-all-local-variables)
+ (use-local-map notmuch-search-mode-map)
(setq major-mode 'notmuch-search-mode
mode-name "notmuch-search")
(setq buffer-read-only t))
(setq major-mode 'notmuch-search-mode
mode-name "notmuch-search")
(setq buffer-read-only t))
(interactive "sNotmuch search: ")
(let ((buffer (get-buffer-create (concat "*notmuch-search-" query))))
(switch-to-buffer buffer)
(interactive "sNotmuch search: ")
(let ((buffer (get-buffer-create (concat "*notmuch-search-" query))))
(switch-to-buffer buffer)
- (setq buffer-read-only t)
(let ((proc (get-buffer-process (current-buffer)))
(inhibit-read-only t))
(if proc
(let ((proc (get-buffer-process (current-buffer)))
(inhibit-read-only t))
(if proc
(defun notmuch ()
"Run notmuch to display all mail with tag of 'inbox'"
(interactive)
(defun notmuch ()
"Run notmuch to display all mail with tag of 'inbox'"
(interactive)
(notmuch-search "tag:inbox"))
(notmuch-search "tag:inbox"))