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@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)