2000-10-05 11:43:25 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / rfc2047.el

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 0b10d04..3fceca3 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -224,7 +224,8 @@ Should be called narrowed to the head of the message."
   (let ((words (rfc2047-dissect-region b e))
        beg end current word)
     (while (setq word (pop words))
-      (if (equal (nth 2 word) current)
+      (if (and (eq (nth 2 word) current)
+              (eq beg (nth 1 word)))
          (setq beg (nth 0 word))
        (when current
          (if (and (eq beg (nth 1 word)) (nth 2 word))