From c14b93b77b4a02c2cdc2fade50b68c3963ef6b9d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 May 2000 00:25:54 +0000 Subject: [PATCH] (smtp-deduce-address-list): Set `case-fold-search' to `t' in the working buffer. --- ChangeLog | 5 +++++ smtp.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index f5e2687..74b55be 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-05-09 Katsumi Yamaoka + + * smtp.el (smtp-deduce-address-list): Set `case-fold-search' to `t' + in the working buffer. + 2000-03-15 Tanaka Akira * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Remove a diff --git a/smtp.el b/smtp.el index 532bb14..27a0b99 100644 --- 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:
." - (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) -- 1.7.10.4