Lines Matching refs:ancestor
39 ;; together implies that the unindented message is an ancestor of the
136 (defun mh-thread-ancestor (&optional thread-root-flag)
137 "Display ancestor of current message.
151 (while (mh-thread-immediate-ancestor))
154 (message "Message has no ancestor"))
155 (t (mh-thread-immediate-ancestor)
267 (defun mh-thread-immediate-ancestor ()
268 "Jump to immediate ancestor in thread tree."
271 (ancestor-level (- (mh-thread-current-indentation-level) 2))
273 (if (< ancestor-level 0)
276 (when (equal ancestor-level (mh-thread-current-indentation-level))
400 Doesn't make any changes if CHILD is already an ancestor of
409 (not (mh-thread-ancestor-p child-container parent-container))
410 (not (mh-thread-ancestor-p parent-container child-container)))
444 (defun mh-thread-ancestor-p (ancestor successor)
445 "Return t if ANCESTOR is really an ancestor of SUCCESSOR and nil otherwise.
450 (when (eq ancestor successor) (return t))
750 (defvar mh-thread-last-ancestor)
757 (mh-thread-last-ancestor nil))
763 (setq mh-thread-last-ancestor nil)
793 (mh-thread-ancestor-p mh-thread-last-ancestor tree))
798 (setq mh-thread-last-ancestor tree)
799 (while (mh-container-parent mh-thread-last-ancestor)
800 (setq mh-thread-last-ancestor
801 (mh-container-parent mh-thread-last-ancestor))))