(setq btn (forward-button 1))
(error (setq btn nil)))
))
- (beginning-of-buffer)
+ (goto-char (point-min))
))))
)))
(get-text-property (point) 'notmuch-search-thread-id))
(defun notmuch-search-show-thread ()
+ "Display the currently selected thread."
(interactive)
(let ((thread-id (notmuch-search-find-thread-id)))
(if (> (length thread-id) 0)
(let ((words action-split))
(when (null words) (error "No operation given"))
(while words
- (unless (string-match-p "^[\+\-][_\+\-\\w]+$" (car words))
+ (unless (string-match-p "^[-+][-+_.[:word:]]+$" (car words))
(error "Action must be of the form `+thistag -that_tag'"))
(setq words (cdr words))))
(apply 'notmuch-call-notmuch-process "tag"