From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/28087 Path: main.gmane.org!not-for-mail From: Gunnar Evermann Newsgroups: gmane.emacs.gnus.general Subject: Re: enable-multibyte-characters is not defined in XEmacs Date: 10 Dec 1999 20:51:49 +0000 Sender: owner-ding@hpc.uh.edu Message-ID: References: <5b9032bt4m.fsf@giga.cs.rochester.edu> <5bu2lqa6r9.fsf@giga.cs.rochester.edu> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035164996 27990 80.91.224.250 (21 Oct 2002 01:49:56 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:49:56 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id PAA27932 for ; Fri, 10 Dec 1999 15:52:26 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id OAB28145; Fri, 10 Dec 1999 14:52:20 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 10 Dec 1999 14:52:30 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id OAA16788 for ; Fri, 10 Dec 1999 14:52:17 -0600 (CST) Original-Received: from rasp.eng.cam.ac.uk (root@rasp.eng.cam.ac.uk [129.169.8.8]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id PAA27916 for ; Fri, 10 Dec 1999 15:51:53 -0500 (EST) Original-Received: from tigger.eng.cam.ac.uk (via root@tigger.eng.cam.ac.uk [129.169.80.71]) by rasp.eng.cam.ac.uk with ESMTP id UAA21040 for ; Fri, 10 Dec 1999 20:51:51 GMT Original-Received: from kennet.eng.cam.ac.uk (via kennet [129.169.81.54]) by tigger.eng.cam.ac.uk with ESMTP id UAA18179 for ; Fri, 10 Dec 1999 20:51:50 GMT Original-Received: (via ge204@localhost) by kennet.eng.cam.ac.uk id UAA26190; Fri, 10 Dec 1999 20:51:50 GMT Original-To: ding@gnus.org In-Reply-To: Shenghuo ZHU's message of "10 Dec 1999 15:19:22 -0500" Original-Lines: 96 User-Agent: Gnus/5.0803 (Gnus v5.8.3) XEmacs/21.1 (Bryce Canyon) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:28087 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:28087 Shenghuo ZHU writes: > >>>>> "G" == Gunnar Evermann writes: > > G> Shenghuo ZHU writes: > >> >>>>> "Gunnar" == Gunnar Evermann writes: > >> > Gunnar> In XEmacs21.1.8-nomule using gnus-summary-refer-parent-article with > Gunnar> gnus-refer-article-method set to > >> > Gunnar> (current (nnweb "refer" (nnweb-type dejanews))) > > G> now I get this: > > G> Signaling: (error "Selecting deleted or non-existent buffer") > G> url-insert-file-contents("http://search.dejanews.com/msgid.xp?MID=<38284F8B.C9F48652@ems.att.com>&fmt=text") > If it is a bug, it must be in url package (or w3). What is the version > of url or w3 you are using? oops, sorry, of course. that was: WWW 4.0pre.39, URL p4.0pre.39, MM 1.96 with the version from the XEmacs beta SUMO. i.e. WWW 4.0pre.46, URL p4.0pre.46, MM 1.96 I get: Signaling: (wrong-type-argument listp t) cdr(t) (cond ((numberp id) id) ((cdr where) (cdr where)) (header (mail-header-number header)) (t gnus-reffed-article-number)) ) (princ (cond (... id) (... ...) (header ...) (t gnus-reffed-article-number)) (current-buffer)) ) (progn (nnheader-fold-continuation-lines) (goto-char (point-max)) (insert ".\n") (goto-char (point-min)) (insert "211 ") (princ (cond ... ... ... ...) (current-buffer)) (insert " Article retrieved.\n")) ) (if (setq where (gnus-request-head id group)) (progn (nnheader-fold-continuation-lines) (goto-char ...) (insert ".\n") (goto-char ...) (insert "211 ") (princ ... ...) (insert " Article retrieved.\n"))) ) (when (setq where (gnus-request-head id group)) (nnheader-fold-continuation-lines) (goto-char (point-max)) (insert ".\n") (goto-char (point-min)) (insert "211 ") (princ (cond ... ... ... ...) (current-buffer)) (insert " Article retrieved.\n")) ) (save-excursion (set-buffer nntp-server-buffer) (when (setq where ...) (nnheader-fold-continuation-lines) (goto-char ...) (insert ".\n") (goto-char ...) (insert "211 ") (princ ... ...) (insert " Article retrieved.\n")) (if (or ... ...) nil (unless ... ... ...) header)) ) (if (and header (not ...)) header (when (and header ...) (let* ... ...)) (save-excursion (set-buffer nntp-server-buffer) (when ... ... ... ... ... ... ... ...) (if ... nil ... header))) ) (let ((group gnus-newsgroup-name) (gnus-override-method ...) where) (if (stringp id) (setq header ...) (setq header ...)) (if (and header ...) header (when ... ...) (save-excursion ... ... ...))) ) gnus-read-header("<38284F8B.C9F48652@ems.att.com>") (cond ((and old-header use-old-header) old-header) ((and ... ...) (gnus-number-to-header id)) (t (gnus-read-header id))) ) (let* ((line ...) (old-header ...) (header ...) (number ...) d) (when header (when ... ...) (when old-header ...) (setq gnus-newsgroup-sparse ...) (setq gnus-newsgroup-ancient ...) (push number gnus-newsgroup-limit) (gnus-rebuild-thread ... line) (gnus-summary-goto-subject number nil t)) (when (and ... ...) (when ... ...) (when ... ...) (setq gnus-newsgroup-unselected ...)) (and header (mail-header-number header))) ) gnus-summary-insert-subject("<38284F8B.C9F48652@ems.att.com>") (setq number (gnus-summary-insert-subject message-id)) ) (if (setq number (gnus-summary-insert-subject message-id)) (progn (gnus-summary-select-article nil nil nil number) (throw ... t))) ) (when (setq number (gnus-summary-insert-subject message-id)) (gnus-summary-select-article nil nil nil number) (throw (quote found) t)) ) (while --dolist-temp--84806 (setq gnus-override-method (car --dolist-temp--84806)) (gnus-check-server gnus-override-method) (when (setq number ...) (gnus-summary-select-article nil nil nil number) (throw ... t)) (setq --dolist-temp--84806 (cdr --dolist-temp--84806))) ) (let ((--dolist-temp--84806 ...) gnus-override-method) (while --dolist-temp--84806 (setq gnus-override-method ...) (gnus-check-server gnus-override-method) (when ... ... ...) (setq --dolist-temp--84806 ...)) nil) ) (catch (quote --cl-block-nil--) (let (... gnus-override-method) (while --dolist-temp--84806 ... ... ... ...) nil)) ) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil))) ) (block nil (let (... gnus-override-method) (while --dolist-temp--84806 ... ... ... ...) nil)) ) (dolist (gnus-override-method (gnus-refer-article-methods)) (gnus-check-server gnus-override-method) (when (setq number ...) (gnus-summary-select-article nil nil nil number) (throw ... t))) ) (catch (quote found) (dolist (gnus-override-method ...) (gnus-check-server gnus-override-method) (when ... ... ...)) (gnus-message 3 "Couldn't fetch article %s" message-id)) ) (cond ((and header ...) (prog1 ... ...)) (t (catch ... ... ...))) ) (let* ((header ...) (sparse ...) number) (cond (... ...) (t ...))) ) (progn (unless (string-match "^<" message-id) (setq message-id ...)) (unless (string-match ">$" message-id) (setq message-id ...)) (let* (... ... number) (cond ... ...))) ) (if (and (stringp message-id) (not ...)) (progn (unless ... ...) (unless ... ...) (let* ... ...))) ) (when (and (stringp message-id) (not ...)) (unless (string-match "^<" message-id) (setq message-id ...)) (unless (string-match ">$" message-id) (setq message-id ...)) (let* (... ... number) (cond ... ...))) ) gnus-summary-refer-article("<38284F8B.C9F48652@ems.att.com>") (if (gnus-summary-refer-article (gnus-parent-id ref skip)) nil (gnus-message 1 "Couldn't find parent")) ) (unless (gnus-summary-refer-article (gnus-parent-id ref skip)) (gnus-message 1 "Couldn't find parent")) ) (if (and ref (not ...)) (unless (gnus-summary-refer-article ...) (gnus-message 1 "Couldn't find parent")) (gnus-message 1 "No references in article %d" (gnus-summary-article-number)) (setq error t)) ) (while (and (> n 0) (not error)) (setq header (gnus-summary-article-header)) (if (and ... ...) (save-excursion ... ... ... ...) (setq ref ...)) (if (and ref ...) (unless ... ...) (gnus-message 1 "No references in article %d" ...) (setq error t)) (decf n)) ) (let ((skip 1) error header ref) (when (not ...) (setq skip ... n 1)) (while (and ... ...) (setq header ...) (if ... ... ...) (if ... ... ... ...) (decf n)) (gnus-summary-position-point) n) ) gnus-summary-refer-parent-article(1) call-interactively(gnus-summary-refer-parent-article)