* wl-address.el (wl-address-concat-token): Fix typo.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b4fe30a..2e4b33f 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-16  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-address.el (wl-address-concat-token): Fix typo.
+
 2008-02-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-score.el (wl-score-put-alike): Use quote instead of backquote.

diff --git a/wl/wl-address.el b/wl/wl-address.el
index 49f8f91..d41537d 100644 (file)
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -623,7 +623,7 @@ Deletion is done by using `elmo-list-delete'."
   `(cond
     ((eq 'quoted-string (car ,token))
      (concat ,string "\"" (cdr ,token) "\""))
-    ((eq 'comment (car (, token)))
+    ((eq 'comment (car ,token))
      (concat ,string "(" (cdr ,token) ")"))
     (t
      (concat ,string (cdr ,token)))))