[elpa] 264/352: Ensure case-fold-search=t in the example email detect function

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 5e891ec9696e347dbcad13d65fb18175f91e0cda
Author: Teemu Likonen <address@hidden>
Date:   Wed Jun 29 12:21:19 2011 +0300

    Ensure case-fold-search=t in the example email detect function
---
 README         |    3 ++-
 wcheck-mode.el |    3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

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)))))
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 143562e..d17852d 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -700,7 +700,8 @@ 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)