# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1228942592 0
# Node ID 1afe9b0dcf0e245f8685e49a9dbebab9e89f7830
# Parent  c948e869333348966cb6a422eace36bf4d4dca57
(pmail-output-to-pmail-file): Don't call
pmail-insert-pmail-file-header.

diff -r c948e8693333 -r 1afe9b0dcf0e lisp/mail/pmailout.el
--- a/lisp/mail/pmailout.el	Wed Dec 10 20:56:16 2008 +0000
+++ b/lisp/mail/pmailout.el	Wed Dec 10 20:56:32 2008 +0000
@@ -113,11 +113,11 @@
 ;;; look at them before you change the calling method.
 ;;;###autoload
 (defun pmail-output-to-pmail-file (file-name &optional count stay)
-  "Append the current message to an Pmail file named FILE-NAME.
+  "Append the current message to a Babyl file named FILE-NAME.
 If the file does not exist, ask if it should be created.
 If file is being visited, the message is appended to the Emacs
 buffer visiting that file.
-If the file exists and is not an Pmail file, the message is
+If the file exists and is not a Babyl file, the message is
 appended in inbox format, the same way `pmail-output' does it.
 
 The default file name comes from `pmail-default-pmail-file',
@@ -146,7 +146,13 @@
 	    (let ((file-buffer (create-file-buffer file-name)))
 	      (save-excursion
 		(set-buffer file-buffer)
-		(pmail-insert-pmail-file-header)
+		(let ((buffer-read-only nil))
+		  (insert "BABYL OPTIONS: -*- pmail -*-
+Version: 5
+Labels:
+Note:   This is the header of an pmail file.
+Note:   If you are seeing it in pmail,
+Note:    it means the file has no messages in it.\n\^_"))
 		(let ((require-final-newline nil)
 		      (coding-system-for-write
 		       (or pmail-file-coding-system