gnus-summary-crosspost-article

gnus-summary-crosspost-article

[Michael.Cook]

gnus-summary-crosspost-article hasn't been working recently (Oort
Gnus v0.04, GNU Emacs 21.1.1).  it causes a stack trace like this:

Debugger entered--Lisp error: (wrong-type-argument sequencep 26628)
  gnus-summary-move-article(nil nil nil crosspost)
  gnus-summary-crosspost-article(nil)
  call-interactively(gnus-summary-crosspost-article)

the following changes seem to fix the problem:

--- gnus-sum.el.~1~	Mon Nov 12 12:55:16 2001
+++ gnus-sum.el	Mon Nov 12 13:01:42 2001
@@ -8077,7 +8077,7 @@
 		      (mail-header-xref (gnus-summary-article-header article))
 		      " ")))
 	   (setq new-xref (concat (gnus-group-real-name gnus-newsgroup-name)
-				  ":" article))
+				  ":" (number-to-string article)))
 	   (unless xref
 	     (setq xref (list (system-name))))
 	   (setq new-xref
@@ -8094,7 +8094,8 @@
 				(gnus-request-accept-article
 				 to-newsgroup select-method (not articles))))
 	       (setq new-xref (concat new-xref " " (car art-group)
-				      ":" (cdr art-group)))
+				      ":"
+				      (number-to-string (cdr art-group))))
 	       ;; Now we have the new Xrefs header, so we insert
 	       ;; it and replace the new article.
 	       (nnheader-replace-header "Xref" new-xref)

maybe someone would commit these changes into cvs.

m.

Re: gnus-summary-crosspost-article

[ShengHuo ZHU]

Michael.Cook@cisco.com writes:

> gnus-summary-crosspost-article hasn't been working recently (Oort
> Gnus v0.04, GNU Emacs 21.1.1).  it causes a stack trace like this:
>
> Debugger entered--Lisp error: (wrong-type-argument sequencep 26628)
>   gnus-summary-move-article(nil nil nil crosspost)
>   gnus-summary-crosspost-article(nil)
>   call-interactively(gnus-summary-crosspost-article)
>
> the following changes seem to fix the problem:

Installed. Thanks.

ShengHuo