[Mew-dist 14589] Re: mew-cache-message

[Kazu Yamamoto ( 山本和彦 )]

From: Tatsuya Kinoshita <tatsuyak at example.com>
Subject: [Mew-dist 14563] Re: mew-cache-message

> ここで"n"を押してpartを読もうとすると「not a regular file」という
> エラーが発生します。

ありがとうございます。このパッチを b71 に当てみて下さい。

shigeya さんの問題も直るはずです。

--かず
-------------- next part --------------
Index: mew-cache.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-cache.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -c -r1.46 -r1.47
*** mew-cache.el	2000/10/15 08:41:20	1.46
--- mew-cache.el	2000/10/16 11:43:53	1.47
***************
*** 84,98 ****
  	(set-buffer cache)
  	(setq ok (mew-cinfo-equal fld msg time size)))
        (if ok
! 	  cache
  	(if must-hit
  	    (error "Cache not found.")
  	  (mew-cache-delete2 fld msg)
  	  nil)))))
  
! (defun mew-cache-sort (fld msg buf)
!   (let ((entry (mew-cache-entry-make fld msg buf)))
!     (setq mew-cache (cons entry (delete entry mew-cache)))))
  
  (defun mew-cache-add (fld msg)
    (let ((len (length mew-cache))
--- 84,99 ----
  	(set-buffer cache)
  	(setq ok (mew-cinfo-equal fld msg time size)))
        (if ok
! 	  (progn
! 	    (mew-cache-sort entry)
! 	    cache)
  	(if must-hit
  	    (error "Cache not found.")
  	  (mew-cache-delete2 fld msg)
  	  nil)))))
  
! (defun mew-cache-sort (entry)
!   (setq mew-cache (cons entry (delete entry mew-cache))))
  
  (defun mew-cache-add (fld msg)
    (let ((len (length mew-cache))
***************
*** 134,140 ****
      (catch 'return
        (if cache
  	  (progn
- 	    (mew-cache-sort fld msg cache)
  	    (set-buffer cache)
  	    ;; Decryption may fail if password is worng. So, try
  	    ;; to decode this again.
--- 135,140 ----