Source

mail-lib / rfc822.el

Diff from to

rfc822.el

 	    (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