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

[martin rudalics]

> 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?

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