diff options
author | Robert Fenk <fenk@users.sourceforge.net> | 2000-11-16 11:59:40 +0000 |
---|---|---|
committer | Robert Fenk <fenk@users.sourceforge.net> | 2000-11-16 11:59:40 +0000 |
commit | 3eb72b8e0a9bcd18d4afd436378c27226229d94b (patch) | |
tree | 922b8f7b86d1945d93522aceac4dbd2a5952289d /lisp | |
parent | 601e4fedf0bc1b7c5704added04a7332cadd4c7a (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.el | 7 |
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))) |