[mew-dist 25656] Re: mew-nmz.el

[Kazu Yamamoto ( 山本和彦 )]

白井さん、

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [mew-dist 25651] Re: mew-nmz.el

> 現状の mew-nmz はリモートフォルダには一切対応していません。なの
> で、各種関数も一緒です。リモートフォルダ対応は、もう、何年も前か
> らの懸案事項だったりします ^^;;;

なんか、5 分もかからずできてしまいました...

--かず

Index: mew-nmz.el
===================================================================
RCS file: /cvsroot/mew/mew/contrib/mew-nmz.el,v
retrieving revision 1.31
diff -c -r1.31 mew-nmz.el
*** mew-nmz.el	10 Nov 2004 13:04:53 -0000	1.31
--- mew-nmz.el	11 Nov 2004 02:38:32 -0000
***************
*** 20,26 ****
  ;; Variables
  (defvar mew-nmz-index-path "~/Namazu" "*Namazu index top directory.")
  (defvar mew-nmz-index-mail "Mail" "*Namazu index mail directory.")
- (defvar mew-nmz-index-news "News" "*Namazu index local news directory.")
  
  (defvar mew-nmz-namazu-version nil
    "*Automatically set 'v1 if Namazu version 1. Set 'v2 if Namazu version 2.")
--- 20,25 ----
***************
*** 50,56 ****
    (list mew-draft-folder mew-trash-folder mew-queue-folder mew-attach-folder
  	"+schedule" "=draft")
    "*Skip folders regexp, when make index.")
- (defvar mew-nmz-mknmz-skip-news t "*Skip local news folders, when make index.")
  
  (defvar mew-nmz-mknmz-use-mode-line t "*Display \"nmz\" in mode line , when mknmzing.")
  (defvar mew-nmz-line-id '("Mew(nmz): %7b")
--- 49,54 ----
***************
*** 140,152 ****
  	  (mew-nmz-goto-folder-msg fld msg)
  	  (message "Original message at %s/%s...jump done" fld msg)))))
  
! ;; macros
! (defmacro mew-nmz-expand-folder (fld)
    "Convert fld to namazu-index-dir."
!   `(when (mew-folder-localp ,fld)
!      (expand-file-name
!       (substring ,fld 1 nil)
!       (expand-file-name mew-nmz-index-mail mew-nmz-index-path))))
  
  ;;
  ;; Namazu Version check.
--- 138,148 ----
  	  (mew-nmz-goto-folder-msg fld msg)
  	  (message "Original message at %s/%s...jump done" fld msg)))))
  
! (defun mew-nmz-expand-folder (fld)
    "Convert fld to namazu-index-dir."
!   (let ((mew-mail-path (concat (file-name-as-directory mew-nmz-index-path)
! 			       mew-nmz-index-mail)))
!     (mew-expand-folder fld)))
  
  ;;
  ;; Namazu Version check.