Anonymous avatar 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.)

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
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.