From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/60077 Path: news.gmane.org!not-for-mail From: Adrian Aichner Newsgroups: gmane.emacs.xemacs.beta,gmane.emacs.gnus.general Subject: Re: 5.10 summary menubar broken on XEmacs Date: Sat, 02 Apr 2005 11:52:38 +0200 Organization: The XEmacs Project Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1112438706 1625 80.91.229.2 (2 Apr 2005 10:45:06 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 2 Apr 2005 10:45:06 +0000 (UTC) Cc: XEmacs Beta Original-X-From: xemacs-beta-bounces@xemacs.org Sat Apr 02 12:45:01 2005 Return-path: Original-Received: from gwyn.tux.org ([199.184.165.135] ident=ident-user) by ciao.gmane.org with esmtp (Exim 4.43) id 1DHg7d-0000GU-Fr for gexb-xemacs-beta@gmane.org; Sat, 02 Apr 2005 12:44:58 +0200 Original-Received: from gwyn.tux.org (ident-user@localhost.localdomain [127.0.0.1]) by gwyn.tux.org (8.12.11/8.12.11) with ESMTP id j32AkEdd023815; Sat, 2 Apr 2005 05:46:17 -0500 Original-Received: from gwyn.tux.org (ident-user@localhost.localdomain [127.0.0.1]) by gwyn.tux.org (8.12.11/8.12.11) with ESMTP id j32AkBNK023800 for ; Sat, 2 Apr 2005 05:46:11 -0500 Original-Received: (from xemacweb@localhost) by gwyn.tux.org (8.12.11/8.12.11/Submit) id j32AkB8g023798 for xemacs-beta-mailman@xemacs.org; Sat, 2 Apr 2005 05:46:11 -0500 Original-Received: from gwyn.tux.org (ident-user@localhost.localdomain [127.0.0.1]) by gwyn.tux.org (8.12.11/8.12.11) with ESMTP id j32Ak3b4023773 for ; Sat, 2 Apr 2005 05:46:03 -0500 Original-Received: (from mailnull@localhost) by gwyn.tux.org (8.12.11/8.12.11/Submit) id j32Ak3p5023772 for xemacweb@tux.org; Sat, 2 Apr 2005 05:46:03 -0500 Original-Received: from syl.extundo.com (syl.extundo.com [212.32.189.101]) by gwyn.tux.org (8.12.11/8.12.11) with ESMTP id j32AjeWm023718 for ; Sat, 2 Apr 2005 05:46:02 -0500 Original-Received: from mailout03.sul.t-online.com (mailout03.sul.t-online.com [194.25.134.81]) by syl.extundo.com (8.12.10/8.12.10) with ESMTP id j329vKh2003099 for ; Sat, 2 Apr 2005 11:57:20 +0200 Original-Received: from fwd21.aul.t-online.de by mailout03.sul.t-online.com with smtp id 1DHfHV-0003cv-00; Sat, 02 Apr 2005 11:51:05 +0200 Original-Received: from D5DC120J.t-online.de (rIH08-ZVweNnjYNCa8j7DaUtHV5z9L4ai056GUPNPtjVfYJnkOyfc4@[84.153.99.33]) by fwd21.sul.t-online.de with esmtp id 1DHfHC-26CNiy0; Sat, 2 Apr 2005 11:50:46 +0200 Original-To: Gnus List X-Attribution: APA X-Face: 4[iHdXiTu\V3u[~\I)*}#kYF[-tYl3VZga/HSOP|K,{L Rtu@f0y/=O&Cu}\:~d|P$JON?pn?j,&CnPb1z#/TL9bkAJwyol&a:SvYj-VYbM=Dtxhk9 =w|R6U3_;SH&B (Steve Youngs's message of "Sat, 02 Apr 2005 10:57:57 +1000") User-Agent: Gnus/5.1007 (Gnus v5.10.7) XEmacs/21.5-b20 (cilantro, windows-nt) X-ID: rIH08-ZVweNnjYNCa8j7DaUtHV5z9L4ai056GUPNPtjVfYJnkOyfc4@t-dialin.net X-TOI-MSGID: 65e3f04c-ed65-46af-8709-ea55d8d2e397 X-Greylist: Sender IP whitelisted, not delayed by milter-greylist-1.6 (gwyn.tux.org [0.0.0.0]); Sat, 02 Apr 2005 05:46:18 -0500 (EST) X-Greylist: Sender IP whitelisted, not delayed by milter-greylist-1.6 (gwyn.tux.org [0.0.0.0]); Sat, 02 Apr 2005 05:46:11 -0500 (EST) X-Greylist: Sender IP whitelisted, not delayed by milter-greylist-1.6 (gwyn.tux.org [0.0.0.0]); Sat, 02 Apr 2005 05:46:03 -0500 (EST) X-Greylist: Delayed for 00:54:50 by milter-greylist-1.6 (gwyn.tux.org [199.184.165.136]); Sat, 02 Apr 2005 05:46:03 -0500 (EST) X-Virus-Scanned: ClamAV version 0.83, clamav-milter version 0.83 on gwyn.tux.org X-Virus-Scanned: ClamAV version 0.83, clamav-milter version 0.83 on gwyn.tux.org X-Virus-Scanned: ClamAV version 0.83, clamav-milter version 0.83 on gwyn.tux.org X-Virus-Scanned: ClamAV version 0.83, clamav-milter version 0.83 on gwyn.tux.org X-Virus-Status: Clean X-XEmacs-List: beta X-Spam-Checker-Version: SpamAssassin 2.63 (2004-01-11) on gwyn.tux.org X-Spam-Level: X-Spam-Status: No, hits=0.0 required=5.0 tests=AWL autolearn=no version=2.63 X-BeenThere: xemacs-beta@xemacs.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: XEmacs Beta Testers List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Original-Sender: xemacs-beta-bounces@xemacs.org Errors-To: xemacs-beta-bounces@xemacs.org Xref: news.gmane.org gmane.emacs.xemacs.beta:18845 gmane.emacs.gnus.general:60077 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:60077 --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Steve Youngs writes: > Hi Folks! > > The menubar in the summary buffer is broken on XEmacs[1] with Gnus > 5.10.7. Trying to access any menu in the summary buffer with a mouse > gives:=20 > > "Unrecognized menu descriptor", t > > And for some reason, I can't produce a useful backtrace so I'm kinda > stuck with trying to debug this. > > Can anyone shed any light? Hi Steve, ding, xemacs-beta, I can reproduce this nicely, without crashes, in XEmacs 21.5 (beta20) "cilantro" (+CVS-20050330) [Lucid] (i586-pc-win32, Mu= le) of Thu Mar 31 2005 on D5DC120J when entering a group from the *Group* buffer using RET runs the command gnus-group-select-group The error message is printed by ;; (t (signal 'error (list "unrecognized menu descriptor" menuitem))= )) (t (message "unrecognized menu descriptor %s" (prin1-to-string menui= tem)))) in (defun check-menu-syntax (menu &optional menubar-p) of xemacs-21.5-clean\lisp\menubar.el (xemacs-21.5-clean is my xemacs 21.5 (CVS HEAD) workspace directory reasonably clean of local modifications) e.g. when the menu argument comes in as: (t ["Respool article..." gnus-summary-respool-article t] ["Move article..."= gnus-summary-move-article (gnus-check-backend-function (quote request-move= -article) gnus-newsgroup-name)] ["Copy article..." gnus-summary-copy-articl= e t] ["Crosspost article..." gnus-summary-crosspost-article (gnus-check-bac= kend-function (quote request-replace-article) gnus-newsgroup-name)] ["Impor= t file..." gnus-summary-import-article (gnus-check-backend-function (quote = request-accept-article) gnus-newsgroup-name)] ["Create article..." gnus-sum= mary-create-article (gnus-check-backend-function (quote request-accept-arti= cle) gnus-newsgroup-name)] ["Check if posted" gnus-summary-article-posted-p= t] ["Edit article" gnus-summary-edit-article (not (gnus-group-read-only-p)= )] ["Delete article" gnus-summary-delete-article (gnus-check-backend-functi= on (quote request-expire-articles) gnus-newsgroup-name)] ["Query respool" g= nus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t]= ["Delete expirable articles" gnus-summary-expire-articles-now (gnus-check-= backend-function (quote request-expire-articles) gnus-newsgroup-name)]) Here is the backtrace to fit above case: --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Disposition: inline; filename=gnus-unrecognized-menu-descriptor.txt Content-Transfer-Encoding: quoted-printable (cond ((edebug-after ... 82 ...) (edebug-after ... 102 ...)) ((edebug-aft= er ... 105 ...) (edebug-after ... 112 ...)) ((edebug-after ... 115 ...) (ed= ebug-after ... 118 ...)) ((edebug-after ... 121 ...) (edebug-after ... 240 = ...)) (t (edebug-after ... 245 ...))) (while (edebug-after 0 73 menu) (edebug-after (edebug-before 74) 78 (setq= menuitem ...)) (edebug-after (edebug-before 79) 246 (cond ... ... ... ... = ...)) (edebug-after (edebug-before 247) 251 (setq menu ...))) (let (menuitem item) (edebug-after (edebug-before 21) 71 (while ... ... .= .. ...)) (edebug-after (edebug-before 72) 252 (while ... ... ... ...))) check-menu-syntax(("Copy, move,... (Backend)" t ["Respool article..." gnu= s-summary-respool-article t] ["Move article..." gnus-summary-move-article (= gnus-check-backend-function ... gnus-newsgroup-name)] ["Copy article..." gn= us-summary-copy-article t] ["Crosspost article..." gnus-summary-crosspost-a= rticle (gnus-check-backend-function ... gnus-newsgroup-name)] ["Import file= ..." gnus-summary-import-article (gnus-check-backend-function ... gnus-news= group-name)] ["Create article..." gnus-summary-create-article (gnus-check-b= ackend-function ... gnus-newsgroup-name)] ["Check if posted" gnus-summary-a= rticle-posted-p t] ["Edit article" gnus-summary-edit-article (not ...)] ["D= elete article" gnus-summary-delete-article (gnus-check-backend-function ...= gnus-newsgroup-name)] ["Query respool" gnus-summary-respool-query t] ["Tra= ce respool" gnus-summary-respool-trace t] ["Delete expirable articles" gnus= -summary-expire-articles-now (gnus-check-backend-function ... gnus-newsgrou= p-name)])) (cond ((edebug-after ... 82 ...) (edebug-after ... 102 ...)) ((edebug-aft= er ... 105 ...) (edebug-after ... 112 ...)) ((edebug-after ... 115 ...) (ed= ebug-after ... 118 ...)) ((edebug-after ... 121 ...) (edebug-after ... 240 = ...)) (t (edebug-after ... 245 ...))) (while (edebug-after 0 73 menu) (edebug-after (edebug-before 74) 78 (setq= menuitem ...)) (edebug-after (edebug-before 79) 246 (cond ... ... ... ... = ...)) (edebug-after (edebug-before 247) 251 (setq menu ...))) (let (menuitem item) (edebug-after (edebug-before 21) 71 (while ... ... .= .. ...)) (edebug-after (edebug-before 72) 252 (while ... ... ... ...))) check-menu-syntax(("Article" ("Hide" ["All" gnus-article-hide t] ["Header= s" gnus-article-hide-headers t] ["Signature" gnus-article-hide-signature t]= ["Citation" gnus-article-hide-citation t] ["List identifiers" gnus-article= -hide-list-identifiers t] ["Banner" gnus-article-strip-banner t] ["Boring h= eaders" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-artic= le-highlight t] ["Headers" gnus-article-highlight-headers t] ["Signature" g= nus-article-highlight-signature t] ["Citation" gnus-article-highlight-citat= ion t]) ("MIME" ["Words" gnus-article-decode-mime-words t] ["Charset" gnus-= article-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base= 64" gnus-article-de-base64-unreadable t] ["View MIME buttons" gnus-summary-= display-buttonized t] ["View all" gnus-mime-view-all-parts t] ["Verify and = Decrypt" gnus-summary-force-verify-and-decrypt t] ["Encrypt body" gnus-arti= cle-encrypt-body:active ...] ["Extract all parts..." gnus-summary-save-par= ts t] ("Multipart" ... ... ... ... ... ... ... ... ...)) ("Date" ["Local" g= nus-article-date-local t] ["ISO8601" gnus-article-date-iso8601 t] ["UT" gnu= s-article-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gn= us-article-date-lapsed t] ["User-defined" gnus-article-date-user t]) ("Disp= lay" ["Remove images" gnus-article-remove-images t] ["Toggle smiley" gnus-t= reat-smiley t] ["Show X-Face" gnus-article-display-x-face t] ["Show picons = in From" gnus-treat-from-picon t] ["Show picons in mail headers" gnus-treat= -mail-picon t] ["Show picons in news headers" gnus-treat-newsgroups-picon t= ] ("View as different encoding" ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("Washing" ("Rem= ove Blanks" ... ... ... ... ... ... ... ...) ["Overstrike" gnus-article-tre= at-overstrike t] ["Dumb quotes" gnus-article-treat-dumbquotes t] ["Emphasis= " gnus-article-emphasize t] ["Word wrap" gnus-article-fill-cited-article t]= ["Fill long lines" gnus-article-fill-long-lines t] ["Capitalize sentences"= gnus-article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t= ] ["Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-a= rticle-de-base64-unreadable t] ["Rot 13" gnus-summary-caesar-message t] ["M= orse decode" gnus-summary-morse-message t] ["Unix pipe..." gnus-summary-pip= e-message t] ["Add buttons" gnus-article-add-buttons t] ["Add buttons to he= ad" gnus-article-add-buttons-to-head t] ["Stop page breaking" gnus-summary-= stop-page-breaking t] ["Verbose header" gnus-summary-verbose-headers t] ["T= oggle header" gnus-summary-toggle-header t] ["Unfold headers" gnus-article-= treat-unfold-headers t] ["Fold newsgroups" gnus-article-treat-fold-newsgrou= ps t] ["Html" gnus-article-wash-html t] ["Unsplit URLs" gnus-article-unspli= t-urls t] ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t] ["Decode HZ"= gnus-article-decode-HZ t] ("(Outlook) Deuglify" ... ... ... ...)) ("Output= " ["Save in default format..." gnus-summary-save-article t] ["Save in file.= .." gnus-summary-save-article-file t] ["Save in Unix mail format..." gnus-s= ummary-save-article-mail t] ["Save in MH folder..." gnus-summary-save-artic= le-folder t] ["Save in VM folder..." gnus-summary-save-article-vm t] ["Save= in RMAIL mbox..." gnus-summary-save-article-rmail t] ["Save body in file..= ." gnus-summary-save-article-body-file t] ["Pipe through a filter..." gnus-= summary-pipe-output t] ["Add to SOUP packet" gnus-soup-add-article t] ["Pri= nt with Muttprint..." gnus-summary-muttprint t] ["Print" gnus-summary-print= -article t]) ("Copy, move,... (Backend)" t ["Respool article..." gnus-summa= ry-respool-article t] ["Move article..." gnus-summary-move-article ...] ["C= opy article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-s= ummary-crosspost-article ...] ["Import file..." gnus-summary-import-article= ...] ["Create article..." gnus-summary-create-article ...] ["Check if post= ed" gnus-summary-article-posted-p t] ["Edit article" gnus-summary-edit-arti= cle ...] ["Delete article" gnus-summary-delete-article ...] ["Query respool= " gnus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace= t] ["Delete expirable articles" gnus-summary-expire-articles-now ...]) ("E= xtract" ["Uudecode" gnus-uu-decode-uu t] ["Uudecode and save" gnus-uu-decod= e-uu-and-save t] ["Unshar" gnus-uu-decode-unshar t] ["Unshar and save" gnus= -uu-decode-unshar-and-save t] ["Save" gnus-uu-decode-save t] ["Binhex" gnus= -uu-decode-binhex t] ["Postscript" gnus-uu-decode-postscript t] ["All MIME = parts" gnus-summary-save-parts t]) ("Cache" ["Enter article" gnus-cache-ent= er-article t] ["Remove article" gnus-cache-remove-article t]) ["Translate" = gnus-article-babel t] ["Select article buffer" gnus-summary-select-article-= buffer t] ["Enter digest buffer" gnus-summary-enter-digest-group t] ["Isear= ch article..." gnus-summary-isearch-article t] ["Beginning of the article" = gnus-summary-beginning-of-article t] ["End of the article" gnus-summary-end= -of-article t] ["Fetch parent of article" gnus-summary-refer-parent-article= t] ["Fetch referenced articles" gnus-summary-refer-references t] ["Fetch c= urrent thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnu= s-summary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-i= nsinuate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-s= ummary-show-raw-article:keys "C-u g"]) nil) add-submenu(nil ("Article" ("Hide" ["All" gnus-article-hide t] ["Headers"= gnus-article-hide-headers t] ["Signature" gnus-article-hide-signature t] [= "Citation" gnus-article-hide-citation t] ["List identifiers" gnus-article-h= ide-list-identifiers t] ["Banner" gnus-article-strip-banner t] ["Boring hea= ders" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article= -highlight t] ["Headers" gnus-article-highlight-headers t] ["Signature" gnu= s-article-highlight-signature t] ["Citation" gnus-article-highlight-citatio= n t]) ("MIME" ["Words" gnus-article-decode-mime-words t] ["Charset" gnus-ar= ticle-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64= " gnus-article-de-base64-unreadable t] ["View MIME buttons" gnus-summary-di= splay-buttonized t] ["View all" gnus-mime-view-all-parts t] ["Verify and De= crypt" gnus-summary-force-verify-and-decrypt t] ["Encrypt body" gnus-articl= e-encrypt-body:active ...] ["Extract all parts..." gnus-summary-save-parts= t] ("Multipart" ... ... ... ... ... ... ... ... ...)) ("Date" ["Local" gnu= s-article-date-local t] ["ISO8601" gnus-article-date-iso8601 t] ["UT" gnus-= article-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus= -article-date-lapsed t] ["User-defined" gnus-article-date-user t]) ("Displa= y" ["Remove images" gnus-article-remove-images t] ["Toggle smiley" gnus-tre= at-smiley t] ["Show X-Face" gnus-article-display-x-face t] ["Show picons in= From" gnus-treat-from-picon t] ["Show picons in mail headers" gnus-treat-m= ail-picon t] ["Show picons in news headers" gnus-treat-newsgroups-picon t] = ("View as different encoding" ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("Washing" ("Remov= e Blanks" ... ... ... ... ... ... ... ...) ["Overstrike" gnus-article-treat= -overstrike t] ["Dumb quotes" gnus-article-treat-dumbquotes t] ["Emphasis" = gnus-article-emphasize t] ["Word wrap" gnus-article-fill-cited-article t] [= "Fill long lines" gnus-article-fill-long-lines t] ["Capitalize sentences" g= nus-article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t] = ["Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-art= icle-de-base64-unreadable t] ["Rot 13" gnus-summary-caesar-message t] ["Mor= se decode" gnus-summary-morse-message t] ["Unix pipe..." gnus-summary-pipe-= message t] ["Add buttons" gnus-article-add-buttons t] ["Add buttons to head= " gnus-article-add-buttons-to-head t] ["Stop page breaking" gnus-summary-st= op-page-breaking t] ["Verbose header" gnus-summary-verbose-headers t] ["Tog= gle header" gnus-summary-toggle-header t] ["Unfold headers" gnus-article-tr= eat-unfold-headers t] ["Fold newsgroups" gnus-article-treat-fold-newsgroups= t] ["Html" gnus-article-wash-html t] ["Unsplit URLs" gnus-article-unsplit-= urls t] ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t] ["Decode HZ" g= nus-article-decode-HZ t] ("(Outlook) Deuglify" ... ... ... ...)) ("Output" = ["Save in default format..." gnus-summary-save-article t] ["Save in file...= " gnus-summary-save-article-file t] ["Save in Unix mail format..." gnus-sum= mary-save-article-mail t] ["Save in MH folder..." gnus-summary-save-article= -folder t] ["Save in VM folder..." gnus-summary-save-article-vm t] ["Save i= n RMAIL mbox..." gnus-summary-save-article-rmail t] ["Save body in file..."= gnus-summary-save-article-body-file t] ["Pipe through a filter..." gnus-su= mmary-pipe-output t] ["Add to SOUP packet" gnus-soup-add-article t] ["Print= with Muttprint..." gnus-summary-muttprint t] ["Print" gnus-summary-print-a= rticle t]) ("Copy, move,... (Backend)" t ["Respool article..." gnus-summary= -respool-article t] ["Move article..." gnus-summary-move-article ...] ["Cop= y article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-sum= mary-crosspost-article ...] ["Import file..." gnus-summary-import-article .= ..] ["Create article..." gnus-summary-create-article ...] ["Check if posted= " gnus-summary-article-posted-p t] ["Edit article" gnus-summary-edit-articl= e ...] ["Delete article" gnus-summary-delete-article ...] ["Query respool" = gnus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t= ] ["Delete expirable articles" gnus-summary-expire-articles-now ...]) ("Ext= ract" ["Uudecode" gnus-uu-decode-uu t] ["Uudecode and save" gnus-uu-decode-= uu-and-save t] ["Unshar" gnus-uu-decode-unshar t] ["Unshar and save" gnus-u= u-decode-unshar-and-save t] ["Save" gnus-uu-decode-save t] ["Binhex" gnus-u= u-decode-binhex t] ["Postscript" gnus-uu-decode-postscript t] ["All MIME pa= rts" gnus-summary-save-parts t]) ("Cache" ["Enter article" gnus-cache-enter= -article t] ["Remove article" gnus-cache-remove-article t]) ["Translate" gn= us-article-babel t] ["Select article buffer" gnus-summary-select-article-bu= ffer t] ["Enter digest buffer" gnus-summary-enter-digest-group t] ["Isearch= article..." gnus-summary-isearch-article t] ["Beginning of the article" gn= us-summary-beginning-of-article t] ["End of the article" gnus-summary-end-o= f-article t] ["Fetch parent of article" gnus-summary-refer-parent-article t= ] ["Fetch referenced articles" gnus-summary-refer-references t] ["Fetch cur= rent thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-= summary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-ins= inuate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-sum= mary-show-raw-article:keys "C-u g"]) nil) add-menu(nil "Article" (("Hide" ["All" gnus-article-hide t] ["Headers" gn= us-article-hide-headers t] ["Signature" gnus-article-hide-signature t] ["Ci= tation" gnus-article-hide-citation t] ["List identifiers" gnus-article-hide= -list-identifiers t] ["Banner" gnus-article-strip-banner t] ["Boring header= s" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article-hi= ghlight t] ["Headers" gnus-article-highlight-headers t] ["Signature" gnus-a= rticle-highlight-signature t] ["Citation" gnus-article-highlight-citation t= ]) ("MIME" ["Words" gnus-article-decode-mime-words t] ["Charset" gnus-artic= le-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64" g= nus-article-de-base64-unreadable t] ["View MIME buttons" gnus-summary-displ= ay-buttonized t] ["View all" gnus-mime-view-all-parts t] ["Verify and Decry= pt" gnus-summary-force-verify-and-decrypt t] ["Encrypt body" gnus-article-e= ncrypt-body:active ...] ["Extract all parts..." gnus-summary-save-parts t]= ("Multipart" ... ... ... ... ... ... ... ... ...)) ("Date" ["Local" gnus-a= rticle-date-local t] ["ISO8601" gnus-article-date-iso8601 t] ["UT" gnus-art= icle-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus-ar= ticle-date-lapsed t] ["User-defined" gnus-article-date-user t]) ("Display" = ["Remove images" gnus-article-remove-images t] ["Toggle smiley" gnus-treat-= smiley t] ["Show X-Face" gnus-article-display-x-face t] ["Show picons in Fr= om" gnus-treat-from-picon t] ["Show picons in mail headers" gnus-treat-mail= -picon t] ["Show picons in news headers" gnus-treat-newsgroups-picon t] ("V= iew as different encoding" ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("Washing" ("Remove B= lanks" ... ... ... ... ... ... ... ...) ["Overstrike" gnus-article-treat-ov= erstrike t] ["Dumb quotes" gnus-article-treat-dumbquotes t] ["Emphasis" gnu= s-article-emphasize t] ["Word wrap" gnus-article-fill-cited-article t] ["Fi= ll long lines" gnus-article-fill-long-lines t] ["Capitalize sentences" gnus= -article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t] ["Q= uoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-articl= e-de-base64-unreadable t] ["Rot 13" gnus-summary-caesar-message t] ["Morse = decode" gnus-summary-morse-message t] ["Unix pipe..." gnus-summary-pipe-mes= sage t] ["Add buttons" gnus-article-add-buttons t] ["Add buttons to head" g= nus-article-add-buttons-to-head t] ["Stop page breaking" gnus-summary-stop-= page-breaking t] ["Verbose header" gnus-summary-verbose-headers t] ["Toggle= header" gnus-summary-toggle-header t] ["Unfold headers" gnus-article-treat= -unfold-headers t] ["Fold newsgroups" gnus-article-treat-fold-newsgroups t]= ["Html" gnus-article-wash-html t] ["Unsplit URLs" gnus-article-unsplit-url= s t] ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t] ["Decode HZ" gnus= -article-decode-HZ t] ("(Outlook) Deuglify" ... ... ... ...)) ("Output" ["S= ave in default format..." gnus-summary-save-article t] ["Save in file..." g= nus-summary-save-article-file t] ["Save in Unix mail format..." gnus-summar= y-save-article-mail t] ["Save in MH folder..." gnus-summary-save-article-fo= lder t] ["Save in VM folder..." gnus-summary-save-article-vm t] ["Save in R= MAIL mbox..." gnus-summary-save-article-rmail t] ["Save body in file..." gn= us-summary-save-article-body-file t] ["Pipe through a filter..." gnus-summa= ry-pipe-output t] ["Add to SOUP packet" gnus-soup-add-article t] ["Print wi= th Muttprint..." gnus-summary-muttprint t] ["Print" gnus-summary-print-arti= cle t]) ("Copy, move,... (Backend)" t ["Respool article..." gnus-summary-re= spool-article t] ["Move article..." gnus-summary-move-article ...] ["Copy a= rticle..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summar= y-crosspost-article ...] ["Import file..." gnus-summary-import-article ...]= ["Create article..." gnus-summary-create-article ...] ["Check if posted" g= nus-summary-article-posted-p t] ["Edit article" gnus-summary-edit-article .= ..] ["Delete article" gnus-summary-delete-article ...] ["Query respool" gnu= s-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t] [= "Delete expirable articles" gnus-summary-expire-articles-now ...]) ("Extrac= t" ["Uudecode" gnus-uu-decode-uu t] ["Uudecode and save" gnus-uu-decode-uu-= and-save t] ["Unshar" gnus-uu-decode-unshar t] ["Unshar and save" gnus-uu-d= ecode-unshar-and-save t] ["Save" gnus-uu-decode-save t] ["Binhex" gnus-uu-d= ecode-binhex t] ["Postscript" gnus-uu-decode-postscript t] ["All MIME parts= " gnus-summary-save-parts t]) ("Cache" ["Enter article" gnus-cache-enter-ar= ticle t] ["Remove article" gnus-cache-remove-article t]) ["Translate" gnus-= article-babel t] ["Select article buffer" gnus-summary-select-article-buffe= r t] ["Enter digest buffer" gnus-summary-enter-digest-group t] ["Isearch ar= ticle..." gnus-summary-isearch-article t] ["Beginning of the article" gnus-= summary-beginning-of-article t] ["End of the article" gnus-summary-end-of-a= rticle t] ["Fetch parent of article" gnus-summary-refer-parent-article t] [= "Fetch referenced articles" gnus-summary-refer-references t] ["Fetch curren= t thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-sum= mary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-insinu= ate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-summar= y-show-raw-article:keys "C-u g"])) (cond ((edebug-after ... 47 ...) nil) ((edebug-after ... 53 ...) nil) ((e= debug-after ... 56 ...) (edebug-after ... 61 ...)) (t (edebug-after ... 66 = ...) (edebug-after ... 74 ...))) (progn (edebug-after (edebug-before 3) 12 (unless ... ...)) (edebug-after= (edebug-before 13) 43 (setq mode-popup-menu ...)) (edebug-after (edebug-be= fore 44) 75 (cond ... ... ... ...))) (if (edebug-after (edebug-before 1) 2 (featurep ...)) (progn (edebug-afte= r ... 12 ...) (edebug-after ... 43 ...) (edebug-after ... 75 ...))) (when (edebug-after (edebug-before 1) 2 (featurep ...)) (edebug-after (ed= ebug-before 3) 12 (unless ... ...)) (edebug-after (edebug-before 13) 43 (se= tq mode-popup-menu ...)) (edebug-after (edebug-before 44) 75 (cond ... ... = ... ...))) easy-menu-add(("Article" ("Hide" ["All" gnus-article-hide t] ["Headers" g= nus-article-hide-headers t] ["Signature" gnus-article-hide-signature t] ["C= itation" gnus-article-hide-citation t] ["List identifiers" gnus-article-hid= e-list-identifiers t] ["Banner" gnus-article-strip-banner t] ["Boring heade= rs" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article-h= ighlight t] ["Headers" gnus-article-highlight-headers t] ["Signature" gnus-= article-highlight-signature t] ["Citation" gnus-article-highlight-citation = t]) ("MIME" ["Words" gnus-article-decode-mime-words t] ["Charset" gnus-arti= cle-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64" = gnus-article-de-base64-unreadable t] ["View MIME buttons" gnus-summary-disp= lay-buttonized t] ["View all" gnus-mime-view-all-parts t] ["Verify and Decr= ypt" gnus-summary-force-verify-and-decrypt t] ["Encrypt body" gnus-article-= encrypt-body:active ...] ["Extract all parts..." gnus-summary-save-parts t= ] ("Multipart" ... ... ... ... ... ... ... ... ...)) ("Date" ["Local" gnus-= article-date-local t] ["ISO8601" gnus-article-date-iso8601 t] ["UT" gnus-ar= ticle-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus-a= rticle-date-lapsed t] ["User-defined" gnus-article-date-user t]) ("Display"= ["Remove images" gnus-article-remove-images t] ["Toggle smiley" gnus-treat= -smiley t] ["Show X-Face" gnus-article-display-x-face t] ["Show picons in F= rom" gnus-treat-from-picon t] ["Show picons in mail headers" gnus-treat-mai= l-picon t] ["Show picons in news headers" gnus-treat-newsgroups-picon t] ("= View as different encoding" ... ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("Washing" ("Remove = Blanks" ... ... ... ... ... ... ... ...) ["Overstrike" gnus-article-treat-o= verstrike t] ["Dumb quotes" gnus-article-treat-dumbquotes t] ["Emphasis" gn= us-article-emphasize t] ["Word wrap" gnus-article-fill-cited-article t] ["F= ill long lines" gnus-article-fill-long-lines t] ["Capitalize sentences" gnu= s-article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t] ["= Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-artic= le-de-base64-unreadable t] ["Rot 13" gnus-summary-caesar-message t] ["Morse= decode" gnus-summary-morse-message t] ["Unix pipe..." gnus-summary-pipe-me= ssage t] ["Add buttons" gnus-article-add-buttons t] ["Add buttons to head" = gnus-article-add-buttons-to-head t] ["Stop page breaking" gnus-summary-stop= -page-breaking t] ["Verbose header" gnus-summary-verbose-headers t] ["Toggl= e header" gnus-summary-toggle-header t] ["Unfold headers" gnus-article-trea= t-unfold-headers t] ["Fold newsgroups" gnus-article-treat-fold-newsgroups t= ] ["Html" gnus-article-wash-html t] ["Unsplit URLs" gnus-article-unsplit-ur= ls t] ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t] ["Decode HZ" gnu= s-article-decode-HZ t] ("(Outlook) Deuglify" ... ... ... ...)) ("Output" ["= Save in default format..." gnus-summary-save-article t] ["Save in file..." = gnus-summary-save-article-file t] ["Save in Unix mail format..." gnus-summa= ry-save-article-mail t] ["Save in MH folder..." gnus-summary-save-article-f= older t] ["Save in VM folder..." gnus-summary-save-article-vm t] ["Save in = RMAIL mbox..." gnus-summary-save-article-rmail t] ["Save body in file..." g= nus-summary-save-article-body-file t] ["Pipe through a filter..." gnus-summ= ary-pipe-output t] ["Add to SOUP packet" gnus-soup-add-article t] ["Print w= ith Muttprint..." gnus-summary-muttprint t] ["Print" gnus-summary-print-art= icle t]) ("Copy, move,... (Backend)" t ["Respool article..." gnus-summary-r= espool-article t] ["Move article..." gnus-summary-move-article ...] ["Copy = article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summa= ry-crosspost-article ...] ["Import file..." gnus-summary-import-article ...= ] ["Create article..." gnus-summary-create-article ...] ["Check if posted" = gnus-summary-article-posted-p t] ["Edit article" gnus-summary-edit-article = ...] ["Delete article" gnus-summary-delete-article ...] ["Query respool" gn= us-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t] = ["Delete expirable articles" gnus-summary-expire-articles-now ...]) ("Extra= ct" ["Uudecode" gnus-uu-decode-uu t] ["Uudecode and save" gnus-uu-decode-uu= -and-save t] ["Unshar" gnus-uu-decode-unshar t] ["Unshar and save" gnus-uu-= decode-unshar-and-save t] ["Save" gnus-uu-decode-save t] ["Binhex" gnus-uu-= decode-binhex t] ["Postscript" gnus-uu-decode-postscript t] ["All MIME part= s" gnus-summary-save-parts t]) ("Cache" ["Enter article" gnus-cache-enter-a= rticle t] ["Remove article" gnus-cache-remove-article t]) ["Translate" gnus= -article-babel t] ["Select article buffer" gnus-summary-select-article-buff= er t] ["Enter digest buffer" gnus-summary-enter-digest-group t] ["Isearch a= rticle..." gnus-summary-isearch-article t] ["Beginning of the article" gnus= -summary-beginning-of-article t] ["End of the article" gnus-summary-end-of-= article t] ["Fetch parent of article" gnus-summary-refer-parent-article t] = ["Fetch referenced articles" gnus-summary-refer-references t] ["Fetch curre= nt thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-su= mmary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-insin= uate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-summa= ry-show-raw-article:keys "C-u g"])) (while (edebug-after 0 12 menus) (edebug-after (edebug-before 13) 19 (eas= y-menu-add ...))) (if (edebug-after (edebug-before 1) 10 (and ... ...)) (edebug-after (edeb= ug-before 11) 20 (while ... ...))) (when (edebug-after (edebug-before 1) 10 (and ... ...)) (edebug-after (ed= ebug-before 11) 20 (while ... ...))) gnus-xmas-menu-add-1(summary (gnus-summary-misc-menu gnus-summary-kill-me= nu gnus-summary-article-menu gnus-summary-thread-menu gnus-summary-post-men= u)) (gnus-xmas-menu-add summary gnus-summary-misc-menu gnus-summary-kill-menu= gnus-summary-article-menu gnus-summary-thread-menu gnus-summary-post-menu) gnus-xmas-summary-menu-add() run-hooks(gnus-xmas-summary-menu-add) apply(run-hooks gnus-xmas-summary-menu-add) gnus-run-hooks(gnus-summary-mode-hook) gnus-summary-mode("nnml:T-Online") (if (get-buffer buffer) (progn (set-buffer buffer) (setq gnus-summary-buf= fer ...) (not gnus-newsgroup-prepared)) (setq gnus-summary-buffer (set-buff= er ...)) (gnus-summary-mode group) (when gnus-carpal (gnus-carpal-setup-buf= fer ...)) (unless gnus-single-article-buffer (make-local-variable ...) (mak= e-local-variable ...) (make-local-variable ...)) (setq gnus-newsgroup-name = group) (gnus-summary-set-local-parameters gnus-newsgroup-name) t) (let ((buffer ...) (dead-name ...)) (when (gnus-buffer-live-p dead-name) = (gnus-kill-buffer dead-name)) (if (get-buffer buffer) (progn ... ... ...) (= setq gnus-summary-buffer ...) (gnus-summary-mode group) (when gnus-carpal .= ..) (unless gnus-single-article-buffer ... ... ...) (setq gnus-newsgroup-na= me group) (gnus-summary-set-local-parameters gnus-newsgroup-name) t)) gnus-summary-setup-buffer("nnml:T-Online") (let* ((new-group ...) (quit-config ...) (did-select ...)) (cond (... ...= ... ... ... ... ... t) (... ... ... nil) (... ... ... ... ...) (t ... ... = ... ... ... ... ... ... ... ... ... ...))) gnus-summary-read-group-1("nnml:T-Online" nil t nil nil nil) (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-d= isplay select-articles) (setq show-all nil select-articles nil)) (let ((gnus-auto-select-next nil)) (or (gnus-summary-read-group-1 group s= how-all no-article kill-buffer no-display select-articles) (setq show-all n= il select-articles nil))) (setq result (let (...) (or ... ...))) (null (setq result (let ... ...))) (and group (null (setq result ...)) (eq gnus-auto-select-next (quote quie= tly))) (while (and group (null ...) (eq gnus-auto-select-next ...)) (set-buffer = gnus-group-buffer) (when backward (gnus-group-prev-unread-group 2)) (if (no= t ...) (setq group ...) (setq group nil))) (let (result) (while (and group ... ...) (set-buffer gnus-group-buffer) (= when backward ...) (if ... ... ...)) result) gnus-summary-read-group("nnml:T-Online" nil t nil nil nil nil) (let ((no-display ...) (group ...) number active marked entry) (when (eq = all 0) (setq all nil)) (unless group (error "No group on current line")) (s= etq marked (gnus-info-marks ...)) (setq number (cond ... ... ...)) (gnus-su= mmary-read-group group (or all ...) no-article nil no-display nil select-ar= ticles)) gnus-group-read-group(nil t) gnus-group-select-group(nil) call-interactively(gnus-group-select-group) --=-=-= Content-Type: text/plain; charset=iso-8859-1 I'll debug some more after shopping, cooking, perhaps some outdooring even. Later, Adrian > > Other menubars seem to be unaffected... group buffer, server buffer, > message buffer all are fine. > > Footnotes: > [1] SXEmacs 22.1.2, XEmacs 21.4, and XEmacs 21.5 are affected. > Apparently XEmacs 21.5 is worst as it is dumping core with this. > SXEmacs and XEmacs 21.4 just give the error. -- Adrian Aichner mailto:adrian@xemacs.org http://www.xemacs.org/ --=-=-=--