From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/43943 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: Recent patch to gnus-sum.el broke it for XEmacs Date: Wed, 20 Mar 2002 17:49:56 +0900 Organization: Emacsen advocacy group Sender: owner-ding@hpc.uh.edu Message-ID: References: <86n0x3sk5o.fsf@duchess.twilley.org> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="Multipart_Wed_Mar_20_17:49:55_2002-1" X-Trace: main.gmane.org 1016614296 4662 127.0.0.1 (20 Mar 2002 08:51:36 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 20 Mar 2002 08:51:36 +0000 (UTC) Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 16nbol-0001Cz-00 for ; Wed, 20 Mar 2002 09:51:35 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 16nbne-0006Gr-00; Wed, 20 Mar 2002 02:50:26 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 20 Mar 2002 02:50:30 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id CAA02106 for ; Wed, 20 Mar 2002 02:50:18 -0600 (CST) Original-Received: (qmail 17581 invoked by alias); 20 Mar 2002 08:50:08 -0000 Original-Received: (qmail 17576 invoked from network); 20 Mar 2002 08:50:08 -0000 Original-Received: from groundpoundrecords.com (HELO mars.web-hosting.com) (207.228.244.150) by gnus.org with SMTP; 20 Mar 2002 08:50:08 -0000 Original-Received: (from yamaoka@localhost) by mars.web-hosting.com (8.11.1/8.11.1) id g2K8o8U05363; Wed, 20 Mar 2002 03:50:08 -0500 (EST) Original-To: ding@gnus.org User-Agent: T-gnus/6.15.6 (based on Oort Gnus v0.06) XEmacs/21.5 (beta5) (beets) (sparc-sun-solaris2.6) WEMIKO/1.14.1 (=?ISO-2022-JP?B?GyRCNl9KXExTQ24bKEI=?=) CLIME/1.14.3 (=?ISO-2022-JP?B?GyRCO3swZkA+OH0bKEI=?=) APEL/10.3 X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( Cancel-Lock: sha1:yn3PPMyJD5XFqsXEhw1PlRM560c= Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:43943 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:43943 --Multipart_Wed_Mar_20_17:49:55_2002-1 Content-Type: text/plain; charset=US-ASCII >>>>> In <86n0x3sk5o.fsf@duchess.twilley.org> >>>>> Jack Twilley 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. --Multipart_Wed_Mar_20_17:49:55_2002-1 Content-Type: application/x-patch; type=patch Content-Disposition: inline; filename="gnus-sum.el.diff" Content-Transfer-Encoding: 7bit --- gnus-sum.el~ 2002-03-19 22:15:02.000000000 +0000 +++ gnus-sum.el 2002-03-20 08:09:15.133016750 +0000 @@ -1975,27 +1975,23 @@ ["Show picons in mail headers" gnus-treat-mail-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)))) + ,@(mapcar + (lambda (cs) + (let ((command (intern (format "\ +gnus-summary-show-article-from-menu-as-charset-%s" cs)))) + (fset command + `(lambda () + (interactive) + (let ((gnus-summary-show-article-charset-alist + '((1 . ,cs)))) + (gnus-summary-show-article 1)))) + `[,(symbol-name cs) ,command t])) + (sort (if (fboundp 'coding-system-list) + (coding-system-list) + (mapcar 'car mm-mime-mule-charset-alist)) + (lambda (a b) + (string< (symbol-name a) + (symbol-name b))))))) ("Washing" ("Remove Blanks" ["Leading" gnus-article-strip-leading-blank-lines t] --Multipart_Wed_Mar_20_17:49:55_2002-1--