Mercurial > emacs
changeset 13054:b2df0396fae2
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 21 Sep 1995 20:20:11 +0000 |
| parents | 621d48117fde |
| children | d94531fd96a4 |
| files | lisp/mail/rmailout.el |
| diffstat | 1 files changed, 2 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailout.el Thu Sep 21 03:11:06 1995 +0000 +++ b/lisp/mail/rmailout.el Thu Sep 21 20:20:11 1995 +0000 @@ -84,7 +84,7 @@ (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 @@ (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 @@ (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))