From a1667d7cdb3389400405e191857e09ccffb7ba8d Mon Sep 17 00:00:00 2001 From: kaoru Date: Sat, 16 Feb 2008 14:23:07 +0000 Subject: [PATCH] * wl-address.el (wl-address-concat-token): Fix typo. --- wl/ChangeLog | 4 ++++ wl/wl-address.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * wl-address.el (wl-address-concat-token): Fix typo. + 2008-02-15 TAKAHASHI Kaoru * 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))))) -- 1.7.10.4