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

buffer.

diff --git a/ChangeLog b/ChangeLog
index d256340..a4d7182 100644 (file)
--- 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 (file)
--- 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)