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
1 changed files with 2 additions and 2 deletions

View File

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