problems with patch-keywords

This bug report will be sent to the XEmacs Development Team, not to your local site managers!! Please write in English, because the XEmacs maintainers do not have translators to read other languages for them. Please describe as succinctly as possible: - What happened. - What you thought should have happened. - Precisely what you were doing at the time. Please also include any C or lisp back-traces that you may have. ================================================================ Dear Bug Team! i have been having problems with using patch-keywords as requested i am sending this bug report to see if anyone can help as stated in a previous email patch-keywords works fine if i dont have anything in my init.el file if i have anything at all in my init.el file it breaks for example i striped my init file down to this one line (setq load-path (cons (expand-file-name "~/.xemacs/elisp/") load-path)) and it broke patch-keywords i get a strange error just after i type in the keywords and hit return Stack overflow: Variable binding depth exceeds max-specpdl-size this happens on 21.4.6 and 21.5.4 thanks in advance ================================================================ System Info to help track down your bug: --------------------------------------- uname -a: FreeBSD ulthwe.dyndns.org 4.5-RELEASE FreeBSD 4.5-RELEASE #0: Thu Jan 31 15:59:23 EST 2002 root＠ulthwe.dyndns.org:/usr/obj/Data/FreeBSD/src/sys/ULTHWE i386 configure '--with-modules' '--with-site-lisp' '--with-site-modules' '--infopath=/usr/X11R6/info' '--with-sound=none' '--with-athena=3d' '--with-dialogs=athena' '--with-widgets=athena' '--with-dragndrop=no' '--with-offix=no' '--prefix=/usr/local/xemacs/beta' '--with-prefix' '--cflags=-O -pipe -mcpu=pentiumpro -march=pentiumpro' '--cppflags=-fmemoize-lookups -fsave-memoized -mcpu=pentiumpro -march=pentiumpro' '--site-includes=/usr/include:/usr/local/include:/usr/X11R6/include' '--site-libraries=/usr/lib:/usr/local/lib:/usr/X11R6/lib' '--srcdir=/Data/Hacking/src/xemacs/xemacs-21.5' '--extra-verbose' XEmacs 21.5-b4 "bamboo" configured for `i386-unknown-freebsd4.5'. Compilation / Installation: Source code location: /Data/Hacking/src/xemacs/xemacs-21.5 Installation prefix: /usr/local/xemacs/beta Additional header files: /usr/include /usr/local/include /usr/X11R6/include Additional libraries: /usr/lib /usr/local/lib /usr/X11R6/lib Runtime library search path: /usr/local/lib:/usr/X11R6/lib:/usr/libexec Operating system description file: `s/freebsd.h' Machine description file: `m/intel386.h' Compiler: gcc -O -pipe -mcpu=pentiumpro -march=pentiumpro Relocating allocator for buffers: yes GNU version of malloc: yes Window System: Compiling in support for the X window system: - X Windows headers location: /usr/X11R6/include - X Windows libraries location: /usr/X11R6/lib - Handling WM_COMMAND properly. Compiling in support for the Athena widget set: - Athena headers location: X11/Xaw3d - Athena library to link: Xaw3d Using Lucid menubars. Using Lucid scrollbars. Using Athena dialog boxes. Using Athena native widgets. TTY: Compiling in support for ncurses. Images: Compiling in support for GIF images (builtin). Compiling in support for XPM images. Compiling in support for PNG images. Compiling in support for JPEG images. Compiling in support for TIFF images. Compiling in support for X-Face message headers. Sound: Databases: Compiling in support for Berkeley database. Compiling in support for GNU DBM. Internationalization: Mail: Compiling in support for "flock" mail spool file locking method. Other Features: Inhibiting IPv6 canonicalization at startup. Compiling in support for dynamic shared object modules. Compiling in support for extra debugging code. WARNING: --------------------------------------------------------- WARNING: Compiling in support for runtime error checking. WARNING: XEmacs will run noticeably more slowly as a result. WARNING: Error checking is on by default for XEmacs beta releases. WARNING: --------------------------------------------------------- Load-Path Lisp Shadows: ---------------------- (/home/rendhalver/.xemacs/elisp/gnus /usr/local/xemacs/beta/lib/xemacs/xemacs-packages/lisp/gnus/gnus /usr/local/xemacs/beta/lib/xemacs/xemacs-packages/lisp/ps-print/ps-print /usr/local/xemacs/beta/lib/xemacs/xemacs-packages/lisp/ps-print-nomule/ps-print) Installed XEmacs Packages: ------------------------- ((zenirc:version 1.13 :type regular) (xslt-process :version 1.06 :type regular) (xemacs-devel :version 1.42 :type single-file) (xemacs-base :version 1.59 :type regular) (x-symbol :version 1.11 :type regular) (w3 :version 1.21 :type regular) (vm :version 7.02 :type regular) (viper :version 1.32 :type regular) (view-process :version 1.11 :type regular) (vhdl :version 1.15 :type regular) (vc-cc :version 1.18 :type regular) (vc :version 1.3 :type regular) (tramp :version 1.03 :type regular) (tpu :version 1.12 :type regular) (tooltalk :version 1.13 :type regular) (tm :version 1.3 :type regular) (time :version 1.11 :type regular) (textools :version 1.12 :type regular) (text-modes :version 1.38 :type single-file) (texinfo :version 1.2 :type regular) (supercite :version 1.19 :type regular) (strokes :version 1.08 :type regular) (speedbar :version 1.22 :type regular) (sounds-wav :version 1.1 :type regular) (sounds-au :version 1.1 :type regular) (slider :version 1.13 :type regular) (sieve :version 1.01 :type regular) (sh-script :version 1.13 :type regular) (sgml :version 1.08 :type regular) (semantic :version 1.11 :type regular) (scheme :version 1.11 :type regular) (rmail :version 1.13 :type regular) (reftex :version 1.24 :type regular) (psgml :version 1.27 :type regular) (ps-print-nomule :version 1.05 :type regular) (ps-print :version 1.03 :type regular) (prog-modes :version 1 .51 :type single-file) (pcomplete :version 1.01 :type regular) (pcl-cvs :version 1.58 :type regular) (pc :version 1.21 :type single-file) (os-utils :version 1.26 :type single-file) (net-utils :version 1.24 :type single-file) (mmm-mode :version 1.0 :type regular) (misc-games :version 1.15 :type single-file) (mine :version 1.14 :type regular) (mh-e :version 1.14 :type regular) (mew :version 1.16 :type regular) (mailcrypt :version 2.11 :type regular) (mail-lib :version 1.43 :type regular) (jde :version 1.32 :type regular) (ispell :version 1.24 :type regular) (ilisp :version 1.2 :type regular) (igrep :version 1.08 :type regular) (idlwave :version 1.24 :type regular) (ibuffer :version 1.02 :type regular) (hm--html-menus :version 1.17 :type regular) (gnus :version 1.58 :type regular) (gnats :version 1.13 :type regular) (games :version 1.13 :type regular) (fsf-compat :version 1.1 :type single-file) (frame-icon :version 1.09 :type regular) (forms :version 1.14 :type regular) (footnote :version 1.14 :type regular) (eudc :version 1.36 :type regular) (eterm :version 1.13 :type regular) (eshell :version 1.02 :type regular) (epl :version 1.03 :type regular) (emerge :version 1.09 :type regular) (elib :version 1.1 :type single-file) (eieio :version 1.02 :type regular) (eicq :version 1.05 :type regular) (efs :version 1.27 :type regular) (edt :version 1.12 :type regular) (edit-utils :version 1.79 :type single-file) (ediff :version 1.36 :type regular) (edebug :version 1.14 :type regular) (dired :version 1.11 :type regular) (dictionary :version 1.07 :type regular) (debug :version 1.14 :type regular) (crisp :version 1.12 :type regular) (cookie :version 1.13 :type regular) (clearcase :version 1.03 :type regular) (cc-mode :version 1.27 :type regular) (calendar :version 1.18 :type regular) (calc :version 1.18 :type regular) (c-support :version 1.16 :type single-file) (build :version 1.05 :type regular) (bbdb :version 1.19 :type regular) (auctex :version 1.29 :type regular) (apel :version 1.2 :type regular) (ada :version 1.1 :type regular) (Sun :version 1.13 :type regular)) Features: -------- (xemacsbug shadow debug x-font-menu font-menu cus-edit cus-load wid-edit atomic-extents regexp-opt info patch-keywords message-mime message messagexmas mml mm-decode mm-encode mailcap mm-bodies uudecode mail-parse rfc2045 rfc2231 rfc2047 gnus-util qp ietf-drums time-date parse-time nnheader nnheaderxm mm-util mail-prsvr mailheader mel-q vm-delete vm-macro vm-undo vm-page vm-save tapestry vm-motion vm-message vm-folder vm-misc vm-mouse vm-window gnuserv permanent-buffers paren blink-paren mail-abbrevs smtpmail time-stamp tm-vm advice advice-preload vm-mime vm-toolbar vm-menu vm-summary vm-reply tm-edit signature tm-ew-e tm-partial tm-image images mule-sysdp tm-pgp tm-play tm-view tm-text tm-parse tm-ew-d tm-def std11 mel mail-utils sendmail rfc822 mime-setup tm-setup tl-misc tl-str tl-atype atype tl-seq tl-list alist cless file-detect path-util emu invisible inv-xemacs mcharset mcs-ltn1 pcustom poem poem-ltn1 pces pces-raw poe-xemacs timer overlay poe pym static apel-ver product vm-autoload highlight-headers vm-vars vm-startup vm-version vm recent-files mwheel pending-del func-menu scroll-in-place font-lock crypt crypt++ completer efs-cu efs-x19.15 efs-fnh efs-ovwrt efs-auto cus-face dired-faces dired-xemacs dired zenirc-autoloads xslt-process-autoloads xemacs-devel-autoloads xemacs-base-autoloads x-symbol-autoloads w3-autoloads vm-autoloads viper-autoloads view-process-autoloads vhdl-autoloads vc-cc-autoloads vc-autoloads tramp-autoloads tpu-autoloads tooltalk-autoloads tm-autoloads time-autoloads textools-autoloads text-modes-autoloads texinfo-autoloads supercite-autoloads strokes-autoloads speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads scheme-autoloads rmail-autoloads reftex-autoloads psgml-autoloads ps-print-nomule-autoloads ps-print-autoloads prog-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads net-utils-autoloads mmm-mode-autoloads misc-games-autoloads mine-autoloads mh-e-autoloads mew-autoloads mailcrypt-autoloads mail-lib-autoloads jde-autoloads ispell-autoloads ilisp-autoloads igrep-autoloads idlwave-autoloads ibuffer-autoloads hm--html-menus-autoloads gnus-autoloads gnats-autoloads games-autoloads fsf-compat-autoloads frame-icon-autoloads forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads eshell-autoloads epl-autoloads emerge-autoloads elib-autoloads eieio-autoloads eicq-autoloads efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads edebug-autoloads dired-autoloads dictionary-autoloads debug-autoloads crisp-autoloads cookie-autoloads clearcase-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads c-support-autoloads build-autoloads bbdb-autoloads auctex-autoloads apel-autoloads ada-autoloads Sun-autoloads src-autoloads loadhist auto-show fontl-hooks x-iso8859-1 gutter-items menubar-items x-menubar mode-motion mouse itimer auto-save lisp-mode easymenu iso8859-1 page buff-menu lib-complete help-nomule cus-file derived frame text-props obsolete cus-start custom widget cl-extra mini-cl cl cl-19 packages backquote very-early-lisp lucid-scrollbars cut-buffer lucid-menubars athena-dialogs x c-balloon-help tty-frames tty toolbar scrollbar unix-processes multicast network-streams subprocesses modules menu-accelerator-support menubar berkeley-db dbm md5 xemacs gutter tiff png gif jpeg xface xpm xbm lisp-float-type berkeley-unix dialog devices window-system base64) Recent keystrokes: ----------------- misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user misc-user Recent messages (most recent first): ----------------------------------- Parsing /home/rendhalver/.mailrc... done Parsing /home/rendhalver/.mail_aliases... done Parsing /home/rendhalver/.mail_aliases... Parsing /home/rendhalver/.mailrc... Loading xemacsbug...done Loading xemacsbug... Entering debugger... Loading debug...done Loading debug... Loading gnus-win... Loading gnus-win... Loading gnus-win... Loading gnus-win... Loading gnus-win... Loading gnus-win... Loading gnus-win... Loading gnus-win... Loading gnus-win... Loading gnus-win... Loading gnus-win... here is the backtrace hope this helps Signaling: (stack-overflow "Variable binding depth exceeds max-specpdl-size") load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil t nil nil nil) load("gnus" nil t nil) si:require(gnus nil) require(gnus) byte-code("..." [require gnus custom-declare-group gnus-windows nil "Window configuration." :group] 6) load-internal("gnus-win" nil nil nil nil nil) load("gnus-win" nil nil nil) (gnus-add-configuration (quote (article ...))) load-internal("gnus" nil nil nil nil nil) load("gnus" nil nil nil) (gnus-continuum-version gnus-version) (< (gnus-continuum-version gnus-version) 5.090004) (if (< (gnus-continuum-version gnus-version) 5.090004) (patch-keywords-in-header-p) (message-point-in-header-p)) (if (if (< ... 5.090004) (patch-keywords-in-header-p) (message-point-in-header-p)) (let* (... ... ... ...) (if ... ... ...)) (beginning-of-line n)) patch-keywords-message-beginning-of-line() (save-excursion (mail-subject) (patch-keywords-message-beginning-of-line) (re-search-forward ".*$" (eolp) t) (let (... ...) (patch-keywords-message-beginning-of-line) (if ... ...) (insert-string ...) (insert-string " ") (patch-keywords-message-beginning-of-line) (save-restriction ... ...) (end-of-line) (insert-string oldsub)) (goto-line 0) (insert-string (concat "X-Reviewer-Action: " patch-key "\n")) (goto-line 0) (insert-string "Mail-Followup-To: ") (insert-string (concat patch-keywords-followup-to "\n")) (mail-text) (insert-string patch-key) (insert-string "\n\n")) (lambda (patch-key) "Insert the action keywords into patch followups.\n\nArgument PATCH-KEY A list of action keywords as defined in\n`patch-keywords'. They may be chosen interactively via the\nhistory mechanism.\n\nInsert abbreviated (1st char) keywords at the beginning of the subject\nheader. Full keywords into the \"X-Reviewer-Action:\" header, and\nalso at the start of the message body.\n\nThis function also sets followups to xemacs-beta(a)xemacs.org.&quot; (interactive (let ... ... ...)) (if (string-equal patch-key "") (error "Choose at least one patch-key from %s" ...)) (save-excursion (mail-subject) (patch-keywords-message-beginning-of-line) (re-search-forward ".*$" ... t) (let ... ... ... ... ... ... ... ... ...) (goto-line 0) (insert-string ...) (goto-line 0) (insert-string "Mail-Followup-To: ") (insert-string ...) (mail-text) (insert-string patch-key) (insert-string "\n\n")))("COMMIT") call-interactively(patch-keywords-insert-vm)