mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-20 10:23:57 +00:00
Code Issues Releases Activity

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

Browse Source 
conversion.
This commit is contained in:
Chong Yidong 2008-12-05 20:43:18 +00:00
parent cab320968e
commit c786a92921
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/pmail.el
View File

@ -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"))