From ecf1f7000921197b7b923e63e9423e65dd72bb43 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 21 Sep 1995 20:20:11 +0000 Subject: [PATCH] (rmail-file-p): Function moved to mail-utils.el and renamed to mail-file-babyl-p. (rmail-output, rmail-output-to-rmail-file): Use new name. --- lisp/mail/rmailout.el | 15 ++------------- 1 file changed, 2 insertions(+), 13 deletions(-) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 70ac0cf7df4..be43672e142 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -84,7 +84,7 @@ starting with the current one. Deleted messages are skipped and don't count." (setq file-name (expand-file-name file-name (file-name-directory rmail-default-rmail-file))) - (if (and (file-readable-p file-name) (not (rmail-file-p file-name))) + (if (and (file-readable-p file-name) (not (mail-file-babyl-p file-name))) (rmail-output file-name count) (rmail-maybe-set-message-counters) (setq file-name (abbreviate-file-name file-name)) @@ -192,17 +192,6 @@ starting with the current one. Deleted messages are skipped and don't count." (delete-region (point) (progn (forward-line 1) (point))))))))) -;; Returns t if file FILE is an Rmail file. -;;;###autoload -(defun rmail-file-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)))) - ;;; There are functions elsewhere in Emacs that use this function; check ;;; them out before you change the calling method. (defun rmail-output (file-name &optional count noattribute from-gnus) @@ -255,7 +244,7 @@ The optional fourth argument FROM-GNUS is set when called from GNUS." (expand-file-name file-name (and rmail-default-file (file-name-directory rmail-default-file)))) - (if (and (file-readable-p file-name) (rmail-file-p file-name)) + (if (and (file-readable-p file-name) (mail-file-babyl-p file-name)) (rmail-output-to-rmail-file file-name count) (let ((orig-count count) (rmailbuf (current-buffer)) -- 2.39.2