Mercurial > emacs
changeset 100339:1afe9b0dcf0e
(pmail-output-to-pmail-file): Don't call
pmail-insert-pmail-file-header.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 10 Dec 2008 20:56:32 +0000 |
| parents | c948e8693333 |
| children | c06b84bf19a5 |
| files | lisp/mail/pmailout.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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