From c2ac268b74496aeac035cc9f9e903946bd4c51ae Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 18 Jan 2001 08:56:31 +0000 Subject: [PATCH] * wl-address.el (wl-address-specials-regexp): New constant. (wl-address-quote-specials): Use it. --- wl/ChangeLog | 5 +++++ wl/wl-address.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * wl-address.el (wl-address-specials-regexp): New constant. + (wl-address-quote-specials): Use it. + 2001-01-17 Yuuichi Teranishi * 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)) -- 1.7.10.4