* lisp/net/shr.el (shr-insert): Remove soft hyphens.

2 files changed, 8 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1cfd08fc95d..c6ef7177d02 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-03-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * net/shr.el (shr-insert): Remove soft hyphens.
+
 2015-02-28  Eli Zaretskii  <eliz@gnu.org>
 
         * mail/rmailmm.el (rmail-mime-insert-html): Decode HTML payload
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index f6a390e4d0a..868af3837a9 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -512,6 +512,10 @@ size, and full-buffer size."
             (replace-match "" t t))
           (while (re-search-forward "[ \t\n\r ]+" nil t)
             (replace-match " " t t))
+          ;; Remove soft hyphens.
+          (goto-char (point-min))
+          (while (search-forward "­" nil t)
+            (replace-match "" t t))
           (goto-char (point-max)))
         ;; We may have removed everything we inserted if if was just
         ;; spaces.