X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-multi.el;h=2e52de35c7b9168b8e7752f9b354f4977fe3a637;hb=382d7519f582a3d8dc6b524b5bf002510bcc9338;hp=c95d4ab7a933473274166c8120c6b6530cfd7b1f;hpb=8c6d4ff5b1b5f31bf0321abd5d095a9d09939bea;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index c95d4ab..2e52de3 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -353,11 +353,10 @@
 	    (nconc
 	     numbers
 	     (mapcar
-	      (function
-	       (lambda (x)
-		 (+
-		  (* (elmo-multi-folder-divide-number-internal
-		      folder) cur-number) x)))
+	      (lambda (x)
+		(+
+		 (* (elmo-multi-folder-divide-number-internal
+		     folder) cur-number) x))
 	      list)))
       (setq flds (cdr flds)))
     numbers))
@@ -405,13 +404,12 @@
       (setq cur-number (+ cur-number 1))
       (setq matches (append matches
 			    (mapcar
-			     (function
-			      (lambda (x)
-				(+
-				 (* (elmo-multi-folder-divide-number-internal
-				     folder)
-				    cur-number)
-				 x)))
+			     (lambda (x)
+			       (+
+				(* (elmo-multi-folder-divide-number-internal
+				    folder)
+				   cur-number)
+				x))
 			     (elmo-folder-search
 			      (car flds) condition))))
       (setq flds (cdr flds)))
@@ -497,11 +495,10 @@
 	    (nconc
 	     numbers
 	     (mapcar
-	      (function
-	       (lambda (x)
-		 (+
-		  (* (elmo-multi-folder-divide-number-internal folder)
-		     cur-number) x)))
+	      (lambda (x)
+		(+
+		 (* (elmo-multi-folder-divide-number-internal folder)
+		    cur-number) x))
 	      (elmo-folder-list-flagged child flag in-msgdb)))))
     numbers))