mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1995-09-21 20:20:49 +00:00
parent ecf1f70009
commit 996792b150
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/mail/mail-utils.el
View File

@ -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)."