Mercurial > emacs

changeset 101591:5d6ccf83e955

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-convert-babyl-to-mbox): Prompt user before converting.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 27 Jan 2009 23:02:00 +0000
parents 1481d448dfc9
children af8051ca04f7
files lisp/mail/rmail.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Tue Jan 27 23:01:50 2009 +0000
+++ b/lisp/mail/rmail.el	Tue Jan 27 23:02:00 2009 +0000
@@ -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