From 999206f56b39b5c05d39dce296532b45ad559f8a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 May 2000 00:25:42 +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 d256340..a4d7182 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-04-26 Yoshiki Hayashi * mime.el (mime-entity-body): New function. 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