Mercurial > emacs
changeset 100255:173f33792438
(pmail-convert-babyl-to-mbox): Reinitialize pmail-mode variables after
conversion.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 05 Dec 2008 20:43:18 +0000 |
| parents | 6096a270eba8 |
| children | d6b97824a8cd |
| files | lisp/mail/pmail.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/pmail.el Fri Dec 05 20:43:11 2008 +0000 +++ b/lisp/mail/pmail.el Fri Dec 05 20:43:18 2008 +0000 @@ -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"))