🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

🏠 Home 📰 News 🗂️ Usenet Search 🔑 Login 📝 Register
Thread View: fj.editor.xemacs
10 messages
[T] Back to Threads [V] Tree View [G] Group Articles
10 total messages Started by Atsushi Shinmura Mon, 22 Oct 2001 17:31
Draft mode での X-Face の画像表示
#110
Author: Atsushi Shinmura
Date: Mon, 22 Oct 2001 17:31
18 lines
2290 bytes 
新村です。

RedHat 7.0J base MLD-5 Kernel 2.4.9 on Gateway 2000 G5 です。

mew-2.0.60,T-gnus-6.14,Wanderlust 2.7.5 を XEmacs 21.5.3 で使っており
ます。いずれも、メッセージを読む場合は、きちんとX-Face の画像が表示さ
れております(From 欄)。

が、Draft mode 時には、X-Face に文字列は、各々挿入されていますが、これ
を、画像のインライン表示にすることはできるのでしょうか？

compface-1.4.tar.gz x-face-1.3.6.13.tar.gz を用いていますが、ドキュメ
ントを読む限り、XEmacs では可能なような記述があるのですが、設定方法が
わかりません。

設定方法につき、ご教示下さいませ。
-- 
Atsushi Shinmura
Re: Draft mode での X-Face の画像表示
#112
Author: Katsumi Yamaoka
Date: Mon, 22 Oct 2001 23:57
37 lines
2880 bytes 
>>>>> In <m0d73f60ow.fsf@maria.issui.co>
>>>>>	Atsushi Shinmura <GGB03631@nifty.ne.jp> wrote:

新村さん> Draft mode 時には、X-Face に文字列は、各々挿入されていますが、
新村さん> これを、画像のインライン表示にすることはできるのでしょうか？

x-face-xmas-auto-image の値がデフォルトの t で、x-face-insert コ
マンドを対話的に (M-x で) 使った場合にインライン表示します。
hook などで x-face-insert を関数 call した場合にもインライン表示
させたい場合は、

  (x-face-insert ...)

の次に

  (x-face-xmas-display-x-face 1)

を行なってみて下さい。ただ、これによって生の X-Face フィールドに
invisible と read-only の属性が付けられるので、MUA によっては送
信直前のヘッダのエンコード時に不具合を生じることがあります (最近
はどうなっているか知りませんが、過去に Mew では多発しました)。

以下 README.ja より:

  もしそのような事態が不幸にして起こってしまうようでしたら、簡単には

(setq x-face-xmas-inhibit-read-only t)

  と .emacs に書いておくと、見えないヘッダの領域を read-only にしない
  ようにすることができます。
  もっと良いのは、ヘッダを書き変えるプログラムが実行されるより前に

        (x-face-xmas-remove-x-face-glyph)

  を実行して read-only の属性を消してしまうことです。
-- 
Katsumi Yamaoka <yamaoka@jpl.org>
Re: Draft mode での X-Face の画像表示
#114
Author: Atsushi Shinmura
Date: Tue, 23 Oct 2001 04:58
92 lines
5561 bytes 
新村です。 山岡さん お世話になります。

結果から言いますと、訳がわからず失敗。とりあえず、
Mew,T-Gnus,Wanderlust の現在、メッセージが見れて、Draft バッファにエン
コードされた文字列がインサートされている設定を写します。

---.mew.el
;;編集中にxfaceを表示する
(setq x-face-default-xbm-file "~/.xface")
(add-hook 'mew-draft-mode-hook 'x-face-insert)
(add-hook 'mew-make-massage-hook 'x-face-turn-off)
---end

---.gnus
;;xfaceの設定
(defvar gnus-x-face-file (expand-file-name "~/.x-face"))
(defun mail-insert-x-face ()
	(save-excursion
		(goto-char (point-min))
		(search-forward mail-header-separator)
		(beginning-of-line nil)
		(insert "X-Face:")
		(insert-file gnus-x-face-file)))
(add-hook 'message-setup-hook 'mail-insert-x-face)
---end

---.wl
;; X-Face を表示する (要 x-face (and x-face-mule))
(when window-system
  (cond ((and (featurep 'xemacs)    ; for XEmacs
          (module-installed-p 'x-face))
     (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
	 (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face))
    ;; for Mule (GNU Emacs)
	((module-installed-p 'x-face-mule)
	;; for x-face-mule distributed with bitmap-mule 8.0 or later
	(autoload 'x-face-decode-message-header "x-face-mule")
	(setq wl-highlight-x-face-function 'x-face-decode-message-header))
))
---end

.emacs には、X-Face 関係の設定はありません。いずれも、各々のメーラー、
ニューズのドキュメントから、そのまま写しただけです。

これで、メッセージを読む時は、きちんと表示されていますが、ドラフト時に
は、エンコードされた文字列が、X-Face:に入るだけです。どうしてもこうし
ても駄目なので、元に戻して見ました。x-face-1.3.6.13.tar.gz の
README.ja は何度も見返しましたが、Wanderlust だけが、ドキュメントどお
りの設定になっております。

>>>>> On Tue, 23 Oct 2001 08:57:11 +0900
>>>>> yamaoka@jpl.org(Katsumi Yamaoka)  said:

山岡さん> x-face-xmas-auto-image の値がデフォルトの t で、x-face-insert コ
山岡さん> マンドを対話的に (M-x で) 使った場合にインライン表示します。
山岡さん> hook などで x-face-insert を関数 call した場合にもインライン表示
山岡さん> させたい場合は、

やってみたのですが、「そんな関数ないよ」と言われます。何故？？

山岡さん>   (x-face-insert ...)
山岡さん> の次に
山岡さん>   (x-face-xmas-display-x-face 1)
山岡さん> を行なってみて下さい。ただ、これによって生の X-Face フィールドに
山岡さん> invisible と read-only の属性が付けられるので、MUA によっては送
山岡さん> 信直前のヘッダのエンコード時に不具合を生じることがあります (最近
山岡さん> はどうなっているか知りませんが、過去に Mew では多発しました)。

やっぱり、駄目でした。一体、何がおかしいのだろう？？混乱して、問題点を
絞れません。

山岡さん> 以下 README.ja より:
山岡さん>   もっと良いのは、ヘッダを書き変えるプログラムが実行されるより前に
山岡さん>         (x-face-xmas-remove-x-face-glyph)

.emacs で指示してみたのですが、
---.emacs
; XEmacs の場合のみ。詳細は 6. XEmacs の項をご覧下さい。
(autoload 'x-face-xmas-display-x-face "x-face"
  "Display X-Face fields as XEmacs-glyph." t)
(autoload 'x-face-xmas-force-display-x-face "x-face"
  "Display X-Face fields compulsorily as XEmacs glyph.")
(autoload 'x-face-xmas-remove-x-face-glyph "x-face"
  "Remove X-Face images and some text-properties.")
---end

変化ありませんでした。もう訳が解らず、どうしようもない有り様です。

どこに、大きな勘違いがあるのでしょうか？よろしくご教示下さいませ。

-- 
Atsushi Shinmura
Re: Draft mode での X-Face の画像表示
#115
Author: Katsumi Yamaoka
Date: Tue, 23 Oct 2001 06:33
161 lines
8058 bytes 
--Multipart_Tue_Oct_23_15:33:57_2001-1
Content-Type: text/plain; charset=ISO-2022-JP

>>>>> In <m0ofmzrlzt.fsf@maria.issui.co>
>>>>>	Atsushi Shinmura <GGB03631@nifty.ne.jp> wrote:

$B;32,(B> x-face-xmas-auto-image $B$NCM$,%G%U%)%k%H$N(B t $B$G!"(Bx-face-insert $B%3(B
$B;32,(B> $B%^%s%I$rBPOCE*$K(B (M-x $B$G(B) $B;H$C$?>l9g$K%$%s%i%$%sI=<($7$^$9!#(Bhook
$B;32,(B> $B$J$I$G(B x-face-insert $B$r4X?t(B call $B$7$?>l9g$K$b%$%s%i%$%sI=<($5$;(B
$B;32,(B> $B$?$$>l9g$O!"(B

$B?7B<$5$s(B> $B$d$C$F$_$?$N$G$9$,!"!V$=$s$J4X?t$J$$$h!W$H8@$o$l$^$9!#2?8N!)!)(B

$B$"$j$c(B?

M-x load-library
Load library: x-face

$B$G$O%(%i!<$O5/$-$^$;$s$+(B?
$B$"$k$$$O!"(B

(autoload 'x-face-insert "x-face" "Insert X-Face fields." t)

$B$N$h$&$J@_Dj$,$I$3$K$bL5$$$H$+!#(B

$B$H$3$m$G!"$3$N%3%^%s%I(B `x-face-insert' $B$,F~NO$H$7$F07$&$3$H$,$G(B
$B$-$k$N$O(B XBM $B%U%!%$%k$G$7$F!"%X%C%@$K$"$k$h$&$J(B compface $B$G%(%s(B
$B%3!<%I$5$l$?%F%-%9%H$G$O$"$j$^$;$s(B (x-face-e21 $B$O0c$&;EMM(B)$B!#(B
$B?7B<$5$s$N(B face $B$r(B xbm $B%U%!%$%k$K$7$?$b$N$rE:IU$7$F$*$-$^$9$N$G!"(B
*scratch* $B%P%C%U%!$G0J2<$N<0$r(B eval ($B:G8e$NJD$83g8L$N8e$m$G(B C-j)
$B$7$F;n$7$F$_$F2<$5$$!#(B

(progn
  (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
  (setq x-face-default-xbm-file "~/Atsushi_Shinmura.xbm")

  (let ((buffer (get-buffer-create "*testing*")))
    (pop-to-buffer buffer)
    (erase-buffer)
    (insert "\
Newsgroups: fj.editor.xemacs
Subject: testing
From: Atsushi Shinmura <GGB03631@nifty.ne.jp>

just a test.
")
    (x-face-insert)
    (x-face-xmas-display-x-face 1)))

$B$$$+$,$G$9$+(B?

$B?7B<$5$s(B> ---.mew.el
$B?7B<$5$s(B> ;;$BJT=8Cf$K(Bxface$B$rI=<($9$k(B
$B?7B<$5$s(B> (setq x-face-default-xbm-file "~/.xface")
$B?7B<$5$s(B> (add-hook 'mew-draft-mode-hook 'x-face-insert)
$B?7B<$5$s(B> (add-hook 'mew-make-massage-hook 'x-face-turn-off)
$B?7B<$5$s(B> ---end

$B$?$V$s$3$N>l9g$O(B

(autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
(setq x-face-default-xbm-file "~/Atsushi_Shinmura.xbm")
(add-hook 'mew-make-massage-hook
	  (lambda nil
	    (x-face-insert)
	    (x-face-xmas-display-x-face 1)))

$B$G$$$1$k$+$b$7$l$^$;$s!#(BMew $B$K$OAB$$$N$G!"$b$7$&$^$/$$$+$J$+$C$?(B
$B$i$=$N%9%8$NJ}!9$K?R$M$F$_$F2<$5$$!#(B
$B$J$*(B X-Face utils $B$K(B `x-face-turn-off' $B$H$$$&4X?t$OL5$$$H;W$&$N(B
$B$G$9$,!#(B

$B?7B<$5$s(B> ---.gnus
$B?7B<$5$s(B> ;;xface$B$N@_Dj(B
$B?7B<$5$s(B> (defvar gnus-x-face-file (expand-file-name "~/.x-face"))
$B?7B<$5$s(B> (defun mail-insert-x-face ()
$B?7B<$5$s(B> 	(save-excursion
$B?7B<$5$s(B> 		(goto-char (point-min))
$B?7B<$5$s(B> 		(search-forward mail-header-separator)
$B?7B<$5$s(B> 		(beginning-of-line nil)
$B?7B<$5$s(B> 		(insert "X-Face:")
$B?7B<$5$s(B> 		(insert-file gnus-x-face-file)))
$B?7B<$5$s(B> (add-hook 'message-setup-hook 'mail-insert-x-face)
$B?7B<$5$s(B> ---end

"~/.x-face" $B$H$$$&%U%!%$%k$NFbMFJ*$O(B compface $B$G%(%s%3!<%I$5$l$?(B
$B%F%-%9%H$G$9$h$M!#$G$7$?$i(B

(autoload 'x-face-xmas-display-x-face "x-face"
  "Display X-Face fields as XEmacs-glyph." t)

$B$rDI2C$7$F!"4X?t(B `mail-insert-x-face' $B$N:G8e$r(B

		(insert-file gnus-x-face-file)
		(x-face-xmas-display-x-face 1)))

$B$H$9$l$P$&$^$/$$$/5$$,$7$^$9!#(B

$B?7B<$5$s(B> ---.wl
$B?7B<$5$s(B> ;; X-Face $B$rI=<($9$k(B ($BMW(B x-face (and x-face-mule))
$B?7B<$5$s(B> (when window-system
$B?7B<$5$s(B>   (cond ((and (featurep 'xemacs)    ; for XEmacs
$B?7B<$5$s(B>           (module-installed-p 'x-face))
$B?7B<$5$s(B>      (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
$B?7B<$5$s(B> 	 (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face))
$B?7B<$5$s(B>     ;; for Mule (GNU Emacs)
$B?7B<$5$s(B> 	((module-installed-p 'x-face-mule)
$B?7B<$5$s(B> 	;; for x-face-mule distributed with bitmap-mule 8.0 or later
$B?7B<$5$s(B> 	(autoload 'x-face-decode-message-header "x-face-mule")
$B?7B<$5$s(B> 	(setq wl-highlight-x-face-function 'x-face-decode-message-header))
$B?7B<$5$s(B> ))
$B?7B<$5$s(B> ---end

$B$($($H(B Wanderlust $B$N>l9g$O(B cond $B$N(B XEmacs $B$N9`$N:G8e$r(B

	 (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)
	 (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
	 (setq x-face-default-xbm-file "~/Atsushi_Shinmura.xbm")
	 (add-hook 'wl-mail-setup-hook
		   (lambda nil
		     (x-face-insert)
		     (x-face-xmas-display-x-face 1))))

$B$HDy$a$/$/$k$h$&$K$9$l$P$&$^$/$$$/$N$G$O$J$$$G$7$g$&$+!#(B

--Multipart_Tue_Oct_23_15:33:57_2001-1
Content-Type: image/x-xbm
Content-Disposition: inline; filename="Atsushi_Shinmura.xbm"
Content-Transfer-Encoding: 7bit

#define Atsushi_Shinmura_width 48
#define Atsushi_Shinmura_height 48
static char Atsushi_Shinmura_bits[] = {
 0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x55,0x55,0x55,0x55,0x55,0xAD,0xFF,0xFF,0xFF,
 0xFF,0xFF,0xFF,0x96,0xAE,0xFA,0xFF,0x6F,0xAD,0x7F,0xED,0x7F,0xFF,0xFF,0xFD,
 0xDD,0xBF,0xFF,0xFE,0xEF,0xD6,0x77,0xED,0xDF,0xFF,0xFD,0xBD,0xDE,0xFD,0xFF,
 0xFF,0xFF,0xEF,0x6F,0xFF,0xFF,0xF7,0xFF,0xB3,0xED,0xFA,0xFF,0xFF,0xFF,0xEF,
 0x7F,0xF7,0xBF,0xDF,0xFF,0xDF,0x96,0xFD,0x7F,0x37,0xF8,0xB3,0xFF,0xFE,0x96,
 0x0F,0xF1,0xDF,0x2D,0xF3,0xA3,0x1B,0xE4,0xB7,0xD7,0xFD,0xF8,0x9E,0xE5,0xED,
 0xBE,0xF6,0x06,0x6B,0xE8,0xB7,0xD7,0xF6,0x80,0x22,0xA0,0xD5,0x6E,0xEB,0x9F,
 0xBE,0xFF,0xBE,0x57,0xF5,0xFF,0xFF,0xD7,0xD3,0x7E,0x5D,0xFF,0xEE,0xFF,0xAD,
 0xA7,0xF5,0xFF,0x7F,0xFF,0xDD,0xAE,0xEA,0xFF,0xFB,0xFF,0xA5,0x57,0xF5,0xF6,
 0xF1,0xFD,0xBF,0x56,0xF5,0xDF,0xD4,0xEF,0xA1,0x57,0x6A,0x69,0x30,0xF0,0xAD,
 0x57,0xE2,0x07,0x10,0x74,0xA9,0x26,0x49,0x07,0x3D,0xC9,0x92,0xAF,0xE2,0x0F,
 0x67,0xF8,0xA3,0x16,0xB9,0x45,0x38,0xA8,0x8B,0x07,0xFE,0x0F,0x0C,0xF4,0x9F,
 0x46,0xFE,0xA5,0xD3,0xEB,0x3F,0x97,0xDB,0x0B,0x2A,0xD8,0xFE,0x86,0xFF,0x8E,
 0x1D,0xF8,0xBB,0xE7,0xDF,0x0B,0x90,0xFA,0xFF,0xE6,0x7E,0x8F,0x42,0x7D,0xEF,
 0xD7,0xFB,0x8D,0x00,0xFC,0xFD,0xE6,0xBF,0x7F,0x75,0x7F,0xF7,0xB7,0x3F,0xDB,
 0xDA,0x7D,0xFF,0xE7,0xBF,0x7F,0xFF,0x7F,0xFA,0xFD,0x35,0xEB,0xEE,0xEF,0xFE,
 0xFF,0x3F,0xFC,0xFB,0x7F,0xDE,0x6E,0x3F,0x97,0xB7,0xEF,0xF6,0xFF,0x2F,0x87,
 0xFF,0x7E,0xFC,0xFD,0x3B,0x18,0x7F,0x7D,0xF6,0xFF,0x3F,0xA4,0xEE,0x5B,0xFD,
 0xBE,0xAF,0x0B,0xBA,0xFC,0xBF,0xFD,0xDF,0xAD,0x4E,0xA8,0xFE,0x6F,0xBD,0xFE,
 0xFB,0xFF,0xD7};

--Multipart_Tue_Oct_23_15:33:57_2001-1
Content-Type: text/plain; charset=US-ASCII

-- 
Katsumi Yamaoka <yamaoka@jpl.org>

--Multipart_Tue_Oct_23_15:33:57_2001-1--
Re: Draft mode での X-Face の画像表示
#117
Author: Atsushi Shinmura
Date: Tue, 23 Oct 2001 16:16
26 lines
2475 bytes 
新村です。 山岡さん 有難うございます。

ミスして、山岡さんの記事を印刷後消してしまったので、自分にスレッドつけ
ます。

さて、結果から言いますと。

T-gnus  成功
  但し、x-face のファイルは、xbm2xface.pl neko.xbm > xface-neko で
cpmpface したものです。

Mew    失敗
  現在、Mew-dist ML に聞き合わせ中です。文字列だけです。

Wanderlust 一部失敗
    261 ;;   (setq 'x-face-default-xbm-file "~/.neko.xbm")
で、x-face-default-xbm-file が無いよと言われて、wl が起動しません。し
かしながら、Draft 時には、ファイルのありかを聞いてきますし、指定すれば
正しく表示されます。

これも、一発で決まるように、変数一覧など調べたのですが、該当するものが
解りませんでした。ともかくも、このような状態です。

お世話おかけして申し訳ございません。ありがとうございます。
-- 
Atsushi Shinmura
Re: Draft mode での X-Face の画像表示
#119
Author: Atsushi Shinmura
Date: Wed, 24 Oct 2001 06:36
57 lines
4259 bytes 
新村です。 Mew の件も片付きました。

>>> Wed, 24 Oct 2001 01:16:39 +0900 の刻に 「新村」、すなわち
>>> GGB03631@nifty.ne.jp(Atsushi Shinmura) 氏曰く

新村> Mew    失敗
新村>   現在、Mew-dist ML に聞き合わせ中です。文字列だけです。

    144 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    145 ;;編集中にxfaceを表示する
    146 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    147 
    148 (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
    149 (setq highlight-headers-hack-x-face-p t)
    150 (setq x-face-xmas-auto-image t)
    151 (setq x-face-default-xbm-file "~/.neko.xbm")
    152 (add-hook 'mew-draft-mode-hook
    153     (lambda nil
    154         (x-face-insert)
    155         (x-face-xmas-force-display-x-face)))

ダイアログで、~/.neko.xbm にするかを聞かれますけど、OK にすれば、ちゃ
んとエンコードされて表示されます。

新村> Wanderlust 一部失敗
新村>     261 ;;   (setq 'x-face-default-xbm-file "~/.neko.xbm")
新村> で、x-face-default-xbm-file が無いよと言われて、wl が起動しません。し
新村> かしながら、Draft 時には、ファイルのありかを聞いてきますし、指定すれば
新村> 正しく表示されます。

    253 ;; X-Face を表示する (要 x-face (and x-face-mule))
    254 
    255 (when window-system
    256   (cond ((and (featurep 'xemacs)    ; for XEmacs
    257           (module-installed-p 'x-face))
    258      (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
    259      (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)
    260      (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
    261      (setq x-face-default-xbm-file "~/.neko.xbm")
    262      (add-hook 'wl-mail-setup-hook
    263         (lambda nil
    264             (x-face-insert)
    265             (x-face-xmas-display-x-face 1))))
    266     ;; for Mule (GNU Emacs)
    267     ((module-installed-p 'x-face-mule)
    268     ;; for x-face-mule distributed with bitmap-mule 8.0 or later
    269     (autoload 'x-face-decode-message-header "x-face-mule")
    270     (setq wl-highlight-x-face-function 'x-face-decode-message-header))
    271 ))

Mew と同じくダイアログで、~/.neko.xbm にするかを聞かれますけど、OK にすれば、ちゃ
んとエンコードされて表示されます。

それぞれ、一発で出せたらなぁ・・・ T-Gnus 6.14.8 は完璧なのに。

-- 
Atsushi Shinmura
Re: Draft mode での X-Face の画像表示
#120
Author: Katsumi Yamaoka
Date: Wed, 24 Oct 2001 07:25
32 lines
2567 bytes 
>>>>> In <m06695o87j.fsf@maria.issui.co>
>>>>>	Atsushi Shinmura <GGB03631@nifty.ne.jp> wrote:

新村さん> 新村です。 Mew の件も片付きました。

お疲れさまです。:-)

新村さん> (setq x-face-default-xbm-file "~/.neko.xbm")
新村さん> (add-hook 'mew-draft-mode-hook
新村さん>     (lambda nil
新村さん>         (x-face-insert)
新村さん>         (x-face-xmas-force-display-x-face)))

新村さん> ダイアログで、~/.neko.xbm にするかを聞かれますけど、OK にす
新村さん> れば、ちゃんとエンコードされて表示されます。

x-face-insert の関数定義を見直してみたのですが、たしかにそうなっ
てしまいますね。

(x-face-insert)

の代わりに

(x-face-insert x-face-default-xbm-file)

としておけば、聞かれなくなると思います。たぶん Wanderlust も。

;; x-face-insert は何だか変な仕様のような気がするので直せば良い
;; のでしょうけれど、昔書いた稚拙なコードが目に付いてしまって気
;; 合いが入らないのです。すみません。^^;;
-- 
Katsumi Yamaoka <yamaoka@jpl.org>
Re: Draft mode での X-Face の画像表示
#121
Author: Atsushi Shinmura
Date: Wed, 24 Oct 2001 13:19
71 lines
4488 bytes 
新村です。およそ成功しました。

>>> Wed, 24 Oct 2001 15:36:32 +0900 の刻に 「新村」、すなわち
>>> GGB03631@nifty.ne.jp(Atsushi Shinmura) 氏曰く

---.mew.el
    147 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    148 ;;編集中にxfaceを表示する
    149 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    150 
    151 (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
    152 (setq highlight-headers-hack-x-face-p t)
    153 (setq x-face-xmas-auto-image t)
    154 (setq x-face-default-xbm-file "~/.neko.xbm")
    155 (add-hook 'mew-draft-mode-hook
    156     (lambda nil
    157 ;;      (x-face-insert)
    158 ;;      (setq x-face-insert-interactive nil)
    159         (x-face-insert x-face-default-xbm-file)
    160         (x-face-xmas-force-display-x-face)))
    161 ;       (x-face-xmas-display-x-face 1)))
    162 
    163 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
---end

---T-gnus
     14 ;;xfaceの設定
     15 (autoload 'x-face-xmas-display-x-face "x-face"
     16     "Display X-Face fields as XEmacs-glyph." t)
     17 ;(defvar gnus-x-face-file (expand-file-name "~/.x-face"))
     18 (defvar gnus-x-face-file (expand-file-name "~/.xface"))
     19 (defun mail-insert-x-face ()
     20     (save-excursion
     21         (goto-char (point-min))
     22         (search-forward mail-header-separator)
     23         (beginning-of-line nil)
     24         (insert "X-Face:")
     25         (insert-file gnus-x-face-file)
     26         (x-face-xmas-display-x-face 1)))
     27 (add-hook 'message-setup-hook 'mail-insert-x-face)
---end

---.wl

    257 ;; X-Face を表示する (要 x-face (and x-face-mule))
    258 
    259 (when window-system
    260   (cond ((and (featurep 'xemacs)    ; for XEmacs
    261           (module-installed-p 'x-face))
    262      (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
    263      (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)
    264      (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
    265      (setq x-face-default-xbm-file "~/.neko.xbm")
    266      (add-hook 'wl-mail-setup-hook
    267         (lambda nil
    268 ;;          (x-face-insert)
    269             (x-face-insert x-face-default-xbm-file)
    270             (x-face-xmas-display-x-face 1))))
    271     ;; for Mule (GNU Emacs)
    272     ((module-installed-p 'x-face-mule)
    273     ;; for x-face-mule distributed with bitmap-mule 8.0 or later
    274     (autoload 'x-face-decode-message-header "x-face-mule")
    275     (setq wl-highlight-x-face-function 'x-face-decode-message-header))
    276 ))
---end

上記で期待どおりに動きました。ご連絡および御礼までに。


-- 
Atsushi Shinmura
Re: Draft mode での X-Face の画像表示
#122
Author: Atsushi Shinmura
Date: Thu, 25 Oct 2001 06:41
38 lines
3519 bytes 
新村です。 山岡さん、いつもお世話になります。

全て決着がつきました。本来、私はメールを Mew 2.1rc ニューズを T-Gnus
6.14.8 で受けるのですが、「窓」が恋しい方には、3 ぺイン表示の
Wanderlust 2.7.5 が人気があり、入れて設定しました。

そいでもって、Wanderlust には、X-Weather,X-Fortune とか、邪道なのがあ
り、これも揃えました^^; 「窓」のメーラーでは見えないといっても聞きませ
ん。ついでに、News も使えるので、人気あるみたいですね。

Mew 2.1rc の場合、PGP 6.X を使って、暗号化、複号化が簡単なので、しかも
Emacs-W3M W3M が使えるので、HTML メールもまずまず見れますから。

しかし、作者ご本人である、山岡さんに直々、X-Face のご指導を頂けました
おかげで、こうやって記事を書くのも楽しいものです。有難うございました。

>>>>> On Wed, 24 Oct 2001 16:25:05 +0900
>>>>> yamaoka@jpl.org(Katsumi Yamaoka)  said:

山岡さん> (x-face-insert)
山岡さん> の代わりに
山岡さん> (x-face-insert x-face-default-xbm-file)
山岡さん> としておけば、聞かれなくなると思います。たぶん Wanderlust も。

ええ。Mew-dist で、その話が出まして、無事全部完了できました。きてれつ
な、X-Face を付けている方もいらっしゃいまして、カラーに挑戦している方
もいるみたいですが、相手が読めなければ、どうしようもないのに。

山岡さん> ;; x-face-insert は何だか変な仕様のような気がするので直せば良い
山岡さん> ;; のでしょうけれど、昔書いた稚拙なコードが目に付いてしまって気
山岡さん> ;; 合いが入らないのです。すみません。^^;;

いえいえ。十分使えています。Draft がとっても楽しい^^;
「窓」なメーラーでも見れるのもありますし。Windows XP にでも変れば、Win
にも、XEmacs , Emacs 乗せて、楽しもうかな^^;

-- 
Atsushi Shinmura
Re: Draft mode での X-Face の画像表示
#123
Author: 岡田 健一 / Kenichi OKADA
Date: Thu, 25 Oct 2001 07:10
14 lines
2792 bytes 
おかだです。

ほぼ、ちゃちゃ

In the message <m0pu7c6x2m.fsf@maria.issui.co>
Atsushi Shinmura <GGB03631@nifty.ne.jp> wrote:

新村さん> そいでもって、Wanderlust には、X-Weather,X-Fortune とか、邪道なのがあ
新村さん> り、これも揃えました^^; 

T-Gnus や Mew でも使えますよ．

-- 
岡田 健一 mailto:okada@opaopa.org
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads