From 996792b15038e452652fdfa121d8cc5f552d833c Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 21 Sep 1995 20:20:49 +0000
Subject: [PATCH] (mail-file-babyl-p): Function moved from rmail.el and
 renamed.

---
 lisp/mail/mail-utils.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 6cf718060c7..26ad072293e 100644
--- 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)."
-- 
2.39.2