From dfaff938bedf4b13e6885f71de555b52cbaa023e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 May 2000 00:25:48 +0000 Subject: [PATCH] (smtp-deduce-address-list): Set `case-fold-search' to `t' in the working buffer. --- ChangeLog | 5 +++++ smtp.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8af72cf..1a760a9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-05-09 Katsumi Yamaoka + + * smtp.el (smtp-deduce-address-list): Set `case-fold-search' to `t' + in the working buffer. + 2000-01-05 Katsumi Yamaoka * Makefile, mime-en.sgml, mime-ja.sgml: Update for the new CVS diff --git a/smtp.el b/smtp.el index 532bb14..27a0b99 100644 --- a/smtp.el +++ b/smtp.el @@ -348,8 +348,7 @@ don't define this value." (defun smtp-deduce-address-list (smtp-text-buffer header-start header-end) "Get address list suitable for smtp RCPT TO:
." - (let ((case-fold-search t) - (simple-address-list "") + (let ((simple-address-list "") this-line this-line-end addr-regexp @@ -358,6 +357,7 @@ don't define this value." (save-excursion ;; (set-buffer smtp-address-buffer) + (setq case-fold-search t) (erase-buffer) (insert (save-excursion (set-buffer smtp-text-buffer) -- 1.7.10.4