From: akr <akr>
Date: Fri, 3 Apr 1998 15:38:48 +0000 (+0000)
Subject: * eword-decode.el (eword-analyze-atom): Set enable-multibyte-characters
X-Git-Tag: akemi-1_2_0
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d8b4b873f6dd0648e8a9aa9ea5988518f9b5f206;p=elisp%2Fsemi.git

* eword-decode.el (eword-analyze-atom): Set enable-multibyte-characters
as nil when calling `string-match'.
---

diff --git a/ChangeLog b/ChangeLog
index d78b975..4608544 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-04-03  Tanaka Akira  <akr@jaist.ac.jp>
+
+	* eword-decode.el (eword-analyze-atom): Set enable-multibyte-characters
+	as nil when calling `string-match'.
+
 1998-03-23  Tanaka Akira  <akr@jaist.ac.jp>
 
 	* eword-decode.el (eword-decode-header): Set default-mime-charset when
diff --git a/eword-decode.el b/eword-decode.el
index 9a0b946..9a953c0 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -653,7 +653,8 @@ be the result."
       (cons (cons 'atom (car decoded)) (cdr decoded)))))
 
 (defun eword-analyze-atom (string &optional must-unfold)
-  (if (string-match std11-atom-regexp string)
+  (if (let ((enable-multibyte-characters nil))
+        (string-match std11-atom-regexp string))
       (let ((end (match-end 0)))
 	(if (and eword-decode-sticked-encoded-word
 		 (string-match eword-encoded-word-in-phrase-regexp