*** message.el	7 May 2003 19:29:01 -0000	6.339
--- message.el	9 Jun 2003 20:55:50 -0000
***************
*** 1612,1620 ****
  
  (defun message-strip-subject-re (subject)
    "Remove \"Re:\" from subject lines in string SUBJECT."
!   (if (string-match message-subject-re-regexp subject)
!       (substring subject (match-end 0))
!     subject))
  
  ;;; Start of functions adopted from `message-utils.el'.
  
--- 1612,1621 ----
  
  (defun message-strip-subject-re (subject)
    "Remove \"Re:\" from subject lines in string SUBJECT."
!   (let ((case-fold-search t))
!     (if (string-match message-subject-re-regexp subject)
! 	(substring subject (match-end 0))
!       subject)))
  
  ;;; Start of functions adopted from `message-utils.el'.