[mhc:00068] Re: mhc 0.18

["Katsura S. Yoshio" <shishamo@xxxxxxxxxxxxxxx>]

芳尾です。

mhc 0.18 に問題点らしきものを見つけたので patch です。
確認は Emacs 20.3.92/HP-UX10.20 と Emacs20.3.2/Debian 2.1 上で行いまし
た。

Mule と XEmacs は知りません^^;

変更点は次の 2 点です。

1. mhc-summary-mode の変数定義がなされていなかったので outline-minor-mode
を参考に、定義した。

** M-x mew としてから C-h m (または M-x describe-mode) としたら、
   Symbol's value as variable is void: mhc-summary-mode と出て mode の
   説明がでてこない。

  そこで (setq debug-on-error t) で
   *Backtrace* を見てみたところ、
 
   Signaling: (void-variable mhc-summary-mode)
   describe-mode()
   * call-interactively(describe-mode)

   のエラーが出ていた。
 
   mhc.el のソースをおったところ、mhc-summary-mode が
   minor-mode-alist への登録はなされているものの、minor-mode をトグル
   する変数(通常は関数名と同じ) mhc-summary-mode が定義されていなかった。

2. それだけでは芸がないので、00usage.jis を適当に英訳して(ほんまに)
   mhc-summmary-mode の Description を追加し、C-h m で説明がでるように
   した。

以上です。
    Emacs20.3 以外でどうなるかはよく分からないのですみませんが試してみ
    ていただけませんか？それとも Emacs20.3 以外では C-h m は問題なくみ
    なさん動いていらっしゃるとか？

その他の計画：
    そのうち makefile をでっちあげたいです。

ではでは。 ---- Yours, K.S.Yoshio
                mailto:shishamo@xxxxxxxxxxxxxxx
                http://www2.osk.3web.ne.jp/~shishamo
Key fingerprint = 3C 3C 1C E6 B1 65 53 58  A3 B3 6A ED BA E4 54 52

*** mhc.el.org	Fri May 28 17:40:43 1999
--- mhc.el	Fri Jun  4 15:01:53 1999
***************
*** 72,77 ****
--- 72,107 ----
  ;; summary-mode
  ;;
  (defun mhc-summary-mode (&optional args)
+   "MHC is the mode for registering schdule directly from email.  
+    Requres mew and IM.  For mew and IM, please refer to
+    http://www.mew.org/
+ 
+    Key assinment on mhc-summary-mode.
+ 
+    C-c .  Review the schedule of this month
+    C-c >  Review the schedule of next month
+    C-c <  Review the schedule of previous month
+    C-c g  Jump to your prefer month
+    C-c s  Rescan the buffer of the month
+    C-c f  Move cursor to today (Only available reviewing this month)
+    C-c |  Register the reviewing mail to schdule
+    C-c d  Delete the schdule on the cursor line
+    C-c m  Edit the schdule on the cursor line
+    C-c e  Create new schdule file
+ 
+    C-u prefix is available on using C-cs C-c. C-cg, it works to
+    assign the category (see below)
+ 
+    The prefix arg C-c> C-c< is also available and you can indicate
+    the number of months to forward/back.
+ 
+    Field names using by MHC.
+ 
+    X-SC-Category: 
+    Space-seperated Keywords.  You can indicate keywords by typing
+    C-cs C-c. C-cg with C-u.
+ 
+    "
    (interactive)
    (define-key (current-local-map) "\C-cg" 'mhc-summary-goto-month)
    (define-key (current-local-map) "\C-c." 'mhc-summary-goto-this-month)
***************
*** 86,92 ****
--- 116,128 ----
    (or (assq 'mhc-summary-mode minor-mode-alist)
        (setq minor-mode-alist
  	    (cons '(mhc-summary-mode " Schedule") minor-mode-alist)))
+   (setq mhc-summary-mode
+ 	(if (null arg) (not mhc-summary-mode)
+ 	  (> (prefix-numeric-value arg) 0)))
    (run-hooks 'mhc-summary-mode-hook))
+ 
+ (defvar mhc-summary-mode nil "Toggle mhc-summary-mode")
+ (make-variable-buffer-local 'mhc-summary-mode)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;