[mhc:01533] Re: mhc-scan-month-hook

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From:  Sawada Toyonobu <non@xxxxxxxxxxxx> さん曰く
Subject: [mhc:01532] Re: mhc-scan-month-hook
Message-ID: <20020131.152344.98160726.non@xxxxxxxxxxxx>
Date: Thu, 31 Jan 2002 15:23:44 +0900 (JST)

白井> # 便利だ。
の> でしょ??

なのですが、僕にはどうしても

『overlay は必要がなくなったら消さないといけない』

という強迫観念がありまして、鯉江さんの方法だと消していないんです
よね。

# この、消さなければいけない、ということの真偽はわかりません ^^;;;
# 本当のところはどうなんでしょう？

で、Mew 的には 'mew って一緒に overlay につけておけば、buffer を
消すときに delete-overlay してくれるので、そうしようと思ったので
すが、local-map なら text-property でいいじゃんと軟弱路線に走っ
てしまいました。

## 鯉江さんいろいろ変えちゃってごめんなさい。

(defvar mhc-mew-prev-map nil)
(defvar mhc-mew-next-map nil)

(defadvice mhc-scan-month (after easy-navi activate)
  (when (eq mailer 'mhc-mew)
    (unless mhc-mew-prev-map
      (let ((map (make-sparse-keymap)))
	(set-keymap-parent map mew-summary-mode-map)
	(define-key map "<" 'mhc-goto-prev-month)
	(setq mhc-mew-prev-map map)))
    (unless mhc-mew-next-map
      (let ((map (make-sparse-keymap)))
	(set-keymap-parent map mew-summary-mode-map)
	(define-key map ">" 'mhc-goto-next-month)
	(setq mhc-mew-next-map map)))
    (save-excursion
      (mew-elet
       (put-text-property (point-min)
			  (progn (goto-char (point-min))
				 (forward-line)
				 (point))
			  'local-map mhc-mew-prev-map)
       (put-text-property (progn (goto-char (point-max))
				 (forward-line -1)
				 (point))
			  (point-max)
			  'local-map mhc-mew-next-map)
       (set-buffer-modified-p nil)))))

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