From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 27 Jan 2009 23:02:00 +0000 (+0000)
Subject: (rmail-convert-babyl-to-mbox): Prompt user before converting.
X-Git-Tag: emacs-pretest-23.0.90~131
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb7f6f5b5c44a7eb52c45e4838004aeaf687031c;p=emacs.git

(rmail-convert-babyl-to-mbox): Prompt user before converting.
---

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