*** dist/vm-mark.el.dist	Fri Jan 30 09:29:37 1998
--- vm-mark.el	Tue Jan  2 11:21:37 2001
***************
*** 348,350 ****
        (if (and (not (eq (vm-mark-of (car mp)) mark))
! 	       (string-equal author (vm-su-from (car mp))))
  	  (progn
--- 348,350 ----
        (if (and (not (eq (vm-mark-of (car mp)) mark))
! 	       (vm-string-equal-ignore-case author (vm-su-from (car mp))))
  	  (progn
*** dist/vm-mime.el.dist	Fri Dec 22 16:40:17 2000
--- vm-mime.el	Fri Jan  5 11:40:56 2001
***************
*** 1603,1606 ****
--- 1603,1610 ----
  			(prin1-to-string error-data)))
+ 	       (message "%s" (vm-mm-layout-display-error layout))
+ 	       (sleep-for 2)
  	       nil ))
      (vm-set-mm-layout-display-error layout "Need W3 to inline HTML")
+     (message "%s" (vm-mm-layout-display-error layout))
+     (sleep-for 2)
      nil ))
***************
*** 1657,1659 ****
        (error (vm-set-mm-layout-display-error
! 	      layout (format "enriched-decode signaled %s" errdata))))
      (vm-energize-urls-in-message-region start end)
--- 1661,1666 ----
        (error (vm-set-mm-layout-display-error
! 	      layout (format "enriched-decode signaled %s" errdata))
! 	     (message "%s" (vm-mm-layout-display-error layout))
! 	     (sleep-for 2)
! 	     nil ))
      (vm-energize-urls-in-message-region start end)
*** dist/vm-misc.el.dist	Fri Dec 22 16:40:17 2000
--- vm-misc.el	Tue Jan  2 11:20:47 2001
***************
*** 703,704 ****
--- 703,710 ----
  
+ (defun vm-string-equal-ignore-case (str1 str2)
+   (let ((case-fold-search t)
+ 	(reg (regexp-quote str1)))
+     (and (equal 0 (string-match reg str2))
+ 	 (= (match-end 0) (length str2)))))
+ 
  (defun vm-time-difference (t1 t2)
*** dist/vm-page.el.dist	Fri Dec 22 16:40:17 2000
--- vm-page.el	Thu Jan  4 11:23:33 2001
***************
*** 222,224 ****
  (defun vm-emit-eom-blurb ()
!   (let ((vm-summary-uninteresting-senders-arrow ""))
      (message (if (and (stringp vm-summary-uninteresting-senders)
--- 222,225 ----
  (defun vm-emit-eom-blurb ()
!   (let ((vm-summary-uninteresting-senders-arrow "")
! 	(case-fold-search nil))
      (message (if (and (stringp vm-summary-uninteresting-senders)
*** dist/vm-reply.el.dist	Fri Dec 22 16:40:17 2000
--- vm-reply.el	Fri Jan  5 12:02:34 2001
***************
*** 332,335 ****
  			      (vm-text-end-of message))
! 	    (setq end (vm-marker (+ start (- (vm-text-end-of message)
! 					     (vm-headers-of message))) b))
  	    (if vm-display-using-mime
--- 332,335 ----
  			      (vm-text-end-of message))
! 	    (set-buffer b)
! 	    (setq end (point-marker))
  	    (if vm-display-using-mime
***************
*** 1461,1463 ****
        (if yank-action
! 	  (funcall (car yank-action) (cdr yank-action)))
        (make-local-variable 'mail-send-actions)
--- 1461,1463 ----
        (if yank-action
! 	  (apply (car yank-action) (cdr yank-action)))
        (make-local-variable 'mail-send-actions)
*** dist/vm-startup.el.dist	Fri Dec 22 16:40:17 2000
--- vm-startup.el	Tue Jan  9 22:43:32 2001
***************
*** 341,343 ****
  
! This is VM 6.89.
  
--- 341,343 ----
  
! This is VM 6.90.
  
*** dist/vm-vars.el.dist	Tue Dec 12 00:11:10 2000
--- vm-vars.el	Tue Jan  9 19:40:30 2001
***************
*** 2145,2147 ****
  
! (defvar vm-auto-center-summary nil
    "*Value controls whether VM will keep the summary arrow vertically
--- 2145,2147 ----
  
! (defvar vm-auto-center-summary 0
    "*Value controls whether VM will keep the summary arrow vertically
*** dist/vm-version.el.dist	Fri Dec 22 16:40:18 2000
--- vm-version.el	Tue Jan  9 22:43:32 2001
***************
*** 4,6 ****
  
! (defconst vm-version "6.89"
    "Version number of VM.")
--- 4,6 ----
  
! (defconst vm-version "6.90"
    "Version number of VM.")