From: kaoru <kaoru>
Date: Sat, 16 Feb 2008 14:23:07 +0000 (+0000)
Subject: * wl-address.el (wl-address-concat-token): Fix typo.
X-Git-Tag: wl-2_15_6-fixes~50
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a1667d7cdb3389400405e191857e09ccffb7ba8d;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b4fe30a..2e4b33f 100644
--- 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
--- 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)))))