[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail pmailout.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/mail pmailout.el |
Date: |
Wed, 10 Dec 2008 20:56:32 +0000 |
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