Fix '' letters in a message view

This commit is contained in:
Dmitry Neverov
2012-12-23 23:55:54 +04:00
parent c36906a254
commit 9db55ac7ab

View File

@ -175,10 +175,10 @@ part, but this can be changed by setting
(with-temp-buffer (with-temp-buffer
(insert body) (insert body)
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "[ (while (re-search-forward "[
<EFBFBD><EFBFBD>]" nil t) <EFBFBD><EFBFBD>]" nil t)
(replace-match (replace-match
(cond (cond
((string= (match-string 0) "<EFBFBD>") "'") ((string= (match-string 0) "<EFBFBD>") "'")
(t "")))) (t ""))))
(buffer-string)))) (buffer-string))))