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

conversion.

diff --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el
index e3e683bdae87b901a87191a2a6d55149237e05e6..1549d98ac084a4d4d67256fd857d20644ac5b7a6 100644 (file)
--- a/lisp/mail/pmail.el
+++ b/lisp/mail/pmail.el
@@ -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")))
     (unwind-protect
        (progn
+         (kill-all-local-variables)
          (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))
            (erase-buffer)
            (insert-file-contents-literally new-file)
+           (pmail-mode-1)
+           (pmail-perm-variables)
+           (pmail-variables)
            (goto-char (point-max))
            (pmail-set-message-counters))
          (message "Replacing BABYL format with mbox format...done"))