Merge pull request #2036 from thierryvolpiatto/line_move_visual

Ensure mu4e~headers-move honor line-move-ignore-invisible
This commit is contained in:
Dirk-Jan C. Binnema 2021-06-17 20:33:35 +03:00 committed by GitHub
commit c3c8e53454
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 26 additions and 20 deletions

View File

@ -1843,7 +1843,13 @@ backward (if LINES is negative). If this succeeds, return the new
docid. Otherwise, return nil."
(unless (eq major-mode 'mu4e-headers-mode)
(mu4e-error "Must be in mu4e-headers-mode (%S)" major-mode))
(let* ((_succeeded (zerop (forward-line lines)))
(cl-flet ((goto-next-line
(arg)
(condition-case _err
(and (line-move arg) 0)
((beginning-of-buffer end-of-buffer)
1))))
(let* ((_succeeded (zerop (goto-next-line lines)))
(docid (mu4e~headers-docid-at-point)))
;; move point, even if this function is called when this window is not
;; visible
@ -1862,7 +1868,7 @@ docid. Otherwise, return nil."
(mu4e-headers-view-message)))
;; attempt to highlight the new line, display the message
(mu4e~headers-highlight docid)
docid)))
docid))))
(defun mu4e-headers-next (&optional n)
"Move point to the next message header.