Mercurial > emacs
diff lisp/gnus/gnus-sum.el @ 80613:9110741da209
Merge from gnus--rel--5.10
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-281
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 17 Jul 2008 23:21:03 +0000 |
parents | 1e3a4955a638 |
children |
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el Thu Jul 17 09:07:32 2008 +0000 +++ b/lisp/gnus/gnus-sum.el Thu Jul 17 23:21:03 2008 +0000 @@ -3256,13 +3256,13 @@ (i 32)) ;; Nix out all the control chars... (while (>= (setq i (1- i)) 0) - (aset table i [??])) + (gnus-put-display-table i [??] table)) ;; ... but not newline and cr, of course. (cr is necessary for the ;; selective display). - (aset table ?\n nil) - (aset table ?\r nil) + (gnus-put-display-table ?\n nil table) + (gnus-put-display-table ?\r nil table) ;; We keep TAB as well. - (aset table ?\t nil) + (gnus-put-display-table ?\t nil table) ;; We nix out any glyphs 127 through 255, or 127 through 159 in ;; Emacs 23 (unicode), that are not set already. (let ((i (if (ignore-errors (= (make-char 'latin-iso8859-1 160) 160)) @@ -3270,8 +3270,8 @@ 256))) (while (>= (setq i (1- i)) 127) ;; Only modify if the entry is nil. - (unless (aref table i) - (aset table i [??])))) + (unless (gnus-get-display-table i table) + (gnus-put-display-table i [??] table)))) (setq buffer-display-table table))) (defun gnus-summary-set-article-display-arrow (pos)