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

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index 29a9d63..0c94f92 100644
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -508,7 +508,7 @@ TYPE specifies the archiver's symbol."
 					  nil)))
 	     (regexp (format "^\\(.*\\)\\(%s\\)$"
 			     (mapconcat
-			      '(lambda (x) (regexp-quote (cdr x)))
+			      (lambda (x) (regexp-quote (cdr x)))
 			      elmo-archive-suffix-alist
 			      "\\|"))))
 	(if (string-match "\\(.*\\)/$" base-folder) ; ends with '/'.
@@ -518,29 +518,29 @@ TYPE specifies the archiver's symbol."
 	(delq
 	 nil
 	 (mapcar
-	  '(lambda (x)
-	     (when (and (string-match regexp x)
-			(eq suffix
-			    (car
-			     (rassoc (elmo-match-string 2 x)
-				     elmo-archive-suffix-alist))))
-	       (format "%s%s;%s%s"
-		       (elmo-folder-prefix-internal folder)
-		       (elmo-concat-path base-folder (elmo-match-string 1 x))
-		       suffix prefix)))
+	  (lambda (x)
+	    (when (and (string-match regexp x)
+		       (eq suffix
+			   (car
+			    (rassoc (elmo-match-string 2 x)
+				    elmo-archive-suffix-alist))))
+	      (format "%s%s;%s%s"
+		      (elmo-folder-prefix-internal folder)
+		      (elmo-concat-path base-folder (elmo-match-string 1 x))
+		      suffix prefix)))
 	  flist)))
     (elmo-mapcar-list-of-list
-     (function (lambda (x)
-		 (if (file-exists-p
-		      (expand-file-name
-		       (concat elmo-archive-basename
-			       (elmo-archive-get-suffix
-				(elmo-archive-folder-archive-type-internal
-				 folder)))
-		       (expand-file-name
-			x
-			(elmo-archive-folder-path folder))))
-		     (concat (elmo-folder-prefix-internal folder) x))))
+     (lambda (x)
+       (if (file-exists-p
+	    (expand-file-name
+	     (concat elmo-archive-basename
+		     (elmo-archive-get-suffix
+		      (elmo-archive-folder-archive-type-internal
+		       folder)))
+	     (expand-file-name
+	      x
+	      (elmo-archive-folder-path folder))))
+	   (concat (elmo-folder-prefix-internal folder) x)))
      (elmo-list-subdirectories
       (elmo-archive-folder-path folder)
       (or (elmo-archive-folder-dir-name-internal folder) "")
@@ -667,7 +667,7 @@ TYPE specifies the archiver's symbol."
 		(setq base-dir (expand-file-name ".." temp-dir)))
 	      (setq files
 		    (mapcar
-		     '(lambda (x) (elmo-concat-path prefix x))
+		     (lambda (x) (elmo-concat-path prefix x))
 		     (directory-files temp-dir nil "^[^\\.]")))
 	      (unless (elmo-archive-append-files folder
 						 base-dir
@@ -776,9 +776,9 @@ TYPE specifies the archiver's symbol."
 	 (arc (elmo-archive-get-archive-name folder))
 	 (p-method (elmo-archive-get-method type 'rm-pipe))
 	 (n-method (elmo-archive-get-method type 'rm))
-	 (numbers (mapcar '(lambda (x) (elmo-concat-path
-					prefix
-					(int-to-string x)))
+	 (numbers (mapcar (lambda (x) (elmo-concat-path
+				       prefix
+				       (int-to-string x)))
 			  numbers)))
     (cond ((functionp n-method)
 	   (funcall n-method (cons arc numbers)))
@@ -991,7 +991,7 @@ TYPE specifies the archiver's symbol."
 	(insert
 	 (mapconcat
 	  'concat
-	  (mapcar '(lambda (x) (elmo-concat-path prefix (int-to-string x))) msgs)
+	  (mapcar (lambda (x) (elmo-concat-path prefix (int-to-string x))) msgs)
 	  "\n"))
 	(as-binary-process (apply 'call-process-region
 				  (point-min) (point-max)