2008年2月21日

[mew-dist 28097]hook 追加のお願い (mew-nmz)

白井です。

昨年末に出した mew-nmz ですが、一ヶ所バグっていまして '1Z' して
も local folder の update が出来ないようになっていました。長い間
気づきませんでした。ユーザさんごめんなさい (__)

mew-status-update() に defadvice をかけていたのですが、そうす
ると、interactive な情報が消えてしまうので、mew-local-update()

がいつでも interactivep => nil の状態で動いてしまうのでした。

そこで、パッチの様に一つ hook を追加して下さるとうれしいです。

なお、Mew にパッチをあててもらった後に対応する mew-nmz は

http://www.meadowy.org/~shirai/elisp/mew-nmz.el.gz

にすでに用意してあります。

--
白井秀行 (mailto:shirai@xxxxx)

Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.308
diff -u -r1.308 mew-vars.el
--- mew-vars.el 12 Feb 2008 08:36:23 -0000 1.308
+++ mew-vars.el 21 Feb 2008 02:13:18 -0000
@@ -431,6 +431,11 @@
:group 'mew-env
:type 'hook)

+(defcustom mew-status-update-hook nil
+ "*Hook called to update status ."
+ :group 'mew-env
+ :type 'hook)
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Mail Addresses for Draft
Index: mew.el
===================================================================
RCS file: /cvsmew/mew/mew.el,v
retrieving revision 1.314
diff -u -r1.314 mew.el
--- mew.el 13 Feb 2008 04:35:35 -0000 1.314
+++ mew.el 21 Feb 2008 02:13:18 -0000
@@ -251,6 +251,7 @@
(mew-decoration-setup)
(mew-biff-setup)
(mew-ct-setup)))
+ (run-hooks 'mew-status-update-hook)
(unless (or (eq arg 2) (eq arg 3))
(message "Updating status...done")))

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




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