From: Adrian Aichner <adrian@xemacs.org>
Cc: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: Re: 5.10 summary menubar broken on XEmacs
Date: Sat, 02 Apr 2005 11:52:38 +0200 [thread overview]
Message-ID: <y8c1jyjd.fsf@smtprelay.t-online.de> (raw)
In-Reply-To: <microsoft-free.87r7huf10q.fsf@youngs.au.com> (Steve Youngs's message of "Sat, 02 Apr 2005 10:57:57 +1000")
[-- Attachment #1: Type: text/plain, Size: 2322 bytes --]
Steve Youngs <steve@youngs.au.com> 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:
>
> "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, Mule) 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 menuitem))))
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-article t] ["Crosspost article..." gnus-summary-crosspost-article (gnus-check-backend-function (quote request-replace-article) gnus-newsgroup-name)] ["Import file..." gnus-summary-import-article (gnus-check-backend-function (quote request-accept-article) gnus-newsgroup-name)] ["Create article..." gnus-summary-create-article (gnus-check-backend-function (quote request-accept-article) 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-function (quote request-expire-articles) gnus-newsgroup-name)] ["Query respool" gnus-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:
[-- Attachment #2: gnus-unrecognized-menu-descriptor.txt --]
[-- Type: text/plain, Size: 27672 bytes --]
(cond ((edebug-after ... 82 ...) (edebug-after ... 102 ...)) ((edebug-after ... 105 ...) (edebug-after ... 112 ...)) ((edebug-after ... 115 ...) (edebug-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..." gnus-summary-respool-article t] ["Move article..." gnus-summary-move-article (gnus-check-backend-function ... gnus-newsgroup-name)] ["Copy article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summary-crosspost-article (gnus-check-backend-function ... gnus-newsgroup-name)] ["Import file..." gnus-summary-import-article (gnus-check-backend-function ... gnus-newsgroup-name)] ["Create article..." gnus-summary-create-article (gnus-check-backend-function ... gnus-newsgroup-name)] ["Check if posted" gnus-summary-article-posted-p t] ["Edit article" gnus-summary-edit-article (not ...)] ["Delete article" gnus-summary-delete-article (gnus-check-backend-function ... gnus-newsgroup-name)] ["Query respool" gnus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t] ["Delete expirable articles" gnus-summary-expire-articles-now (gnus-check-backend-function ... gnus-newsgroup-name)]))
(cond ((edebug-after ... 82 ...) (edebug-after ... 102 ...)) ((edebug-after ... 105 ...) (edebug-after ... 112 ...)) ((edebug-after ... 115 ...) (edebug-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] ["Headers" 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 headers" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article-highlight 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-article-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64" 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-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-article-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus-article-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 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" ("Remove 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" gnus-article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t] ["Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-article-de-base64-unreadable t] ["Rot 13" gnus-summary-caesar-message t] ["Morse 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-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-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-summary-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 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] ["Print with Muttprint..." gnus-summary-muttprint t] ["Print" gnus-summary-print-article t]) ("Copy, move,... (Backend)" t ["Respool article..." gnus-summary-respool-article t] ["Move article..." gnus-summary-move-article ...] ["Copy article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summary-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" gnus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t] ["Delete expirable articles" gnus-summary-expire-articles-now ...]) ("Extract" ["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 parts" gnus-summary-save-parts t]) ("Cache" ["Enter article" gnus-cache-enter-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] ["Isearch 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 current thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-summary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-insinuate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-summary-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-hide-list-identifiers t] ["Banner" gnus-article-strip-banner t] ["Boring headers" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article-highlight 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-article-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64" 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-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-article-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus-article-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 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" ("Remove 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" gnus-article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t] ["Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-article-de-base64-unreadable t] ["Rot 13" gnus-summary-caesar-message t] ["Morse 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-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-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-summary-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 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] ["Print with Muttprint..." gnus-summary-muttprint t] ["Print" gnus-summary-print-article t]) ("Copy, move,... (Backend)" t ["Respool article..." gnus-summary-respool-article t] ["Move article..." gnus-summary-move-article ...] ["Copy article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summary-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" gnus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t] ["Delete expirable articles" gnus-summary-expire-articles-now ...]) ("Extract" ["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 parts" gnus-summary-save-parts t]) ("Cache" ["Enter article" gnus-cache-enter-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] ["Isearch 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 current thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-summary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-insinuate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-summary-show-raw-article:keys "C-u g"]) nil)
add-menu(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-hide-list-identifiers t] ["Banner" gnus-article-strip-banner t] ["Boring headers" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article-highlight 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-article-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64" 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-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-article-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus-article-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 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" ("Remove 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" gnus-article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t] ["Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-article-de-base64-unreadable t] ["Rot 13" gnus-summary-caesar-message t] ["Morse 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-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-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-summary-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 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] ["Print with Muttprint..." gnus-summary-muttprint t] ["Print" gnus-summary-print-article t]) ("Copy, move,... (Backend)" t ["Respool article..." gnus-summary-respool-article t] ["Move article..." gnus-summary-move-article ...] ["Copy article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summary-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" gnus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t] ["Delete expirable articles" gnus-summary-expire-articles-now ...]) ("Extract" ["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 parts" gnus-summary-save-parts t]) ("Cache" ["Enter article" gnus-cache-enter-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] ["Isearch 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 current thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-summary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-insinuate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-summary-show-raw-article:keys "C-u g"]))
(cond ((edebug-after ... 47 ...) nil) ((edebug-after ... 53 ...) nil) ((edebug-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-before 44) 75 (cond ... ... ... ...)))
(if (edebug-after (edebug-before 1) 2 (featurep ...)) (progn (edebug-after ... 12 ...) (edebug-after ... 43 ...) (edebug-after ... 75 ...)))
(when (edebug-after (edebug-before 1) 2 (featurep ...)) (edebug-after (edebug-before 3) 12 (unless ... ...)) (edebug-after (edebug-before 13) 43 (setq mode-popup-menu ...)) (edebug-after (edebug-before 44) 75 (cond ... ... ... ...)))
easy-menu-add(("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-hide-list-identifiers t] ["Banner" gnus-article-strip-banner t] ["Boring headers" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article-highlight 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-article-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64" 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-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-article-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus-article-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 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" ("Remove 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" gnus-article-capitalize-sentences t] ["Remove CR" gnus-article-remove-cr t] ["Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Base64" gnus-article-de-base64-unreadable t] ["Rot 13" gnus-summary-caesar-message t] ["Morse 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-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-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-summary-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 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] ["Print with Muttprint..." gnus-summary-muttprint t] ["Print" gnus-summary-print-article t]) ("Copy, move,... (Backend)" t ["Respool article..." gnus-summary-respool-article t] ["Move article..." gnus-summary-move-article ...] ["Copy article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summary-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" gnus-summary-respool-query t] ["Trace respool" gnus-summary-respool-trace t] ["Delete expirable articles" gnus-summary-expire-articles-now ...]) ("Extract" ["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 parts" gnus-summary-save-parts t]) ("Cache" ["Enter article" gnus-cache-enter-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] ["Isearch 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 current thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-summary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-insinuate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-summary-show-raw-article:keys "C-u g"]))
(while (edebug-after 0 12 menus) (edebug-after (edebug-before 13) 19 (easy-menu-add ...)))
(if (edebug-after (edebug-before 1) 10 (and ... ...)) (edebug-after (edebug-before 11) 20 (while ... ...)))
(when (edebug-after (edebug-before 1) 10 (and ... ...)) (edebug-after (edebug-before 11) 20 (while ... ...)))
gnus-xmas-menu-add-1(summary (gnus-summary-misc-menu gnus-summary-kill-menu gnus-summary-article-menu gnus-summary-thread-menu gnus-summary-post-menu))
(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-buffer ...) (not gnus-newsgroup-prepared)) (setq gnus-summary-buffer (set-buffer ...)) (gnus-summary-mode group) (when gnus-carpal (gnus-carpal-setup-buffer ...)) (unless gnus-single-article-buffer (make-local-variable ...) (make-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-name 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-display select-articles) (setq show-all nil select-articles nil))
(let ((gnus-auto-select-next nil)) (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-display select-articles) (setq show-all nil select-articles nil)))
(setq result (let (...) (or ... ...)))
(null (setq result (let ... ...)))
(and group (null (setq result ...)) (eq gnus-auto-select-next (quote quietly)))
(while (and group (null ...) (eq gnus-auto-select-next ...)) (set-buffer gnus-group-buffer) (when backward (gnus-group-prev-unread-group 2)) (if (not ...) (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")) (setq marked (gnus-info-marks ...)) (setq number (cond ... ... ...)) (gnus-summary-read-group group (or all ...) no-article nil no-display nil select-articles))
gnus-group-read-group(nil t)
gnus-group-select-group(nil)
call-interactively(gnus-group-select-group)
[-- Attachment #3: Type: text/plain, Size: 474 bytes --]
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/
next prev parent reply other threads:[~2005-04-02 9:52 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-04-02 0:57 Steve Youngs
2005-04-02 9:52 ` Adrian Aichner [this message]
2005-04-02 13:20 ` Reiner Steib
2005-04-02 15:45 ` Adrian Aichner
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=y8c1jyjd.fsf@smtprelay.t-online.de \
--to=adrian@xemacs.org \
--cc=xemacs-beta@xemacs.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).