(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 (file)
--- 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)