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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/12/05 20:43:18

Modified files:
        lisp/mail      : pmail.el 

Log message:
        (pmail-convert-babyl-to-mbox): Reinitialize pmail-mode variables after
        conversion.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.22&r2=1.23

Patches:
Index: pmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- pmail.el    4 Dec 2008 22:50:50 -0000       1.22
+++ pmail.el    5 Dec 2008 20:43:18 -0000       1.23
@@ -945,17 +945,23 @@
     (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"))