diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-01-27 23:02:00 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-01-27 23:02:00 +0000 |
| commit | eb7f6f5b5c44a7eb52c45e4838004aeaf687031c (patch) | |
| tree | 5d6762a76b87ecaea9a64ace07428eab9b3ee234 /lisp | |
| parent | eaf49a68640f9208c61de638b1a5f3b330cb1850 (diff) | |
| download | emacs-eb7f6f5b5c44a7eb52c45e4838004aeaf687031c.tar.gz emacs-eb7f6f5b5c44a7eb52c45e4838004aeaf687031c.tar.bz2 emacs-eb7f6f5b5c44a7eb52c45e4838004aeaf687031c.zip | |
(rmail-convert-babyl-to-mbox): Prompt user before converting.
Diffstat (limited to 'lisp')
| -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." (defun rmail-convert-babyl-to-mbox () "Convert the mail file from Babyl version 5 to mbox. This function also reinitializes local variables used by Rmail." + (unless (y-or-n-p "Babyl mail file detected. Rmail now uses mbox format for mail files. +Convert Babyl mail file to mbox format? ") + (error "Aborted")) (let ((old-file (make-temp-file "rmail")) (new-file (make-temp-file "rmail"))) (unwind-protect |