# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 925638647 0
# Node ID 39edc9c7b23505dedeab10c7b989b17999be681f
# Parent  5d61c3793c062acf4c8e0b366276be8b5b625d89
(smtpmail-deduce-address-list): Bind variables
after switching buffer, as case-fold-search is a buffer local
variable.

diff -r 5d61c3793c06 -r 39edc9c7b235 lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Sun May 02 09:48:22 1999 +0000
+++ b/lisp/mail/smtpmail.el	Sun May 02 09:50:47 1999 +0000
@@ -610,17 +610,16 @@
 (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 @@
 	    (setq smtpmail-recipient-address-list recipient-address-list))
 
 	  )
-      )
+	)
     )
   )