Re: enable-multibyte-characters is not defined in XEmacs

[Gunnar Evermann <ge204@eng.cam.ac.uk>]

Shenghuo ZHU <zsh@cs.rochester.edu> writes:

> >>>>> "G" == Gunnar Evermann <ge204@eng.cam.ac.uk> writes:
> 
> G> Shenghuo ZHU <zsh@cs.rochester.edu> writes:
> >> >>>>> "Gunnar" == Gunnar Evermann <ge204@eng.cam.ac.uk> 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)