[no subject]

[Richard Mlynarik <Mly at MIT-OZ>]

In Bad Inconsistently updated System 98.7, CADR 3.1,
Experimental ZMail 53.5, MIT-Specific 22.0, microcode 305, ZM MIT,
on Lisp Machine One:


testing profile edit.
clicked right on universes [there were none defined]
click on abort
clicked right on filters =>lossage

ALSO: click right on files has the duplicate file/buffer problem that
the main select menu used to have.
eg I get options of "bug-lispm.babyl oz:ps:<daniel.g.mly.l>" AND "oz:ps:<daniel.g.mly.l>bug-lispm.init"
ALSO: These menus should display their items one per line (I'm not sure what flavor they are)
since there are not usually very many of them, and the existing scheme results in unacceptable
truncation. For instances of this, login as me and frob my init by getting into the profile
editor, clicking right on files, and looking at the menu.


>>TRAP 3213 (FUNCTION-ENTRY)
Function (:METHOD ZMAIL-PROFILE-BUFFER :RESECTIONIZE) called with too many arguments (3).
Backtrace from the debugger:

(:METHOD ZMAIL-PROFILE-BUFFER :RESECTIONIZE) (P.C. = 26)
  (SELF is #<ZMAIL-PROFILE-BUFFER "ZMAIL.INIT PS:<DANIEL.G.MLY> OZ:" 16453432>)

 Arg 0 (OPERATION): :RESECTIONIZE


RESECTIONIZE-BUFFER (P.C. = 24)

 Arg 0 (BUFFER): #<ZMAIL-PROFILE-BUFFER "ZMAIL.INIT PS:<DANIEL.G.MLY> OZ:" 16453432>
   --Defaulted args:--
 Arg 1 (START-NODE): NIL
 Arg 2 (END-NODE): NIL


PROFILE-FILTERS-OR-UNIVERSES (P.C. = 231)

 Arg 0 (SYMBOL-LIST): NIL
 Arg 1 (NEAR-MODE): (:WINDOW #<BUTTON-PANE Universes 2217620 exposed>)
 Arg 2 (LABEL): "Universes to be remembered in init file"
 Arg 3 (NEW-FUNCTION): PROFILE-NEW-UNIVERSE
 Arg 4 (DEFINITION-FUNCTION): GET-UNIVERSE-DEFINITION
Local 0 (ACTIVE-LIST): NIL
Local 1 (TEM): NIL
Local 2: NIL
Local 3 (SYM): NIL
Local 4 (BP): NIL


PROFILE-UNIVERSES-BUTTON (P.C. = 107)

 Arg 0 (NEAR-MODE): (:WINDOW #<BUTTON-PANE Universes 2217620 exposed>)
Local 0 (MODE): :EDIT-UNIVERSES


(:SELECT-METHOD ZMAIL-PROFILE-COMMAND-LIST :MOUSE-BUTTON) (P.C. = 334)

 Arg 0 (IGNORE): :MOUSE-BUTTON
 Arg 1 (CH): 4000002
 Arg 2 (WINDOW): #<BUTTON-PANE Universes 2217620 exposed>
 Arg 3 (IGNORE): 41
 Arg 4 (IGNORE): 10
Local 0 (WINDOW-NAME): UNIVERSES-BUTTON
Local 1 (NEAR-MODE): (:WINDOW #<BUTTON-PANE Universes 2217620 exposed>)
Local 2 (ALIST): NIL
Local 3 (ZMAIL-BUFFER): NIL
Local 4: NIL
Local 5 (.FILE-ABORTED-FLAG.): NIL
Local 6 (SRC-FILE): NIL
Local 7 (.WINDOW.): NIL
Local 8 (.FOR-WINDOW.): NIL
Local 9 (.OSTATUS.): NIL
Local 10 (.OSUBST.): NIL
Local 11 (.QUEUE-LEFT.): NIL
Local 12 (E): NIL


Remainder of stack:

(:METHOD ZMAIL-PROFILE-FRAME :PROCESS-SPECIAL-COMMAND) (P.C. = 25)
(:METHOD ZMAIL-COMMAND-LOOP-MIXIN :COMMAND-LOOP) (P.C. = 252)
(:INTERNAL (:METHOD ZMAIL-UTILITY-FRAME :COMBINED :COMMAND-LOOP) 0) (P.C. = 44)
FUNCALL (P.C. = 25)
(:METHOD ZMAIL-COMMAND-LOOP-MIXIN :AROUND :COMMAND-LOOP) (P.C. = 57)
(:METHOD ZMAIL-UTILITY-FRAME :COMBINED :COMMAND-LOOP) (P.C. = 43)
COM-ZMAIL-PROFILE (P.C. = 241)
COMMAND-EXECUTE (P.C. = 115)
ZMAIL-COMMAND-EXECUTE (P.C. = 27)
(:SELECT-METHOD ZMAIL-COMMAND-LIST :MENU) (P.C. = 32)
(:METHOD ZMAIL-FRAME :PROCESS-SPECIAL-COMMAND) (P.C. = 25)
(:METHOD ZMAIL-COMMAND-LOOP-MIXIN :COMMAND-LOOP) (P.C. = 252)
(:INTERNAL (:METHOD ZMAIL-FRAME :COMBINED :COMMAND-LOOP) 0) (P.C. = 44)
FUNCALL (P.C. = 25)
(:METHOD ZMAIL-COMMAND-LOOP-MIXIN :AROUND :COMMAND-LOOP) (P.C. = 57)
(:METHOD ZMAIL-FRAME :COMBINED :COMMAND-LOOP) (P.C. = 43)
ZMAIL-PROCESS-TOP-LEVEL (P.C. = 115)
SI#:PROCESS-TOP-LEVEL (P.C. = 152)