From: yamaoka <yamaoka>
Date: Tue, 9 May 2000 00:26:11 +0000 (+0000)
Subject: (smtp-deduce-address-list): Set `case-fold-search' to `t' in the working
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e335084e28020d1a5fdc3baca822a877f9ec4a4b;p=elisp%2Fflim.git

(smtp-deduce-address-list): Set `case-fold-search' to `t' in the working
buffer.
---

diff --git a/ChangeLog b/ChangeLog
index 51d4a38..52bac46 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-09  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* smtp.el (smtp-deduce-address-list): Set `case-fold-search' to `t'
+	in the working buffer.
+
 2000-04-17  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
 	* mel.el (mime-decode-string): Return original string
diff --git a/smtp.el b/smtp.el
index e80a68d..ee09fd2 100644
--- a/smtp.el
+++ b/smtp.el
@@ -420,8 +420,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:<address>."
-  (let ((case-fold-search t)
-	(simple-address-list "")
+  (let ((simple-address-list "")
 	this-line
 	this-line-end
 	addr-regexp
@@ -430,6 +429,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)