Mercurial > emacs
changeset 24663:39edc9c7b235
(smtpmail-deduce-address-list): Bind variables
after switching buffer, as case-fold-search is a buffer local
variable.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Sun, 02 May 1999 09:50:47 +0000 |
| parents | 5d61c3793c06 |
| children | ce51d492b1ab |
| files | lisp/mail/smtpmail.el |
| diffstat | 1 files changed, 10 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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)) ) - ) + ) ) )