X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Frfc2047.el;h=3fceca32a265a5ef5c06f183fb39adacddb806b6;hb=1f2e877f831f95d9e10502e47ec5be4b3fa2e9e9;hp=0b10d04d44d743b1b7c934bee29e709e1663b817;hpb=1839daaafcc67ecd26de26da603169b03564ab6d;p=gnus

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 0b10d04d4..3fceca32a 100644
--- 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))