[Mew-dist 08524] Re: yankの失敗

[Kazu Yamamoto ( 山本和彦 )]

From: Seiji Kohzuma <skouzuma at example.com>
Subject: [Mew-dist 08499] yankの失敗
Date: Wed, 7 Apr 1999 09:13:46 +0900

> Too large, this message was truncated. To see the entire message, type
> "M-x mew-summary-display". 
> となったmailをyでsaveしようとすると、
> Wrong type argument: stringp, nil となります。

バグです。以下のパッチで直ると思います。

--かず
-------------- next part --------------
Index: mew-summary.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-summary.el,v
retrieving revision 1.137
diff -c -r1.137 mew-summary.el
*** mew-summary.el	1999/04/05 04:07:35	1.137
--- mew-summary.el	1999/04/08 06:36:02
***************
*** 1596,1621 ****
  	 (next (concat "part " part1))
  	 (nums (mew-syntax-number-to-nums part))
  	 (cache (mew-current-get 'cache))
- 	 (fullsyntax (mew-cache-decode-syntax cache))
- 	 (syntax (mew-syntax-get-entry fullsyntax nums))
- 	 (messagep (mew-syntax-message-p syntax))
- 	 (beg (mew-syntax-get-begin syntax))
- 	 (end (mew-syntax-get-end syntax))
- 	 (code (and arg mew-mule-p (read-coding-system "Coding-system: ")))
  	 (action "Save")
  	 append-p doit cdpl file)
!     ;; msg or part 1?
!     (if (and messagep (mew-summary-save-ambiguous-p part1))
! 	(if (y-or-n-p (format "Save %s (y) or %s (n) " this next))
! 	    ()
! 	  (setq messagep nil)
! 	  (setq this next)
! 	  (setq nums (nreverse (cons 1 (nreverse nums))))
! 	  (setq syntax (mew-syntax-get-entry fullsyntax nums))
! 	  (setq beg (mew-syntax-get-begin syntax))
! 	  (setq end (mew-syntax-get-end syntax))))
      ;; file name
!     (setq cdpl (mew-syntax-get-cdp syntax))
      (and (car cdpl) (setq file (mew-syntax-get-param cdpl "filename")))
      (and file
  	 (equal (mew-charset-guess-string file)	mew-error-charset-unknown)
--- 1596,1624 ----
  	 (next (concat "part " part1))
  	 (nums (mew-syntax-number-to-nums part))
  	 (cache (mew-current-get 'cache))
  	 (action "Save")
+ 	 fullsyntax syntax messagep beg end code 
  	 append-p doit cdpl file)
!     (if (null cache)
! 	(setq messagep t)
!       (setq fullsyntax (mew-cache-decode-syntax cache))
!       (setq syntax (mew-syntax-get-entry fullsyntax nums))
!       (setq messagep (mew-syntax-message-p syntax))
!       (setq beg (mew-syntax-get-begin syntax))
!       (setq end (mew-syntax-get-end syntax))
!       (setq code (and arg mew-mule-p (read-coding-system "Coding-system: ")))
!       ;; msg or part 1?
!       (if (and messagep (mew-summary-save-ambiguous-p part1))
! 	  (if (y-or-n-p (format "Save %s (y) or %s (n) " this next))
! 	      ()
! 	    (setq messagep nil)
! 	    (setq this next)
! 	    (setq nums (nreverse (cons 1 (nreverse nums))))
! 	    (setq syntax (mew-syntax-get-entry fullsyntax nums))
! 	    (setq beg (mew-syntax-get-begin syntax))
! 	    (setq end (mew-syntax-get-end syntax)))))
      ;; file name
!     (and syntax (setq cdpl (mew-syntax-get-cdp syntax)))
      (and (car cdpl) (setq file (mew-syntax-get-param cdpl "filename")))
      (and file
  	 (equal (mew-charset-guess-string file)	mew-error-charset-unknown)
***************
*** 1641,1647 ****
  	   (insert-file-contents (mew-expand-folder 
  				  (car (mew-current-get 'message))
  				  (cdr (mew-current-get 'message))))
- 
  	   (if (and mew-mule-p code (not append-p))
  	       (progn
  		 (mew-cs-decode-region (point-min) (point-max) mew-cs-autoconv)
--- 1644,1649 ----