diff options
| author | Chong Yidong | 2009-01-27 23:02:00 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-01-27 23:02:00 +0000 |
| commit | eb7f6f5b5c44a7eb52c45e4838004aeaf687031c (patch) | |
| tree | 5d6762a76b87ecaea9a64ace07428eab9b3ee234 | |
| parent | eaf49a68640f9208c61de638b1a5f3b330cb1850 (diff) | |
| download | emacs-eb7f6f5b5c44a7eb52c45e4838004aeaf687031c.tar.gz emacs-eb7f6f5b5c44a7eb52c45e4838004aeaf687031c.zip | |
(rmail-convert-babyl-to-mbox): Prompt user before converting.
| -rw-r--r-- | lisp/mail/rmail.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index fe4fd452c49..8f65ba293fe 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -917,6 +917,9 @@ MSGNUM, if present, indicates the malformed message." | |||
| 917 | (defun rmail-convert-babyl-to-mbox () | 917 | (defun rmail-convert-babyl-to-mbox () |
| 918 | "Convert the mail file from Babyl version 5 to mbox. | 918 | "Convert the mail file from Babyl version 5 to mbox. |
| 919 | This function also reinitializes local variables used by Rmail." | 919 | This function also reinitializes local variables used by Rmail." |
| 920 | (unless (y-or-n-p "Babyl mail file detected. Rmail now uses mbox format for mail files. | ||
| 921 | Convert Babyl mail file to mbox format? ") | ||
| 922 | (error "Aborted")) | ||
| 920 | (let ((old-file (make-temp-file "rmail")) | 923 | (let ((old-file (make-temp-file "rmail")) |
| 921 | (new-file (make-temp-file "rmail"))) | 924 | (new-file (make-temp-file "rmail"))) |
| 922 | (unwind-protect | 925 | (unwind-protect |