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

gnus.texi (Article Washing): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e42c66d..354cfbb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-art.el b/lisp/gnus-art.el
index 82de5b4..a5d9a27 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/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.

diff --git a/texi/ChangeLog b/texi/ChangeLog
index a1ea6e6..750951b 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-12  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus.texi (Article Washing): Fix typo.
+
 2010-11-09  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus.texi (Article Washing): Document gnus-article-treat-non-ascii.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 198cdcf..f195557 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -9664,8 +9664,8 @@ an attempt to provide more quoting characters.  If you see something
 like @code{\222} or @code{\264} where you're expecting some kind of
 apostrophe or quotation mark, then try this wash.
 
-@item W A
-@kindex W A (Summary)
+@item W U
+@kindex W U (Summary)
 @findex gnus-article-treat-non-ascii
 @cindex Unicode
 @cindex Non-@acronym{ASCII}