diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-09-21 20:20:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-09-21 20:20:49 +0000 |
| commit | 996792b15038e452652fdfa121d8cc5f552d833c (patch) | |
| tree | ba52eb66d3af4435db11e02f5da5e41d1e40dee8 /lisp/mail/mail-utils.el | |
| parent | ecf1f7000921197b7b923e63e9423e65dd72bb43 (diff) | |
| download | emacs-996792b15038e452652fdfa121d8cc5f552d833c.tar.gz | |
(mail-file-babyl-p): Function moved from rmail.el and renamed.
Diffstat (limited to 'lisp/mail/mail-utils.el')
| -rw-r--r-- | lisp/mail/mail-utils.el | 11 |
1 files changed, 11 insertions, 0 deletions
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)." |