summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRobert Fenk <fenk@users.sourceforge.net>2000-11-16 11:59:40 +0000
committerRobert Fenk <fenk@users.sourceforge.net>2000-11-16 11:59:40 +0000
commit3eb72b8e0a9bcd18d4afd436378c27226229d94b (patch)
tree922b8f7b86d1945d93522aceac4dbd2a5952289d /lisp
parent601e4fedf0bc1b7c5704added04a7332cadd4c7a (diff)
(bbdb-extract-field-value): added
(case-fold-search t) as headers should be checked case insensitive
Diffstat (limited to 'lisp')
-rw-r--r--lisp/bbdb-hooks.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/bbdb-hooks.el b/lisp/bbdb-hooks.el
index 1ca01e3..d1972e6 100644
--- a/lisp/bbdb-hooks.el
+++ b/lisp/bbdb-hooks.el
@@ -35,6 +35,10 @@
;; $Id$
;;
;; $Log$
+;; Revision 1.61 2000/11/16 11:59:40 fenk
+;; (bbdb-extract-field-value): added
+;; (case-fold-search t) as headers should be checked case insensitive
+;;
;; Revision 1.60 2000/08/03 18:04:50 sds
;; * lisp/bbdb.el (bbdb-notes-default-separator): new user option
;; (bbdb-annotate-notes): use it
@@ -143,7 +147,8 @@ beginning of the message headers."
;; divided real-names from addresses; the actual From: and Subject: fields
;; exist only in the message.
(setq field-name (concat (regexp-quote field-name) "[ \t]*:[ \t]*"))
- (let (done)
+ (let ((case-fold-search t)
+ done)
(while (not (or done
(looking-at "\n") ; we're at BOL
(eobp)))