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