Mercurial > emacs
changeset 111509:ebad3de62d57
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 | 45f3703e90f2 |
| children | 7cc8e10adfff |
| files | doc/misc/ChangeLog doc/misc/gnus.texi lisp/gnus/ChangeLog lisp/gnus/gnus-art.el |
| diffstat | 4 files changed, 17 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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}
--- 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
--- 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.