Function: mh-thread-ancestor

mh-thread-ancestor is an autoloaded, interactive and byte-compiled function defined in mh-thread.el.gz.

Signature

(mh-thread-ancestor &optional THREAD-ROOT-FLAG)

Documentation

Display ancestor of current message.

If you do not care for the way a particular thread has turned, you can move up the chain of messages with this command. This command can also take a prefix argument THREAD-ROOT-FLAG to jump to the message that started everything.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-thread.el.gz
;;; MH-Folder Commands

;;;###mh-autoload
(defun mh-thread-ancestor (&optional thread-root-flag)
  "Display ancestor of current message.

If you do not care for the way a particular thread has turned,
you can move up the chain of messages with this command. This
command can also take a prefix argument THREAD-ROOT-FLAG to jump
to the message that started everything."
  (interactive "P")
  (beginning-of-line)
  (cond ((not (memq 'unthread mh-view-ops))
         (error "Folder isn't threaded"))
        ((eobp)
         (error "No message at point")))
  (let ((current-level (mh-thread-current-indentation-level)))
    (cond (thread-root-flag
           (while (mh-thread-immediate-ancestor))
           (mh-maybe-show))
          ((equal current-level 0)
           (message "Message has no ancestor"))
          (t (mh-thread-immediate-ancestor)
             (mh-maybe-show)))))