Commit c786a929 authored by Chong Yidong's avatar Chong Yidong
Browse files

(pmail-convert-babyl-to-mbox): Reinitialize pmail-mode variables after

parent cab32096
......@@ -945,17 +945,23 @@ MSGNUM, if present, indicates the malformed message."
(error "Invalid mbox format mail file.")))
(defun pmail-convert-babyl-to-mbox ()
"Convert the mail file from Babyl version 5 to mbox."
"Convert the mail file from Babyl version 5 to mbox.
This function also reinitializes local variables used by Pmail."
(let ((old-file (make-temp-file "pmail"))
(new-file (make-temp-file "pmail")))
(write-region (point-min) (point-max) old-file)
(unrmail old-file new-file)
(unrmail old-file "/home/cyd/pmail-test")
(message "Replacing BABYL format with mbox format...")
(let ((inhibit-read-only t))
(insert-file-contents-literally new-file)
(goto-char (point-max))
(message "Replacing BABYL format with mbox format...done"))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment