From: yamaoka <yamaoka>
Date: Tue, 9 May 2000 00:25:59 +0000 (+0000)
Subject: (smtp-deduce-address-list): Set `case-fold-search' to `t' in the working
X-Git-Tag: flim-1_13_2_2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bccc9fb94348ca16323bd32d5e02d03caa773414;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 df73037..89dbfa5 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-01-05  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* 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:<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)