From 9abf16dae2c54ccce0dcdddbd45b4a65417dcace Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 20 Mar 2003 11:34:28 +0000 Subject: [PATCH] Synch to Oort Gnus 200303201128. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0a9528d..190fffa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-03-20 Katsumi Yamaoka + + * message.el (message-idna-to-ascii-rhs-1): Don't use replace-* + for highlight overlays. + 2003-03-20 Katsumi Yamaoka * gnus-cache.el (gnus-cache-braid-nov): Test if a line looks like diff --git a/lisp/message.el b/lisp/message.el index 2009338..45141e3 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -5291,7 +5291,7 @@ I.e., calling it on a Subject: header is useless." (defun message-idna-to-ascii-rhs-1 (header) "Interactively potentially IDNA encode domain names in HEADER." - (let (rhs ace start end startpos endpos) + (let (rhs ace start end startpos endpos ovl) (goto-char (point-min)) (setq start (re-search-forward (concat "^" header) nil t) end (or (save-excursion (re-search-forward "^[ \t]" nil t)) @@ -5308,11 +5308,12 @@ I.e., calling it on a Subject: header is useless." (if (eq message-use-idna 'ask) (unwind-protect (progn - (replace-highlight startpos endpos) + (setq ovl (make-overlay startpos endpos)) + (overlay-put ovl 'face 'highlight) (y-or-n-p (format "Replace with `%s'? " ace))) (message "") - (replace-dehighlight)) + (delete-overlay ovl)) message-use-idna))) (replace-match (concat "@" ace))))))) -- 1.7.10.4