[mew-dist 28011] Re: 大幅改造

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 27965] Re: 大幅改造
Message-ID: <20071214.170649.72258325.shirai.hideyuki at example.com>
Date: Fri, 14 Dec 2007 17:06:49 +0900 (JST)

> > > namazu愛用者なのですが，使えなくなってしまうのでしょうか？
> > 
> > はい。
> > 
> > - CVS で生活するなら HyperEstraier に乗り換えて下さい。
> > - Mew 5.2 に留まれば namazu は使えます。
> > - 最新の Mew に対する namazu のコードは、白井さんが別パッケージとして
> >   いつかリリースするはずです。
> 
> ぼく自身も困るので目標年内 ^^;;;

すいませんが、とりあえず、このパッチあててください。

# mew-nmz も大体出来たんだけど、readme とか書いていない。
# とりあえず、ML に本体だけ流そうかなぁ。。。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-summary4.el
===================================================================
RCS file: /cvsmew/mew/mew-summary4.el,v
retrieving revision 1.206
diff -u -r1.206 mew-summary4.el
--- mew-summary4.el	18 Dec 2007 09:09:43 -0000	1.206
+++ mew-summary4.el	25 Dec 2007 12:52:36 -0000
@@ -851,6 +851,7 @@
 	 (when (y-or-n-p "Delete this folder? ")
 	   (mew-delete-directory-recursively dir)
 	   (mew-local-folder-delete folder)
+	   (run-hook-with-args 'mew-summary-delete-folder-hook folder)
 	   (mew-summary-visit-folder mew-inbox-folder)
 	   (mew-kill-buffer buf))))
       ((mew-folder-imapp folder)
@@ -867,6 +868,7 @@
 		 (setq mew-summary-buffer-process-error nil))
 	     (mew-imap-folder-delete case folder)
 	     (mew-delete-directory-recursively dir) ;; cache
+	     (run-hook-with-args 'mew-summary-delete-folder-hook case:folder)
 	     (mew-summary-visit-folder mew-imap-inbox-folder)
 	     (mew-kill-buffer buf)))))))))
 
@@ -898,7 +900,8 @@
 	     ;; xxx remove all related buffer?
 	     (mew-local-update 'force)
 	   (mew-local-folder-delete folder)
-	   (mew-local-folder-insert new-folder)))))
+	   (mew-local-folder-insert new-folder))
+	 (run-hook-with-args 'mew-summary-rename-folder-hook folder new-folder))))
       ((mew-folder-imapp folder)
        (setq new-folder (car (mew-input-refile-folders (list folder) t case mew-folder-imap)))
        (setq case:new-folder (mew-case-folder case new-folder))
@@ -924,7 +927,9 @@
 		   (mew-imap-update case)
 		 (mew-message-for-summary "Type '3\\[mew-status-update]' to collect a folder list"))
 	     (mew-imap-folder-delete case folder)
-	     (mew-imap-folder-insert case new-folder))))))))))
+	     (mew-imap-folder-insert case new-folder))
+	   (run-hook-with-args 'mew-summary-rename-folder-hook
+			       case:folder case:new-folder)))))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.305
diff -u -r1.305 mew-vars.el
--- mew-vars.el	23 Dec 2007 12:46:55 -0000	1.305
+++ mew-vars.el	25 Dec 2007 12:52:36 -0000
@@ -399,6 +399,18 @@
   :group 'mew-summary
   :type 'hook)
 
+(defcustom mew-summary-delete-folder-hook nil
+  "*Hook called when a folder deleted.
+Eash function is called with a deleted folder as the argument."
+  :group 'mew-summary
+  :type 'hook)
+
+(defcustom mew-summary-rename-folder-hook nil
+  "*Hook called when a folder renamed. 
+Each function is called with a source folder and a destination folder as the argument."
+  :group 'mew-summary
+  :type 'hook)
+
 (defcustom mew-syntax-format-hook nil
   "*Hook called when mew-syntax-format is called."
   :group 'mew-message