(let ((overlay (make-overlay beg-sub end)))
(overlay-put overlay 'invisible 'notmuch-show-signature)
(overlay-put overlay 'before-string
- (concat "[" (number-to-string (count-lines beg-sub (point)))
+ (concat "[" (number-to-string (count-lines beg-sub end))
"-line signature.]"))
(goto-char end)))
(next-line))))
(progn
(notmuch-show-next-unread-message)
; But if there are no unread messages, go back to the
- ; beginning of the buffer.
+ ; beginning of the buffer, and open up the bodies of all
+ ; read message.
(if (not (notmuch-show-message-unread-p))
- (goto-char (point-min)))))
+ (progn
+ (goto-char (point-min))
+ (notmuch-show-toggle-body-read-visible)))))
)))
(defvar notmuch-search-mode-map