Commits

Anonymous committed feef86b

2001-08-01 Simon Josefsson <jas@extundo.com>

* rfc822.el (rfc822-goto-eoh): Add compatibility
`rfc822-goto-eoh'. (Emacs has it in simple.el.)

  • Participants
  • Parent commits 9f66e2b

Comments (0)

Files changed (2)

+2001-08-01  Simon Josefsson  <jas@extundo.com>
+
+	* rfc822.el (rfc822-goto-eoh): Add compatibility
+	`rfc822-goto-eoh'. (Emacs has it in simple.el.)
+
 2001-07-30  Simon Josefsson  <jas@extundo.com>
 
 	* smtpmail.el (smtpmail-via-smtp): Send EHLO/HELO again after
 	    (nreverse list)))
       (and buf (kill-buffer buf))))))
 
+;; XEmacs addition (from Emacs simple.el)
+(when (not (fboundp 'rfc822-goto-eoh))
+  (defun rfc822-goto-eoh ()
+    ;; Go to header delimiter line in a mail message, following RFC822 rules
+    (goto-char (point-min))
+    (while (looking-at "^[^: \n]+:\\|^[ \t]")
+      (forward-line 1))
+    (point)))
+
 (provide 'rfc822)
 
 ;;; rfc822.el ends here