[mew-dist 17996] mew-nmz.el patch

[Hideyuki SHIRAI ( 白井秀行 )]

mew-nmz.el の patch です。

本当はもっと大々的に改造しようと思っていたのですが、余裕がなかっ
た ;_; ので、ちょっとした bug fix です。よろしくお願いします。

# しかし、なんで今まで気付かなかったんだろう。。。

-- 
白井秀行 (mailto:shirai at example.com)

*** mew-nmz.el.orig	Mon Apr 16 09:39:13 2001
--- mew-nmz.el	Tue Jul 10 13:00:30 2001
***************
*** 438,444 ****
  If executed with 'C-u', search *child* message."
    (interactive "P")
    (let ((fld (mew-summary-folder-name))
! 	(idh (list (list mew-references: mew-in-reply-to:)
  		   (list mew-message-id:)))
  	(message (if child "children" "parent"))
  	(refilefld (copy-sequence mew-nmz-search-parent-folder))
--- 438,444 ----
  If executed with 'C-u', search *child* message."
    (interactive "P")
    (let ((fld (mew-summary-folder-name))
! 	(idh (list (list mew-in-reply-to: mew-references:)
  		   (list mew-message-id:)))
  	(message (if child "children" "parent"))
  	(refilefld (copy-sequence mew-nmz-search-parent-folder))
***************
*** 542,549 ****
  		    (beginning-of-line)
  		    (looking-at "^ *\\([1-9][0-9]*\\)[^0-9]")
  		    (setq range (list (mew-match 1)))))))
! 	(mew-nmz-goto-folder-msg fld (car range))
! 	(message "Searching %s ... %s/%s." message fld (car range))))))
  
  (defun mew-nmz-search-msgid-at-point ()
    (interactive)
--- 542,553 ----
  		    (beginning-of-line)
  		    (looking-at "^ *\\([1-9][0-9]*\\)[^0-9]")
  		    (setq range (list (mew-match 1)))))))
! 	(if (listp (car range))
! 	    (setq fld (car (car range))
! 		  mess (car (cdr (car range))))
! 	  (setq mess (car range)))
! 	(mew-nmz-goto-folder-msg fld mess)
! 	(message "Searching %s ... %s/%s." message fld mess)))))
  
  (defun mew-nmz-search-msgid-at-point ()
    (interactive)