Mercurial > emacs
changeset 3757:02c40620b4de
(rmail-output): Use insert-file-contents to look at
beginning of output file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 16 Jun 1993 19:24:34 +0000 |
| parents | ff9679293922 |
| children | e212a0863773 |
| files | lisp/mail/rmailout.el |
| diffstat | 1 files changed, 8 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailout.el Wed Jun 16 17:51:16 1993 +0000 +++ b/lisp/mail/rmailout.el Wed Jun 16 19:24:34 1993 +0000 @@ -162,16 +162,14 @@ ;; If we can do it, read a little of the file ;; to check whether it is an RMAIL file. ;; If it is, don't mess it up. - (if (fboundp 'insert-partial-file-contents) - (progn - (insert-partial-file-contents file-name 0 20) - (if (looking-at "BABYL OPTIONS:\n") - (error (save-excursion - (set-buffer rmailbuf) - (substitute-command-keys - "File %s is an RMAIL file; use the \\[rmail-output-to-rmail-file] command")) - file-name)) - (erase-buffer))) + (insert-file-contents file-name nil 0 20) + (if (looking-at "BABYL OPTIONS:\n") + (error (save-excursion + (set-buffer rmailbuf) + (substitute-command-keys + "Use \\[rmail-output-to-rmail-file] to output to Rmail file `%s'")) + (file-name-nondirectory file-name))) + (erase-buffer) (insert-buffer-substring rmailbuf) (insert "\n") (goto-char (point-min))