[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: sb-tdiary with X-Face



>>>>> In [emacs-w3m : No.06007] 水戸さん wrote:

> 白○さんの日記に X-Face が表示されないのはちょっと違和感があっ
> たので、sb-hns と同様に、

>   (setq shimbun-tdiary-group-alist
>         '(("猫○は○えつきた?!日記" "http://ほげほげ/~白○/diary/"
>            nil "X-Face: lXh*PrM8>2L...")))

> のように指定できるようにしてみました。
> # 一部伏字です。;-P

> どうぞご笑納ください。

えーと、代案なんですが、もし

  shimbun のグループに関わらず、ある特定の発信者のアドレスが
  From: 行にあったら、その X-Face を表示する

というのを BBDB や LSDB 無しで行なうだけで良ければ、このメールの
最後のパッチを shimbun.el に当てるのと

(setq shimbun-x-face-database-function
      (lambda (from)
	(if (and from
		 (equal (nth 1 (std11-extract-address-components from))
			"白○@めどwy.org"))
	    "X-Face: lXh*PrM8>2L...")))

というようなものを書くことで実現可能ですが、いかがでしょう?

--- shimbun.el~	2003-10-26 21:53:58 +0000
+++ shimbun.el	2003-11-04 08:24:24 +0000
@@ -614,7 +614,7 @@
 	   (setq shimbun-x-face-database-function 'shimbun-lsdb-get-x-face)))
        (when (setq x-face
 		   (or (and from
-			    (fboundp shimbun-x-face-database-function)
+			    (functionp shimbun-x-face-database-function)
 			    (funcall shimbun-x-face-database-function from))
 		       (shimbun-x-face shimbun)))
 	 (insert x-face)
-- 
Katsumi Yamaoka <yamaoka@jpl.org>