diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-09-21 20:20:11 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-09-21 20:20:11 +0000 |
commit | d57890f046f250e8bfd9e20c0025d7b583600b56 (patch) | |
tree | 0953b861d9e3b2e74c8f198e19eaa8ece69efd69 /lisp/mail | |
parent | 2914e033e5c10dfc938daa4dc9adeca9ced585cb (diff) | |
download | emacs-d57890f046f250e8bfd9e20c0025d7b583600b56.tar.gz |
(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.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/rmailout.el | 15 |
1 files 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)) |