(mail-file-babyl-p): Function moved from rmail.el and renamed.

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 6cf718060c7bcc0b41b3a8ace0b78d6a189cb13e..26ad072293ee1652de232b66ee7f8cff57bbdaf4 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -38,6 +38,17 @@
 Otherwise, (the default) use a smaller, somewhat faster, and
 often correct parser.")
 
+;; Returns t if file FILE is an Rmail file.
+;;;###autoload
+(defun mail-file-babyl-p (file)
+  (let ((buf (generate-new-buffer " *rmail-file-p*")))
+    (unwind-protect
+       (save-excursion
+         (set-buffer buf)
+         (insert-file-contents file nil 0 100)
+         (looking-at "BABYL OPTIONS:"))
+      (kill-buffer buf))))
+
 (defun mail-string-delete (string start end)
   "Returns a string containing all of STRING except the part
 from START (inclusive) to END (exclusive)."