From bb13183c1bb56724fc3c4ab5ed8f1eaf6ed5338d Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 1 Mar 2015 12:21:43 +0100
Subject: [PATCH] (shr-insert): Also remove soft hypens from non-folded text.

---
 lisp/ChangeLog  |  1 +
 lisp/net/shr.el | 10 +++++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6ef7177d02..1bcc4f11912 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2015-03-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* net/shr.el (shr-insert): Remove soft hyphens.
+	(shr-insert): Also remove soft hypens from non-folded text.
 
 2015-02-28  Eli Zaretskii  <eliz@gnu.org>
 
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 868af3837a9..9d88d1ff441 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -495,7 +495,15 @@ size, and full-buffer size."
     (insert "\n"))
   (cond
    ((eq shr-folding-mode 'none)
-    (insert text))
+    (let ((start (point)))
+      (insert text)
+      (save-restriction
+	(narrow-to-region start (point))
+	;; Remove soft hyphens.
+	(goto-char (point-min))
+	(while (search-forward "­" nil t)
+	  (replace-match "" t t))
+	(goto-char (point-max)))))
    (t
     (let ((font-start (point)))
       (when (and (string-match "\\`[ \t\n\r ]" text)
-- 
2.39.2