gnus-art.el (article-treat-non-ascii): Keep text properties.

gnus.texi (Article Washing): Fix typo.

2 files changed, 11 insertions, 3 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 64752711f98..11118ed1ed7 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-12  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * gnus-art.el (article-treat-non-ascii): Keep text properties.
+
 2010-11-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * mm-decode.el (mm-dissect-buffer): Pass sender's mail address to
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 82de5b46475..a5d9a279ddb 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -2130,14 +2130,18 @@ try this wash."
     (save-excursion
       (when (article-goto-body)
         (let ((inhibit-read-only t)
-              replace)
+              replace props)
           (while (not (eobp))
             (if (not (setq replace (if (featurep 'xemacs)
                                        (get-char-table (following-char) table)
                                      (aref table (following-char)))))
                 (forward-char 1)
-              (delete-char 1)
-              (insert replace))))))))
+              (if (prog1
+                      (setq props (text-properties-at (point)))
+                    (delete-char 1))
+                  (add-text-properties (point) (progn (insert replace) (point))
+                                       props)
+                (insert replace)))))))))
 
 (defun article-translate-characters (from to)
   "Translate all characters in the body of the article according to FROM and TO.