branch: elpa-admin
commit 33a578210d169bc139eeaf8a0dbfe301f0876470
Author: Teemu Likonen <[email protected]>
Commit: Teemu Likonen <[email protected]>
Ensure case-fold-search=t in the example email detect function
---
README | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/README b/README
index 83b68bb..b7381d3 100644
--- a/README
+++ b/README
@@ -276,7 +276,8 @@ start composing mail to that address. Here's the language
configuration:
Then the needed functions:
(defun email-address-detect (strings)
- (let (addresses)
+ (let ((case-fold-search t)
+ addresses)
(dolist (string strings addresses)
(when (string-match "\\<[a-z.-]+\\>@\\<[a-z.-]+\\>" string)
(push (match-string-no-properties 0 string) addresses)))))