Commit 996792b1 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent ecf1f700
......@@ -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.
(defun mail-file-babyl-p (file)
(let ((buf (generate-new-buffer " *rmail-file-p*")))
(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)."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment