[mhc:01339] mhc-mode-hook

[Hiroyuki Komatsu <komatsu@xxxxxxxxxxx>]

小松@東工大です.
# みなさまはじめまして.
MHC を非常に便利に利用させていただいています.

MHC のキーバインドを個人的に変更するために mhc-mode-hook を
使ってやろうとしたのですが, mhc-mode-hook は mhc-scan-month から
呼ばれているようなので上手くいきませんでした.

そこで提案なのですが, mhc-mode-hook を mhc-mode から呼ぶように
していただけないでしょうか. 自前でコードを変更したものを添付させて
いただきました. よろしくお願いします.

--
                                                            小松弘幸
                                                -----------------------
                                                   komatsu@xxxxxxxxxxx




--- mhc.el.orig Wed May  9 07:51:23 2001
+++ mhc.el      Wed May  9 07:56:01 2001
@@ -160,7 +160,9 @@
                     (not mhc-mode)
                   (> (prefix-numeric-value arg) 0)))
   (if (featurep 'xemacs) (easy-menu-add mhc-mode-menu))
-  (force-mode-line-update))
+  (force-mode-line-update)
+  (and mhc-mode
+       (run-hooks 'mhc-mode-hook)))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -515,7 +517,6 @@
        (make-local-variable 'gnus-visual)
        (setq gnus-visual nil)))
       (mhc-mode 1)
-      (run-hooks 'mhc-mode-hook)
       (setq inhibit-read-only nil)
       (setq buffer-read-only t))
     (message "Scanning %s ... done." (ddate-yymm-s1 ddate "/"))))