[mew-dist 23096] 長い添付ファイル名

[Murata Takashi]

  NSG 村田です。
  multipart なメールを表示するとき、いつも Summary に空白があるのに、
ファイル名が省略されてしまうのが不満だったので、修正してみました。
パートに Content-Description が無ければ、その部分にファイル名も表示
します。

# Lotus Notes からのメールは、
#  Content-Description: Text - character set unknown
# という、ほぼ固定のContent-Descriptionが来てしまうので、自分では
# コメントの3行も生かしています。
-- 
村田 隆 / Takashi.Murata at example.com       .      .     .    .  . ..

*** mew-syntax.el.org	Mon Jan 20 16:13:55 2003
--- mew-syntax.el	Sat Feb 22 19:56:38 2003
***************
*** 728,734 ****
  	  (setq i (1+ i)))))
  
      (if (and (not dec) decrypters) (setq cd-or-dec decrypters))
-     (setq cd-or-dec (mew-substring cd-or-dec ld 'cnt))
  
      (cond
       (filename
--- 728,733 ----
***************
*** 735,741 ****
        (setq file filename))
       ((and file (not (string= file ".")) (not (string-match "/$" file)))
        (setq file (concat "*" file))))
!     (setq file (mew-substring file lf 'cnt))
  
      (mew-xinfo-set-multi-form
       (cons (concat
--- 734,748 ----
        (setq file filename))
       ((and file (not (string= file ".")) (not (string-match "/$" file)))
        (setq file (concat "*" file))))
! ;    (if (and cd-or-dec
! ;	     (string-match "^Text - character set unknown$" cd-or-dec))
! ;	(setq cd-or-dec nil))
!     (if (null cd-or-dec)
! 	(setq cd-or-dec file file nil))
!     (if file
! 	(setq cd-or-dec (mew-substring cd-or-dec ld 'cnt)
! 	      file (mew-substring file lf 'cnt))
!       (setq cd-or-dec (mew-substring cd-or-dec (+ ld lf 2) 'cnt)))
  
      (mew-xinfo-set-multi-form
       (cons (concat