From: teranisi <teranisi>
Date: Thu, 18 Jan 2001 08:56:31 +0000 (+0000)
Subject: * wl-address.el (wl-address-specials-regexp): New constant.
X-Git-Tag: wl-2_4_1pre~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c2ac268b74496aeac035cc9f9e903946bd4c51ae;p=elisp%2Fwanderlust.git

* wl-address.el (wl-address-specials-regexp): New constant.
 (wl-address-quote-specials): Use it.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 02de4cc..5828039 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-address.el (wl-address-specials-regexp): New constant.
+	(wl-address-quote-specials): Use it.
+
 2001-01-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-rescan):
diff --git a/wl/wl-address.el b/wl/wl-address.el
index 8b30e56..5581fc8 100644
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -280,9 +280,11 @@ Matched address lists are append to CL."
 	(completing-read "To: " cl)
       (read-string "To: "))))
 
+(defconst wl-address-specials-regexp "[]\"(),.:;<>@[\\]")
+
 (defun wl-address-quote-specials (word)
   "Make quoted string of WORD if needed."
-  (if (assq 'specials (std11-lexical-analyze word))
+  (if (string-match wl-address-specials-regexp word)
       (prin1-to-string word)
     word))