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

[Yuuichi Teranishi 寺西裕一]

こんにちは、
寺西＠ＮＴＴ情報研です。

takano>   さて本題ですが、私は xemacs20.2 から今の mule2.3 にしましたが、
takano> xemacs20.2 では x-face の encode された状態が隠れていたのですが、 

？？これはなぜかわかりません。

takano> mule2.3 では表示されてしまいます。mule2.3 で x-face の encode さ
takano> れた情報を隠す方法を教えて下さい。

こんなのを .emacs に加えるというのはどうでしょう。

(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 0) (match-end 0)
			   'invisible t)))))
(add-hook 'mew-message-hook 'mew-set-xface-invisible)

--
Yuuichi Teranishi (寺西裕一) <teranisi at example.com>
NTT Information and Communication Systems Laboratories
TEL: 0468-59-2839 FAX: 0468-59-2768 PHS: 050-106-7597