Recent patch to gnus-sum.el broke it for XEmacs

Recent patch to gnus-sum.el broke it for XEmacs

[Jack Twilley]

[-- Attachment #1: Type: text/plain, Size: 1692 bytes --]

The patch from 6.195 to 6.196 for lisp/gnus-sum.el broke Gnus for
XEmacs.

revision 6.196
date: 2002/03/19 22:16:33;  author: jas;  state: Exp;  lines: +23 -1
* gnus-sum.el (gnus-summary-make-menu-bar): Add "View as different
encoding" submenu.

Index: lisp/gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 6.195
retrieving revision 6.196
diff -r6.195 -r6.196
1976c1976,1998
< 	      ["Show picons in news headers" gnus-treat-newsgroups-picon t])
---
> 	      ["Show picons in news headers" gnus-treat-newsgroups-picon t]
> 	      ("View as different encoding"
> 	       ,@(let (out)
> 		   (if (fboundp 'read-coding-system)
> 		       (mapc (lambda (el)
> 			       (let ((cs (car el)))
> 				 (unless (or (string-match "dos$" cs)
> 					     (string-match "mac$" cs)
> 					     (string-match "unix$" cs))
> 				   (push (car el) out)))) 
> 			     coding-system-alist)
> 		     (mapc (lambda (el)
> 			     (push (car el) out))
> 			   mm-mime-mule-charset-alist))
> 		   (setq out (sort out 'string<))
> 		   (mapcar (lambda (cs)
> 			     `[,cs
> 			       (lambda ()
> 				 (let ((gnus-summary-show-article-charset-alist
> 					((1 . ,cs))))
> 				   (gnus-summary-show-article 1)))
> 			       t])
> 			   out))))

At least on my XEmacs, coding-system-alist doesn't exist.

Here's my emacs-version:

XEmacs 21.4 (patch 6) "Common Lisp" [Lucid] (i386-unknown-freebsd4.5)
of Thu Feb 21 2002 on duchess.twilley.org

Jack.
-- 
Jack Twilley
jmt at twilley dot org
http colon slash slash www dot twilley dot org slash tilde jmt slash

[-- Attachment #2: Type: application/pgp-signature, Size: 229 bytes --]

Re: Recent patch to gnus-sum.el broke it for XEmacs

[Katsumi Yamaoka]

[-- Attachment #1: Type: text/plain, Size: 251 bytes --]

>>>>> In <86n0x3sk5o.fsf@duchess.twilley.org>
>>>>>	Jack Twilley <jmt+usenet@twilley.org> wrote:

Jack> The patch from 6.195 to 6.196 for lisp/gnus-sum.el broke Gnus for
Jack> XEmacs.

I've sent the following patch to bugs@gnus.org half an hour ago.


[-- Attachment #2: gnus-sum.el.diff --]
[-- Type: application/x-patch, Size: 1617 bytes --]