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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1cfd08fc95d03f0c37868e66179bed6615cca68d..c6ef7177d02e81674d932b23eb8e8f84ef6cd755 100644 (file)
--- 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 f6a390e4d0adb4b6737dd670e2f124ef3e1d56b3..868af3837a908f2d54532fbc710a8aab4ff1ec22 100644 (file)
--- 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.