From: akr <akr>
Date: Wed, 24 Feb 1999 07:27:55 +0000 (+0000)
Subject: * eword-decode.el (eword-analyze-sticked-encoded-word): New variable.
X-Git-Tag: doodle-1_12_4~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=92cd0673da9cbff2a785987c9dd9f24404d1ccb9;p=elisp%2Fflim.git

* eword-decode.el (eword-analyze-sticked-encoded-word): New variable.
(eword-analyze-atom): Check `eword-analyze-sticked-encoded-word'.
---

diff --git a/ChangeLog b/ChangeLog
index 151e074..3ddc1f9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-02-24  Tanaka Akira      <akr@jaist.ac.jp>
+
+	* eword-decode.el (eword-analyze-sticked-encoded-word): New variable.
+	(eword-analyze-atom): Check `eword-analyze-sticked-encoded-word'.
+
 1999-02-22  Tanaka Akira      <akr@jaist.ac.jp>
 
 	* mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous
diff --git a/eword-decode.el b/eword-decode.el
index c478042..25635fd 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -828,10 +828,16 @@ be the result."
 	      end)
 	)))
 
+(defvar eword-analyze-sticked-encoded-word nil)
 (defun eword-analyze-atom (string start &optional must-unfold)
   (if (and (string-match std11-atom-regexp string start)
 	   (= (match-beginning 0) start))
       (let ((end (match-end 0)))
+	(if (and eword-analyze-sticked-encoded-word
+		 (string-match eword-encoded-word-regexp string start)
+		 (< start (match-beginning 0))
+		 (< (match-beginning 0) end))
+	    (setq end (match-beginning 0)))
 	(cons (cons 'atom (decode-mime-charset-string
 			   (substring string start end)
 			   default-mime-charset))