[Emacs-diffs] emacs/lisp/mail pmailout.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/12/10 20:56:32

Modified files:
        lisp/mail      : pmailout.el 

Log message:
        (pmail-output-to-pmail-file): Don't call
        pmail-insert-pmail-file-header.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailout.el?cvsroot=emacs&r1=1.6&r2=1.7

Patches:
Index: pmailout.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmailout.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- pmailout.el 4 Dec 2008 22:49:30 -0000       1.6
+++ pmailout.el 10 Dec 2008 20:56:32 -0000      1.7
@@ -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