Mark Borges wrote:
I just got this trying to send mail from within Gnus. I did update
the
required package (xemacs-base) prior to using this beta.
Signaling: (wrong-type-argument sequencep 2)
start-itimer("lazy shot for *mail*" lazy-shot-stealth-lock 30 30 t t
#<buffer "*mail*">)
lazy-shot-install-timer(t)
lazy-shot-install()
lazy-shot-mode(t)
turn-on-lazy-shot()
run-hooks(turn-on-lazy-shot)
font-lock-mode(1)
turn-on-font-lock()
font-lock-set-defaults()
message-xmas-maybe-fontify()
run-hooks((lambda nil (turn-on-auto-fill) (turn-on-filladapt-mode) (setq fill-column
70)) message-xmas-maybe-fontify)
message-mode()
message-pop-to-buffer("*mail*")
message-mail()
#<compiled-function nil "...(71)" [current-window-configuration
buffer-name gnus-article-reply get-text-property gnus-intangible to
gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-name
copy-sequence message-header-setup-hook gnus-setup-message-group
gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook
gnus-inews-insert-gcc gnus-inews-insert-archive-gcc (...) message-mail
gnus-configure-windows message t set-buffer-modified-p nil] 7
("/data/mdb/gnu/lib/xemacs/packages/lisp/gnus/gnus-msg.elc" . 6380) nil>()
call-interactively(gnus-group-mail)
This is a known problem with b40. concat no longer accepts integers as
arguments. The following patch should fix the problem.
--
Glynn Clements <glynn(a)sensei.co.uk>
Index: lisp/itimer.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/itimer.el,v
retrieving revision 1.4
diff -u -r1.4 itimer.el
--- lisp/itimer.el 1998/03/31 20:11:07 1.4
+++ lisp/itimer.el 1998/05/17 21:05:47
@@ -357,7 +357,7 @@
(let ((oname name)
(num 2))
(while (get-itimer name)
- (setq name (concat oname "<" num ">"))
+ (setq name (format "%s<%d>" oname num))
(itimer-increment num)))
(activate-itimer (list name value restart function is-idle
with-args function-arguments (list 0 0 0)))
@@ -395,7 +395,7 @@
(oname "itimer-")
(num 1))
(while (get-itimer name)
- (setq name (concat oname "<" num ">"))
+ (setq name (format "%s<%d>" oname num))
(itimer-increment num))
(setcar itimer name))
;; signal an error if the timer's name matches an already