From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/9261 Path: main.gmane.org!not-for-mail From: Sudish Joseph Newsgroups: gmane.emacs.gnus.general Subject: Native character types and marks Date: 30 Dec 1996 20:12:56 -0500 Sender: sj@atreides.mindspring.com Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 1.1.1.2) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035149311 17369 80.91.224.250 (20 Oct 2002 21:28:31 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:28:31 +0000 (UTC) Return-Path: Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.8.4/8.8.4) with SMTP id RAA20791 for ; Mon, 30 Dec 1996 17:35:58 -0800 Original-Received: from atreides.mindspring.com (qmailr@atreides.mindspring.com [204.180.142.236]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) id for ; Tue, 31 Dec 1996 02:13:16 +0100 Original-Received: (qmail 1635 invoked by uid 52477); 31 Dec 1996 01:12:56 -0000 Original-To: The Ding List Original-Lines: 64 X-Mailer: Red Gnus v0.76/XEmacs 20.0 Xref: main.gmane.org gmane.emacs.gnus.general:9261 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:9261 Having read articles automatically marked as expirable stopped working for me in XEmacs 20.0. The reason being that 20.0 has a `native' character type that no longer satisfies 'numberp. Here's a patch against 0.76. Per, custom-quote needs to test this as well. Patch included. I did a lame grep for numberp and don't see any other candidates for this. There's bound to be more, though. -Sudish diff -ru tmp/rgnus-0.76/lisp/gnus-sum.el lisp/gnus-sum.el --- tmp/rgnus-0.76/lisp/gnus-sum.el Mon Dec 16 12:32:25 1996 +++ lisp/gnus-sum.el Mon Dec 30 19:43:40 1996 @@ -7452,7 +7452,7 @@ (and (not no-expire) gnus-newsgroup-auto-expire (or (not mark) - (and (numberp mark) + (and (gnus-characterp mark) (or (= mark gnus-killed-mark) (= mark gnus-del-mark) (= mark gnus-catchup-mark) (= mark gnus-low-score-mark) (= mark gnus-read-mark) (= mark gnus-souped-mark) diff -ru tmp/rgnus-0.76/lisp/gnus-util.el lisp/gnus-util.el --- tmp/rgnus-0.76/lisp/gnus-util.el Thu Dec 12 23:30:20 1996 +++ lisp/gnus-util.el Mon Dec 30 19:58:24 1996 @@ -86,6 +86,14 @@ (or (and (symbolp form) (fboundp form)) (and (listp form) (eq (car form) 'lambda)))) +(defmacro gnus-characterp (c) + "Return non-nil if C is a character. +Handles the primitive character type in XEmacs 20.0 correctly." + (cond ((fboundp 'characterp) + `(characterp ,c)) + (t + `(numberp ,c)))) + (defsubst gnus-goto-char (point) (and point (goto-char point))) @@ -482,6 +490,7 @@ (defun gnus-read-event-char () "Get the next event." (let ((event (read-event))) + ;; should be gnus-characterp, but this can't be called in XEmacs anyway (cons (and (numberp event) event) event))) (defun gnus-sortable-date (date) --- custom-edit.el~ Sun Dec 8 20:38:21 1996 +++ custom-edit.el Mon Dec 30 20:09:33 1996 @@ -31,7 +31,9 @@ (and (listp sexp) (memq (car sexp) '(lambda))) (stringp sexp) - (numberp sexp)) + (numberp sexp) + (and (fboundp 'characterp) + (characterp sexp))) sexp (list 'quote sexp)))