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

diff --git a/elmo/elmo-date.el b/elmo/elmo-date.el
index 7a4fe4c..7d986ea 100644
--- a/elmo/elmo-date.el
+++ b/elmo/elmo-date.el
@@ -72,24 +72,23 @@ Otherwise treat \\ in NEWTEXT string as special:
 	     (substring str prev-start match)
 	     (cond (literal newtext)
 		   (t (mapconcat
-		       (function
-			(lambda (c)
-			  (if special
-			      (progn
-				(setq special nil)
-				(cond ((eq c ?\\) "\\")
-				      ((eq c ?&)
-				       (elmo-match-string 0 str))
-				      ((and (>= c ?0) (<= c ?9))
-				       (if (> c (+ ?0 (length
-						       (match-data))))
-					   ;; Invalid match num
-					   (error "Invalid match num: %c" c)
-					 (setq c (- c ?0))
-					 (elmo-match-string c str)))
-				      (t (char-to-string c))))
-			    (if (eq c ?\\) (progn (setq special t) nil)
-			      (char-to-string c)))))
+		       (lambda (c)
+			 (if special
+			     (progn
+			       (setq special nil)
+			       (cond ((eq c ?\\) "\\")
+				     ((eq c ?&)
+				      (elmo-match-string 0 str))
+				     ((and (>= c ?0) (<= c ?9))
+				      (if (> c (+ ?0 (length
+						      (match-data))))
+					  ;; Invalid match num
+					  (error "Invalid match num: %c" c)
+					(setq c (- c ?0))
+					(elmo-match-string c str)))
+				     (t (char-to-string c))))
+			   (if (eq c ?\\) (progn (setq special t) nil)
+			     (char-to-string c))))
 		       newtext ""))))))
     (concat rtn-str (substring str start))))