From: ohta <ohta>
Date: Mon, 8 Mar 1999 16:20:23 +0000 (+0000)
Subject: (decode-mime-charset-region-with-iso646-unification):
X-Git-Tag: apel-9_13_1~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aeac12b7e4e0184363e6a3f1cf5a6e10b0195ae2;p=elisp%2Fapel.git

(decode-mime-charset-region-with-iso646-unification):
Respect passed in boundaries.
From MORIOKA Tomohiko <tomo@etl.go.jp>
---

diff --git a/mcs-xm.el b/mcs-xm.el
index 5caf854..19cbc2b 100644
--- a/mcs-xm.el
+++ b/mcs-xm.el
@@ -96,8 +96,8 @@
 	(let ((rest mime-iso646-character-unification-alist))
 	  (while rest
 	    (let ((pair (car rest)))
-	      (goto-char (point-min))
-	      (while (search-forward (car pair) nil t)
+	      (goto-char start)
+	      (while (search-forward (car pair) end t)
 		(let ((str (cdr pair)))
 		  (put-text-property 0 (length str)
 				     'face mime-unified-character-face str)