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

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

昨年末に出した 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 at example.com)

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")))