projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* wl-address.el (wl-address-specials-regexp): New constant.
[elisp/wanderlust.git]
/
wl
/
wl-address.el
diff --git
a/wl/wl-address.el
b/wl/wl-address.el
index
8b30e56
..
5581fc8
100644
(file)
--- 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: "))))
(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."
(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))
(prin1-to-string word)
word))