From 1188dd3759e18f85d1d072fdbf9f8ee642d7e70f Mon Sep 17 00:00:00 2001 From: Andrew Innes Date: Sun, 2 May 1999 09:50:47 +0000 Subject: [PATCH] (smtpmail-deduce-address-list): Bind variables after switching buffer, as case-fold-search is a buffer local variable. --- lisp/mail/smtpmail.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index ab42363de2c..4778ded17bd 100644 --- 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:
." (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)) ) - ) + ) ) ) -- 2.39.5