This is used to try and make sure we don't close the message pane
if the user has loaded a different buffer in that window.")
-(make-variable-buffer-local 'notmuch-pick-message-buffer-name)
-(put 'notmuch-pick-message-buffer-name 'permanent-local t)
-
-(defvar notmuch-pick-process-state nil
- "Parsing state of the search process filter.")
+(make-variable-buffer-local 'notmuch-pick-message-buffer)
+(put 'notmuch-pick-message-buffer 'permanent-local t)
(defvar notmuch-pick-mode-map
(let ((map (make-sparse-keymap)))
(fset 'notmuch-pick-mode-map notmuch-pick-mode-map)
(defun notmuch-pick-setup-show-out ()
+ "Set up the keymap for showing a thread
+
+This uses the value of the defcustom notmuch-pick-show-out to
+decide whether to show a message in the message pane or in the
+whole window."
(let ((map notmuch-pick-mode-map))
(if notmuch-pick-show-out
(progn
(notmuch-pick-get-prop :match))
(defun notmuch-pick-refresh-result ()
+ "Redisplay the current message line.
+
+This redisplays the current line based on the messages
+properties (as they are now). This is used when tags are
+updated."
(let ((init-point (point))
(end (line-end-position))
(msg (notmuch-pick-get-message-properties))
(insert (format " (process returned %d)" exit-status)))
(insert "\n")))))))))
-
-(defun notmuch-pick-show-error (string &rest objects)
- (save-excursion
- (goto-char (point-max))
- (insert "Error: Unexpected output from notmuch search:\n")
- (insert (apply #'format string objects))
- (insert "\n")))
-
-
(defun notmuch-pick-process-filter (proc string)
"Process and filter the output of \"notmuch show\" (for pick)"
(let ((results-buf (process-buffer proc))