From: yoichi <yoichi>
Date: Wed, 20 Jun 2007 15:16:34 +0000 (+0000)
Subject: fix typo
X-Git-Tag: wl-2_15_6-fixes~81
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=19f366444d2fe5b2a289c0879636d0251f709495;p=elisp%2Fwanderlust.git

fix typo
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 3b0b9df..9537bb3 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1032,15 +1032,15 @@ This function is defined by `wl-summary-define-sort-command'." sort-by)
 	     (wl-summary-rescan ,(symbol-name sort-by) reverse)))))
 
 (defun wl-summary-sort-function-from-spec (spec reverse)
-  (let (funtion)
+  (let (function)
     (when (string-match "^!\\(.+\\)$" spec)
       (setq spec (match-string 1 spec)
 	    reverse (not reverse)))
-    (setq funtion
+    (setq function
 	  (intern (format "wl-summary-overview-entity-compare-by-%s" spec)))
     (if reverse
-	`(lambda (x y) (not (,funtion x y)))
-      funtion)))
+	`(lambda (x y) (not (,function x y)))
+      function)))
 
 (defun wl-summary-sort-messages (numbers sort-by reverse)
   (let* ((functions (mapcar