Mercurial > emacs

diff lisp/gnus/gnus-art.el @ 111509:ebad3de62d57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-art.el (article-treat-non-ascii): Keep text properties. gnus.texi (Article Washing): Fix typo.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 12 Nov 2010 05:59:53 +0000
parents 91870c82d547
children ee13ba492319
line wrap: on
line diff
--- 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.