Function: rfc822-looking-at

rfc822-looking-at is a byte-compiled function defined in rfc822.el.gz.

Signature

(rfc822-looking-at REGEX &optional LEAVE-SPACE)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rfc822.el.gz
(defun rfc822-looking-at (regex &optional leave-space)
  (if (cond ((stringp regex)
	     (if (looking-at regex)
		 (progn (goto-char (match-end 0))
			t)))
	    (t
	     (if (and (not (eobp))
		      (= (following-char) regex))
		 (progn (forward-char 1)
			t))))
      (let ((tem (match-data)))
	(rfc822-nuke-whitespace leave-space)
	(set-match-data tem)
	t)))