(smtpmail-deduce-address-list): Bind variables

after switching buffer, as case-fold-search is a buffer local
variable.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index ab42363de2c1eb61ce8eda99b4c8268454281ee6..4778ded17bd920f6bd280fd74bd34ea81c0dfae5 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -610,17 +610,16 @@ This is relative to `smtpmail-queue-dir'.")
 (defun smtpmail-deduce-address-list (smtpmail-text-buffer header-start header-end)
   "Get address list suitable for smtp RCPT TO: <address>."
   (require 'mail-utils)  ;; pick up mail-strip-quoted-names
-  (let
-      ((case-fold-search t)
-       (simple-address-list "")
-       this-line
-       this-line-end
-       addr-regexp)
     
-    (unwind-protect
-       (save-excursion
-         ;;
-         (set-buffer smtpmail-address-buffer) (erase-buffer)
+  (unwind-protect
+      (save-excursion
+       (set-buffer smtpmail-address-buffer) (erase-buffer)
+       (let
+           ((case-fold-search t)
+            (simple-address-list "")
+            this-line
+            this-line-end
+            addr-regexp)
          (insert-buffer-substring smtpmail-text-buffer header-start header-end)
          (goto-char (point-min))
          ;; RESENT-* fields should stop processing of regular fields.
@@ -663,7 +662,7 @@ This is relative to `smtpmail-queue-dir'.")
            (setq smtpmail-recipient-address-list recipient-address-list))
 
          )
-      )
+       )
     )
   )