メールの最後を表示してみる

Emacs Wanderlust

スペースを連打してたら、いつのまにか summary-mode を抜けててorzにならない為に。

(defface mime-view-end-marker-face
  '((t :background "orange"))
  nil)

(defun mime-view-add-end-marker ()
  (dolist (ovr (overlays-in (point-min) (point-max)))
    (when (overlay-get ovr 'mime-view-end-marker)
      (delete-overlay ovr)))
  (let ((ovr (make-overlay (1- (point-max)) (point-max) (current-buffer))))
    (overlay-put ovr 'after-string
		 (concat "\n"
			 (propertize "[End Of Message]" 'face
				     'mime-view-end-marker-face)))
    (overlay-put ovr 'evaporate t)))

(add-hook 'mime-view-mode-hook 'mime-view-add-end-marker)
  • [2007-03-12] 色を変えてみる。
  • [2007-03-11] 何故か複数のマークが付いちゃう事があったのを修正。
  • [2007-03-11] 前のメールを見るとマークが消えちゃってたのを修正。