Mercurial > emacs
comparison lisp/mail/pmail.el @ 100337:1bb4b8e45f2b
Remove debugging code.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 10 Dec 2008 20:36:47 +0000 |
| parents | 0a269d00caef |
| children | c06b84bf19a5 |
comparison
equal
deleted
inserted
replaced
| 100336:d53183123ad7 | 100337:1bb4b8e45f2b |
|---|---|
| 952 (unwind-protect | 952 (unwind-protect |
| 953 (progn | 953 (progn |
| 954 (kill-all-local-variables) | 954 (kill-all-local-variables) |
| 955 (write-region (point-min) (point-max) old-file) | 955 (write-region (point-min) (point-max) old-file) |
| 956 (unrmail old-file new-file) | 956 (unrmail old-file new-file) |
| 957 (unrmail old-file "/home/cyd/pmail-test") | |
| 958 (message "Replacing BABYL format with mbox format...") | 957 (message "Replacing BABYL format with mbox format...") |
| 959 (let ((inhibit-read-only t)) | 958 (let ((inhibit-read-only t)) |
| 960 (erase-buffer) | 959 (erase-buffer) |
| 961 (insert-file-contents-literally new-file) | 960 (insert-file-contents-literally new-file) |
| 962 (pmail-mode-1) | 961 (pmail-mode-1) |