X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fshr.el;h=4c4f47e0225f06406aebe0659a59c64ebc4efe5f;hb=1ad567aa1c0bf7590d82f455f11d3e4a720d91c4;hp=0b2fa939b1f33de267e7bc63df8aac9b4b1a78a5;hpb=a243cfc052f12caa112783f305065fbd8e2712f2;p=gnus

diff --git a/lisp/shr.el b/lisp/shr.el
index 0b2fa939b..4c4f47e02 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -301,12 +301,12 @@ redirects somewhere else."
 		    (eq (following-char) ? )
 		    (shr-char-breakable-p (preceding-char))
 		    (shr-char-breakable-p (following-char))
-		    (and (eq (preceding-char) ?')
-			 (not (memq (char-after (- (point) 2))
-				    (list nil ?\n ? ))))
-		    ;; There're some kinsoku CJK chars that aren't breakable.
-		    (and (shr-char-kinsoku-bol-p (preceding-char))
-			 (not (shr-char-kinsoku-bol-p (following-char))))
+		    (if (eq (preceding-char) ?')
+			(not (memq (char-after (- (point) 2))
+				   (list nil ?\n ? )))
+		      ;; There're some kinsoku CJK chars that aren't breakable.
+		      (and (shr-char-kinsoku-bol-p (preceding-char))
+			   (not (shr-char-kinsoku-bol-p (following-char)))))
 		    (shr-char-kinsoku-eol-p (following-char))))
       (backward-char 1))
     (if (and (not (or failed (eolp)))