Mercurial > emacs

diff lisp/gnus/gnus-sum.el @ 69247:6580c61aced7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-134 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 43-48) - Munge arch explicit ids in etc/images to match Emacs - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 03 Mar 2006 07:45:27 +0000
parents 477ba8c8d22c
children 55d8c694b9cf 5754737d1e04
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el	Fri Mar 03 00:29:23 2006 +0000
+++ b/lisp/gnus/gnus-sum.el	Fri Mar 03 07:45:27 2006 +0000
@@ -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)