Commit 5bd65b3b authored by Richard M. Stallman's avatar Richard M. Stallman

(rmail-output): Use insert-file-contents to look at

beginning of output file.
parent 76d8cb22
......@@ -162,16 +162,14 @@ When called from lisp code, N may be omitted."
;; 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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment