Function: message-position-point

message-position-point is a byte-compiled function defined in message.el.gz.

Signature

(message-position-point)

Documentation

Move point to where the user probably wants to find it.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-position-point ()
  "Move point to where the user probably wants to find it."
  (message-narrow-to-headers)
  (cond
   ((re-search-forward "^[^:]+:[ \t]*$" nil t)
    (search-backward ":" )
    (widen)
    (forward-char 1)
    (if (eq (char-after) ? )
	(forward-char 1)
      (insert " ")))
   (t
    (goto-char (point-max))
    (widen)
    (forward-line 1)
    (unless (looking-at "$")
      (forward-line 2)))
   (sit-for 0)))