[Emacs-diffs] emacs/lisp/mail rmail.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/27 23:02:01

Modified files:
        lisp/mail      : rmail.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.472&r2=1.473

Patches:
Index: rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.472
retrieving revision 1.473
diff -u -b -r1.472 -r1.473
--- rmail.el    27 Jan 2009 08:32:56 -0000      1.472
+++ rmail.el    27 Jan 2009 23:02:00 -0000      1.473
@@ -917,6 +917,9 @@
 (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