From eb7f6f5b5c44a7eb52c45e4838004aeaf687031c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 27 Jan 2009 23:02:00 +0000 Subject: [PATCH] (rmail-convert-babyl-to-mbox): Prompt user before converting. --- lisp/mail/rmail.el | 3 +++ 1 file changed, 3 insertions(+) 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 -- 2.39.5