[Mew-dist 14421] Re: Content-Disposition

[Kazu Yamamoto ( 山本和彦 )]

From: SHIBATA Akira <shibata.akira at example.com>
Subject: [Mew-dist 14416] Re: Content-Disposition

> この関係なのか分かりませんが，b66 に変えてからファイル名が日本語
> のファイルを添付すると不具合が出てしまいます．

すみません。あまりにもみっともないミスでした。(nth の引数の順番を間違
えていた。)

以下を当てると直ると思います。なお、mew-debug がうまく機能しなくなって
いたバグもおかげで発見できましたので、その修正も入っています。

--かず
-------------- next part --------------
Index: 00changes
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/00changes,v
retrieving revision 1.776
retrieving revision 1.777
diff -c -r1.776 -r1.777
*** 00changes	2000/10/05 07:00:29	1.776
--- 00changes	2000/10/06 04:14:52	1.777
***************
*** 39,45 ****
  * "inline" is now default for CDP:. Set mew-content-disposition-type
    to customize it.
  * Generic sanity-check for parameters.
- * Warning for encoded-word which contains ASCII only.
  * (Re: ...) is the same of (was ...).
  	Tatsuya Kinoshita <tatsuyak at example.com>
  * Fixing refile vs scroll problem when too big.
--- 39,44 ----
Index: mew-bq.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-bq.el,v
retrieving revision 1.126
retrieving revision 1.127
diff -c -r1.126 -r1.127
*** mew-bq.el	2000/10/05 06:55:44	1.126
--- mew-bq.el	2000/10/06 12:47:11	1.127
***************
*** 856,863 ****
    value)
  
  (defun mew-param-sanity-check (ent)
!   (let* ((param (nth ent 0))
! 	 (value (nth ent 1))
  	 (new  (mew-header-sanity-check-string value)))
      (if (not (string= value new))
  	(mew-decode-warning-params param 'ctl))
--- 856,863 ----
    value)
  
  (defun mew-param-sanity-check (ent)
!   (let* ((param (nth 0 ent))
! 	 (value (nth 1 ent))
  	 (new  (mew-header-sanity-check-string value)))
      (if (not (string= value new))
  	(mew-decode-warning-params param 'ctl))
Index: mew-cache.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-cache.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -c -r1.40 -r1.41
*** mew-cache.el	2000/09/12 01:28:34	1.40
--- mew-cache.el	2000/10/06 12:46:56	1.41
***************
*** 143,176 ****
  	      (setq decode t)))
        (setq cache (mew-cache-add fld msg))
        (setq decode t))
!     (if decode
! 	(condition-case nil
! 	    (progn
! 	      (set-buffer cache)
! 	      ;; in cache buffer
! 	      (mew-erase-buffer)
! 	      (setq time-size
! 		    (mew-insert-message fld msg mew-cs-text-for-read nil))
! 	      (mew-cinfo-set fld msg (car time-size) (cdr time-size))
! 	      (mew-dinfo-set nil t)
  	      (if unlimit
  		  (let ((mew-header-max-length nil)
  			(mew-header-max-depth nil))
  		    (mew-decode))
  		(mew-decode))
! 	      (setq mew-icon-info msg))
! 	  (error
! 	   ;; file not exist
! 	   (mew-cache-delete)
! 	   (if no-err
! 	       (message "%s%s doesn't exist" (file-name-as-directory fld) msg)
! 	     (error "%s%s doesn't exist" (file-name-as-directory fld) msg))
! 	   (setq cache nil))
! 	  (quit
! 	   ;; prefetching an encrypted message
! 	   (mew-cache-delete)
! 	   (message "MIME decoding for %s/%s is quitted." fld msg)
! 	   (setq cache nil))))
      (set-buffer cbuf)
      cache)) ;; retrun value
  
--- 143,185 ----
  	      (setq decode t)))
        (setq cache (mew-cache-add fld msg))
        (setq decode t))
!     (if (not decode)
! 	()
!       (set-buffer cache)
!       ;; in cache buffer
!       (mew-erase-buffer)
!       (condition-case nil
! 	  (setq time-size
! 		(mew-insert-message fld msg mew-cs-text-for-read nil))
! 	(error
! 	 ;; file not exist
! 	 (mew-cache-delete)
! 	 (setq cache nil)
! 	 (if no-err
! 	     (message "%s%s doesn't exist" (file-name-as-directory fld) msg)
! 	   (error "%s%s doesn't exist" (file-name-as-directory fld) msg))))
!       (if (not cache)
! 	  ()
! 	(mew-cinfo-set fld msg (car time-size) (cdr time-size))
! 	(mew-dinfo-set nil t)
! 	(if mew-debug
! 	    (if unlimit
! 		(let ((mew-header-max-length nil)
! 		      (mew-header-max-depth nil))
! 		  (mew-decode))
! 	      (mew-decode))
! 	  (condition-case nil
  	      (if unlimit
  		  (let ((mew-header-max-length nil)
  			(mew-header-max-depth nil))
  		    (mew-decode))
  		(mew-decode))
! 	    (quit
! 	     ;; prefetching an encrypted message
! 	     (mew-cache-delete)
! 	     (message "MIME decoding for %s/%s is quitted." fld msg)
! 	     (setq cache nil)))))
!       (if cache (setq mew-icon-info msg)))
      (set-buffer cbuf)
      cache)) ;; retrun value