[slime-devel] problem in slime-after-change-function w xemacs 21.4.17

[Russell McManus]

cvs slime and gnus don't work well together.  I wonder whether the
loop inside slime-for-each-presentation-in-region doesn't handle
narrowed buffers?  I'm not sure how to fix this, and I'm hoping that
the backtrace will get the discussion going.

I get the following backtrace if I M-x slime, then run gnus.

-russ


Signaling: (args-out-of-range #<buffer " *nnmail incoming*"> 5995)
  next-single-property-change(5995 slime-repl-presentation #<buffer " *nnmail incoming*"> 6010)
  (setq point (next-single-property-change point (quote slime-repl-presentation) object to))
  (while (< point to) (setq point (next-single-property-change point ... object to)) (let* (... ...) (when ... ...)))
  (let ((point from)) (while (< point to) (setq point ...) (let* ... ...)))
  (progn (fset (quote handle-presentation) (function* ...)) (dolist (presentation ...) (handle-presentation presentation from)) (let (...) (while ... ... ...)))
  (unwind-protect (progn (fset ... ...) (dolist ... ...) (let ... ...)) (if --letf-bound--57870 (fset ... --letf-save--57869) (fmakunbound ...)))
  (let* ((--letf-bound--57870 ...) (--letf-save--57869 ...)) (unwind-protect (progn ... ... ...) (if --letf-bound--57870 ... ...)))
  (letf ((... ...)) (dolist (presentation ...) (handle-presentation presentation from)) (let (...) (while ... ... ...)))
  (letf* ((... ...)) (dolist (presentation ...) (handle-presentation presentation from)) (let (...) (while ... ... ...)))
  (flet ((handle-presentation ... ...)) (dolist (presentation ...) (handle-presentation presentation from)) (let (...) (while ... ... ...)))
  (catch (quote --cl-block-slime-for-each-presentation-in-region--) (flet (...) (dolist ... ...) (let ... ...)))
  (cl-block-wrapper (catch (quote --cl-block-slime-for-each-presentation-in-region--) (flet ... ... ...)))
  (block slime-for-each-presentation-in-region (flet (...) (dolist ... ...) (let ... ...)))
  (let* ((object ...)) (if --rest--51329 (signal ... ...)) (block slime-for-each-presentation-in-region (flet ... ... ...)))
  slime-for-each-presentation-in-region(5995 6010 (lambda (presentation from to whole-p) (cond (whole-p ...) (... ... ...))))
  (let ((real-start ...) (real-end ...) (any-change nil)) (slime-for-each-presentation-in-region real-start real-end (lambda ... ...)) (when any-change (undo-boundary)))
  (let ((inhibit-modification-hooks t)) (let (... ... ...) (slime-for-each-presentation-in-region real-start real-end ...) (when any-change ...)))
  slime-after-change-function(5996 6009 5)
  replace-match("X-From-Line: ")
  nnml-save-mail((("cygwin" . 7482)))
  nnmail-check-duplication("<20050919142929.GJ20844 at calimero.vinschen.de>" nnml-save-mail nnml-active-number)
  nnmail-process-unix-mail-format(nnml-save-mail nnml-active-number)
  nnmail-split-incoming("~/.emacs-mail-crash-box" nnml-save-mail nil nil nnml-active-number)
  #<compiled-function (file orig-file) "...(17)" [orig-file file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (file :path "/var/mail/russe") nnml-active-number] 7>("~/.emacs-mail-crash-box" "~/.emacs-mail-crash-box")
  mail-source-callback(#<compiled-function (file orig-file) "...(17)" [orig-file file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (file :path "/var/mail/russe") nnml-active-number] 7> "~/.emacs-mail-crash-box")
  mail-source-fetch((file :path "/var/mail/russe") #<compiled-function (file orig-file) "...(17)" [orig-file file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (file :path "/var/mail/russe") nnml-active-number] 7>)
  nnmail-get-new-mail(nnml nnml-save-nov "~/Mail/" nil)
  nnml-request-scan(nil "private")
  gnus-request-scan(nil (nnml "private"))
  gnus-read-active-file-1((nnml "private") nil)
  gnus-read-active-file(nil nil)
  gnus-setup-news(nil nil nil)
  byte-code("..." [gnus-slave gnus-current-startup-file gnus-startup-file did-connect level dont-connect gnus-group-quit gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-dribble-read-file bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-request-create-group "queue" (nndraft "") "drafts" (nndraft "") gnus-setup-news nil gnus-setup-news-hook gnus-start-draft-setup gnus-group-list-groups gnus-group-first-unread-group gnus-configure-windows group gnus-group-set-mode-line gnus-started-hook gnus-use-dribble-file gnus-use-grouplens gnus-agent] 4)
  gnus-1(nil nil nil)
  gnus(nil)
  call-interactively(gnus)
  command-execute(gnus t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)