From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 1 Mar 2015 11:17:52 +0000 (+0100)
Subject: * lisp/net/shr.el (shr-insert): Remove soft hyphens.
X-Git-Tag: emacs-25.0.90~2564^2~268
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2294380798e9fd20077905ec7f7f127feee9b185;p=emacs.git

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

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.