[Emacs-diffs] /srv/bzr/emacs/trunk r102356: gnus-art.el (article-treat-non-ascii): Keep text properties.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102356
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-11-12 05:59:53 +0000
message:
  gnus-art.el (article-treat-non-ascii): Keep text properties.
  gnus.texi (Article Washing): Fix typo.
modified:
  doc/misc/ChangeLog
  doc/misc/gnus.texi
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'doc/misc/ChangeLog'
--- a/doc/misc/ChangeLog        2010-11-12 04:10:19 +0000
+++ b/doc/misc/ChangeLog        2010-11-12 05:59:53 +0000
@@ -1,3 +1,7 @@
+2010-11-12  Katsumi Yamaoka  <address@hidden>
+
+       * gnus.texi (Article Washing): Fix typo.
+
 2010-11-11  Noorul Islam  <address@hidden>
 
        * org.texi: Fix typo

=== modified file 'doc/misc/gnus.texi'
--- a/doc/misc/gnus.texi        2010-11-09 22:17:36 +0000
+++ b/doc/misc/gnus.texi        2010-11-12 05:59:53 +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.
 
address@hidden W A
address@hidden W A (Summary)
address@hidden W U
address@hidden W U (Summary)
 @findex gnus-article-treat-non-ascii
 @cindex Unicode
 @cindex address@hidden

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-11 23:51:05 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-12 05:59:53 +0000
@@ -1,3 +1,7 @@
+2010-11-12  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-art.el (article-treat-non-ascii): Keep text properties.
+
 2010-11-11  Katsumi Yamaoka  <address@hidden>
 
        * mm-decode.el (mm-dissect-buffer): Pass sender's mail address to

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2010-11-11 01:45:05 +0000
+++ b/lisp/gnus/gnus-art.el     2010-11-12 05:59:53 +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.