X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=eee4da9896434c327e545d904a058f4a0e2687d8;hb=81ad1c29f787019a56d40ddb6e971d0779de3765;hp=98db8f22e2e0333d02d72afcc98afb79f48cd9b8;hpb=e3260d025389c2e98dbda58cff1c214497813bc2;p=notmuch diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 98db8f22..eee4da98 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -803,7 +803,7 @@ a corresponding notmuch search." (remove-overlays (match-beginning 0) (match-end 0) 'goto-address t) (make-text-button (match-beginning 0) (match-end 0) 'action `(lambda (arg) - (notmuch-search ,(match-string-no-properties 0))) + (notmuch-show ,(match-string-no-properties 0))) 'follow-link t 'help-echo "Mouse-1, RET: search for this message" 'face goto-address-mail-face)))) @@ -1157,8 +1157,9 @@ current window), advance to the next open message." (ret nil)) (while (invisible-p visible-end-of-this-message) (setq visible-end-of-this-message - (previous-single-char-property-change visible-end-of-this-message - 'invisible))) + (max (point-min) + (1- (previous-single-char-property-change + visible-end-of-this-message 'invisible))))) (cond ;; Ideally we would test `end-of-this-message' against the result ;; of `window-end', but that doesn't account for the fact that