[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-sum.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-sum.el
diff -u emacs/lisp/gnus/gnus-sum.el:1.77 emacs/lisp/gnus/gnus-sum.el:1.78
--- emacs/lisp/gnus/gnus-sum.el:1.77    Tue Feb 28 00:38:34 2006
+++ emacs/lisp/gnus/gnus-sum.el Fri Mar  3 07:45:27 2006
@@ -3098,8 +3098,11 @@
     (aset table ?\r nil)
     ;; We keep TAB as well.
     (aset table ?\t nil)
-    ;; We nix out any glyphs over 126 that are not set already.
-    (let ((i 256))
+    ;; We nix out any glyphs 127 through 255, or 127 through 159 in
+    ;; Emacs 23, that are not set already.
+    (let ((i (if (ignore-errors (= (make-char 'latin-iso8859-1 160) 160))
+                160
+              256)))
       (while (>= (setq i (1- i)) 127)
        ;; Only modify if the entry is nil.
        (unless (aref table i)