# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1289541593 0
# Node ID ebad3de62d5749cf5e05a7ab12b5fcd842ebc48c
# Parent  45f3703e90f2069077e2ebe045ae40cd7031fbf5
gnus-art.el (article-treat-non-ascii): Keep text properties.
gnus.texi (Article Washing): Fix typo.

diff -r 45f3703e90f2 -r ebad3de62d57 doc/misc/ChangeLog
--- a/doc/misc/ChangeLog	Thu Nov 11 22:36:34 2010 -0600
+++ b/doc/misc/ChangeLog	Fri Nov 12 05:59:53 2010 +0000
@@ -1,3 +1,7 @@
+2010-11-12  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus.texi (Article Washing): Fix typo.
+
 2010-11-11  Noorul Islam  <noorul@noorul.com>
 
 	* org.texi: Fix typo
diff -r 45f3703e90f2 -r ebad3de62d57 doc/misc/gnus.texi
--- a/doc/misc/gnus.texi	Thu Nov 11 22:36:34 2010 -0600
+++ b/doc/misc/gnus.texi	Fri Nov 12 05:59:53 2010 +0000
@@ -9664,8 +9664,8 @@
 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}
diff -r 45f3703e90f2 -r ebad3de62d57 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Thu Nov 11 22:36:34 2010 -0600
+++ b/lisp/gnus/ChangeLog	Fri Nov 12 05:59:53 2010 +0000
@@ -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 -r 45f3703e90f2 -r ebad3de62d57 lisp/gnus/gnus-art.el
--- a/lisp/gnus/gnus-art.el	Thu Nov 11 22:36:34 2010 -0600
+++ b/lisp/gnus/gnus-art.el	Fri Nov 12 05:59:53 2010 +0000
@@ -2130,14 +2130,18 @@
     (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.