2007年12月25日

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

白井です。

From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxx> 曰く
Subject: [mew-dist 27965] Re: 大幅改造
Message-ID: <20071214.170649.72258325.shirai.hideyuki@xxxxx>
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@xxxxx)

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

投稿者 xml-rpc : 2007年12月25日 21:53
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/67972
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。