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

[elisp/flim.git] / smtp.el

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)