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

[Kenichi Sato]

はじめまして。佐藤ともうします。

From: Yuuichi Teranishi 寺西裕一 <teranisi at example.com>
Subject: [Mew-dist 2491] Re: select-xface.el v0.05
Date: Wed, 15 Oct 1997 18:43:36 +0900

teranisi> takano> mule2.3 では表示されてしまいます。mule2.3 で x-face の encode さ
teranisi> takano> れた情報を隠す方法を教えて下さい。
teranisi> 
teranisi> こんなのを .emacs に加えるというのはどうでしょう。

Emacs20.2 + x-face.el 1.2.7 を使っています。自分も X-face: のフィー
ルドが邪魔だと感じていました。便乗してつかわせていただきます。

ただし、このままだと X-face: が付いているか否かも判らなくなってし
まうので以下のように勝手に変更させていただきました。

    (defun mew-set-xface-invisible ()
      (save-excursion
	(let ((header-end))
	  (goto-char (point-min))
	  (if (re-search-forward "\\(^--.*$\\)\\|\\(\n\n\\)" nil t)
	      (setq header-end (point)))
	  (goto-char (point-min))
	  (while (re-search-forward 
		  "^X-Face: *\\(.*\\(\n[ \t].*\\)*\\)\n" header-end t)
	    (put-text-property (match-beginning 1) (match-end 1)
			       'invisible t)))))
    (add-hook 'mew-message-hook 'mew-set-xface-invisible)

-- 
Kenichi Sato
Sony Objective Composer