mirror of https://github.com/djcb/mu.git
mu4e: get rid of mu4e-is-mode-or-derived-p
derived-mode-p is enough
This commit is contained in:
parent
8bdf6b42a2
commit
8c1466773f
|
@ -518,10 +518,6 @@ in an external program."
|
|||
(lambda () (ignore-errors (delete-file tmpfile))))
|
||||
tmpfile))
|
||||
|
||||
(defsubst mu4e-is-mode-or-derived-p (mode)
|
||||
"Is the current mode equal to MODE or derived from it?"
|
||||
(or (eq major-mode mode) (derived-mode-p mode)))
|
||||
|
||||
(defun mu4e-display-manual ()
|
||||
"Display the mu4e manual page for the current mode.
|
||||
Or go to the top level if there is none."
|
||||
|
|
|
@ -112,8 +112,8 @@ It links to the last known query when in `mu4e-headers-mode' with
|
|||
a specific message, based on its message-id, so that links stay
|
||||
valid even after moving the message around."
|
||||
(cond
|
||||
((mu4e-is-mode-or-derived-p 'mu4e-view-mode) (mu4e--org-store-link-message))
|
||||
((mu4e-is-mode-or-derived-p 'mu4e-headers-mode)
|
||||
((derived-mode-p 'mu4e-view-mode) (mu4e--org-store-link-message))
|
||||
((derived-mode-p 'mu4e-headers-mode)
|
||||
(if mu4e-org-link-query-in-headers-mode
|
||||
(mu4e--org-store-link-query)
|
||||
(mu4e--org-store-link-message)))))
|
||||
|
|
Loading…
Reference in New Issue