Minor change

R/leMsMs.r

@@ -457,6 +457,8 @@ analyzeMsMs <- function(msmsPeaks, mode="pH", detail=FALSE, run="preliminary",
 	## );
 	.checkMbSettings()
 	
+	if(msmsPeaks@found == FALSE)
+		return(msmsPeaks)
 	
 	# Check whether the spectra can be fitted to the spectra list correctly!
 	if(length(msmsPeaks@children) != length(spectraList))
@@ -469,9 +471,6 @@ analyzeMsMs <- function(msmsPeaks, mode="pH", detail=FALSE, run="preliminary",
 		
 	}
 	
-	if(msmsPeaks@found == FALSE)
-		return(msmsPeaks)
-	
 	if(method=="formula")
 	{
 		r <- analyzeMsMs.formula(msmsPeaks, mode, detail, run, filterSettings)