# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 748596860 0
# Node ID 0e239209a6dbafdbebee3974965edf6f223e1e40
# Parent  a57b0b715c0436a8a283447a0c1dcf1b33fd1098
(rmail-convert-file): If the file is empty, don't convert it after
inserting the BABYL header.

diff -r a57b0b715c04 -r 0e239209a6db lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Sep 21 07:32:51 1993 +0000
+++ b/lisp/mail/rmail.el	Tue Sep 21 07:34:20 1993 +0000
@@ -269,7 +269,11 @@
 	   ;; so we don't lose the Labels: file attribute, etc.
 	   (let ((buffer-read-only nil))
 	     (insert "BABYL OPTIONS: -*- rmail -*-\n")))
+	  ((equal (point-min) (point-max))
+	   ;; Empty RMAIL file.  Just insert the header.
+	   (rmail-insert-rmail-file-header))
 	  (t
+	   ;; Non-empty file in non-RMAIL format.  Add header and convert.
 	   (setq convert t)
 	   (rmail-insert-rmail-file-header)))
     ;; If file was not a Babyl file or if there are
@@ -292,8 +296,8 @@
 	  (rmail-convert-to-babyl-format)
 	  (message "Converting to Babyl format...done")))))
 
-; I have checked that adding "-*- rmail -*-" to the BABYL OPTIONS line
-; will not cause emacs 18.55 problems.
+;;; I have checked that adding "-*- rmail -*-" to the BABYL OPTIONS line
+;;; will not cause emacs 18.55 problems.
 
 (defun rmail-insert-rmail-file-header ()
   (let ((buffer-read-only nil))
@@ -1830,7 +1834,9 @@
 			       rmail-current-message)))
 	  (save-excursion
 	    ;; Insert after header separator--before signature if any.
-	    (search-forward-regexp (concat "^" mail-header-separator))
+	    (goto-char (point-min))
+	    (search-forward-regexp
+	     (concat "^" (regexp-quote mail-header-separator)))
 	    (forward-line 1)
 	    (insert-buffer forward-buffer))))))