[Mew-dist 2700] Re: select-xface.el v0.05

[Mikio Nakajima]

  中島＠あさひねっとと申します。

From: Kenichi Sato <ksato at example.com>
Subject: [Mew-dist 2493] Re: select-xface.el v0.05
Date: Wed, 15 Oct 1997 13:32:23 +0200 (MDT)
Message-ID: <19971015133223W.ksato at example.com>

ksato> Emacs20.2 + x-face.el 1.2.7 を使っています。自分も X-face: のフィー
ksato> ルドが邪魔だと感じていました。便乗してつかわせていただきます。
ksato> 
ksato> ただし、このままだと X-face: が付いているか否かも判らなくなってし
ksato> まうので以下のように勝手に変更させていただきました。

  こんな風に一般化するのはどうでしょう？

(defvar mew-invisible-regexp-list
  '("^X-Face: *\\(.*\\(\n[ \t].*\\)*\\)\n"
    "^X-PGP-Sig: *\\(\\(.+\n\t\\)+.+\n\t+=[0-9a-zA-Z]+$\\)" )
  "*List that contains regexps to be invisible in the message buffer." )

(defun mew-set-invisible ()
  (save-excursion
    (let ((invisible-regexp-list mew-invisible-regexp-list)
          (case-fold-search t)
          regexp header-end )
      (goto-char (point-min))
      (if (re-search-forward "\\(^--.*$\\)\\|\\(\n\n\\)" nil t)
          (setq header-end (point)))
      (while invisible-regexp-list
        (goto-char (point-min))
        (while (re-search-forward (car invisible-regexp-list) header-end t)
          (put-text-property (match-beginning 1) (match-end 1) 'invisible t) )
        (setq invisible-regexp-list (cdr invisible-regexp-list)) ))))

(add-hook 'mew-message-hook 'mew-set-invisible)

中島幹夫 <minakaji at example.com>
http://www.asahi-net.or.jp/~gy2m-nkjm/