- (if (>= cite-lines notmuch-show-citation-lines-min)
- (notmuch-show-region-to-button
- cite-start cite-end
- "citation"
- indent
- (format notmuch-show-citation-button-format cite-lines)
- ))))
+ (when (> cite-lines (1+ notmuch-show-citation-lines-prefix))
+ (goto-char cite-start)
+ (forward-line notmuch-show-citation-lines-prefix)
+ (notmuch-show-region-to-button
+ (point) cite-end
+ "citation"
+ indent
+ (format notmuch-show-citation-button-format
+ (- cite-lines notmuch-show-citation-lines-prefix))
+ ))))