diff --git a/ChangeLog b/ChangeLog
index ffab7758..29c8828a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -14,6 +14,8 @@ v0.61.3		25-Jul-2004
 	mbfido:
 		Changed netmail counters in the .msg import function.
 		Fixed logging of 0 articles in scannews.
+		With the command "mbfido areas" without the -q option the user
+		must confirm this action.
 
 	mbfile:
 		Fixed a bug where "mbfile k p i" didn't give the help screen.
diff --git a/TODO b/TODO
index 3d131ccb..f9d2d9b2 100644
--- a/TODO
+++ b/TODO
@@ -114,9 +114,6 @@ mbfido:
 
 	N: Hatch statistics are not updated.
 
-	N: If areas command is given without -quiet, ask user if he/she really
-	   want's to do this.
-
 mbcico:
 	L: Implement binkp option ND.
 
diff --git a/mbfido/mbfido.c b/mbfido/mbfido.c
index 9bcfea17..d2c04953 100644
--- a/mbfido/mbfido.c
+++ b/mbfido/mbfido.c
@@ -254,7 +254,7 @@ void die(int onsig)
 
 int main(int argc, char **argv)
 {
-    int		    i, Loop, envrecip_count = 0;
+    int		    i, x, Loop, envrecip_count = 0;
     char	    *p, *cmd, *temp, Options[81];
     struct passwd   *pw;
     struct tm	    *t;
@@ -602,8 +602,19 @@ int main(int argc, char **argv)
 	MakeStat();
     if (do_uucp)
 	NewsUUCP();
-    if (do_areas)
+    if (do_areas) {
+	if (!do_quiet) {
+	    colour(LIGHTGREEN, BLACK);
+	    printf("Are you sure to process all area lists [y/N] ");
+	    fflush(stdout);
+	    x = Getone();
+	    printf("\r                                             \r");
+	    fflush(stdout);
+	    if (toupper(x) != 'Y')
+		die(MBERR_OK);
+	}
 	Areas();
+    }
     if (do_flush)
 	flush_queue();