Function: mh-goto-cur-msg

mh-goto-cur-msg is an autoloaded and byte-compiled function defined in mh-folder.el.gz.

Signature

(mh-goto-cur-msg &optional MINIMAL-CHANGES-FLAG)

Documentation

Position the cursor at the current message.

When optional argument MINIMAL-CHANGES-FLAG is non-nil, the function doesn't recenter the folder buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-folder.el.gz
;;;###mh-autoload
(defun mh-goto-cur-msg (&optional minimal-changes-flag)
  "Position the cursor at the current message.
When optional argument MINIMAL-CHANGES-FLAG is non-nil, the
function doesn't recenter the folder buffer."
  (let ((cur-msg (car (mh-seq-to-msgs 'cur))))
    (cond ((and cur-msg
                (mh-goto-msg cur-msg t t))
           (unless minimal-changes-flag
             (mh-notate-cur)
             (mh-recenter 0)
             (mh-maybe-show cur-msg)))
          (t
           (setq overlay-arrow-position nil)
           (message "No current message")))))