[elpa] 294/352: Put case-fold in language options rather than email parser function

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 328c6eb9df74a00172ca9e19a455850d3e5c698d
Author: Teemu Likonen <address@hidden>
Date:   Wed Jul 6 16:32:28 2011 +0300

    Put case-fold in language options rather than email parser function
    
    Now that language option "case-fold" is effective with checker function
    (and all) change the email example in README.org so that the option is
    set in language options rather than in the email checker function.
---
 README.org |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 80437d7..68e0ded 100644
--- a/README.org
+++ b/README.org
@@ -287,6 +287,7 @@ start composing mail to that address. Here's the language 
configuration:
   ("email"
    (program . email-address-detect)
    (face . highlight)
+   (case-fold . t)
    (regexp-start . "\\<")
    (regexp-body . "address@hidden")
    (regexp-end . "\\>")
@@ -299,8 +300,7 @@ Then the needed functions:
 
 #+BEGIN_SRC emacs-lisp
   (defun email-address-detect (strings)
-    (let ((case-fold-search t)
-          addresses)
+    (let (addresses)
       (dolist (string strings addresses)
         (when (string-match "\\<[a-z.-]+\\>@\\<[a-z.-]+\\>" string)
           (push (match-string-no-properties 0 string) addresses)))))