Re: 23.0.60; rmail-redecode-body finishing with error "Invalid Search Bound"

[martin rudalics <rudalics@gmx.at>]

[-- Attachment #1: Type: text/plain, Size: 232 bytes --]

> Yes in this case, though presumably it's not ultimately quite the 
> right place for the fix?

I'm not sure whether I fixed all possible places where this is set up.
Could you please try the attached patch and use it for a while?

[-- Attachment #2: rmail.patch --]
[-- Type: text/plain, Size: 2245 bytes --]

*** mail/rmail.el.~1.445.~	Sun Jan 13 19:12:48 2008
--- mail/rmail.el	Thu Jan 17 08:43:00 2008
***************
*** 2634,2640 ****
      ;; the end of message N.  (N = number of messages).
      (search-backward "\n\^_")
      (forward-char 1)
!     (setq messages-head (list (point-marker)))
      (rmail-set-message-counters-counter (point-min))
      (setq rmail-current-message (1+ rmail-total-messages))
      (setq rmail-total-messages
--- 2634,2640 ----
      ;; the end of message N.  (N = number of messages).
      (search-backward "\n\^_")
      (forward-char 1)
!     (setq messages-head (list (copy-marker (point) t)))
      (rmail-set-message-counters-counter (point-min))
      (setq rmail-current-message (1+ rmail-total-messages))
      (setq rmail-total-messages
***************
*** 2675,2681 ****
  	;; the end of message N.  (N = number of messages).
  	(search-backward "\n\^_" nil t)
  	(if (/= (point) (point-max)) (forward-char 1))
! 	(setq messages-head (list (point-marker)))
  	(rmail-set-message-counters-counter (min (point) point-save))
  	(setq messages-after-point total-messages)
  	(rmail-set-message-counters-counter)
--- 2675,2681 ----
  	;; the end of message N.  (N = number of messages).
  	(search-backward "\n\^_" nil t)
  	(if (/= (point) (point-max)) (forward-char 1))
! 	(setq messages-head (list (copy-marker (point) t)))
  	(rmail-set-message-counters-counter (min (point) point-save))
  	(setq messages-after-point total-messages)
  	(rmail-set-message-counters-counter)
***************
*** 3775,3783 ****
  			 forward-buffer)
  	      (insert "------- Start of forwarded message -------\n")
  	      ;; Quote lines with `- ' if they start with `-'.
! 	      (let ((beg (point)) end)
! 		(setq end (point-marker))
! 		(set-marker-insertion-type end t)
  		(insert-buffer-substring forward-buffer)
  		(goto-char beg)
  		(while (re-search-forward "^-" end t)
--- 3775,3782 ----
  			 forward-buffer)
  	      (insert "------- Start of forwarded message -------\n")
  	      ;; Quote lines with `- ' if they start with `-'.
! 	      (let ((beg (point))
! 		    (end (copy-marker (point) t)))
  		(insert-buffer-substring forward-buffer)
  		(goto-char beg)
  		(while (re-search-forward "^-" end t)

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel