From: yamaoka <yamaoka>
Date: Tue, 9 May 2000 00:25:42 +0000 (+0000)
Subject: (smtp-deduce-address-list): Set `case-fold-search' to `t' in the working
X-Git-Tag: chao-1_14_0-1~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=999206f56b39b5c05d39dce296532b45ad559f8a;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 d256340..a4d7182 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-26  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
 	* mime.el (mime-entity-body): New function.
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:<address>."
-  (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)