sb-tdiary with X-Face

[Mito <mito@xxxxxxxxxxxxxxxxx>]

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

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

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

どうぞご笑納ください。

P.S.
w3m-broken-proxy-cache の件は言いだしっぺのくせに反応できず
にすみませんでした。
いまだに t にしないとだめな場合があるようです。
---
11/04 16:50頃
NECソフト 水戸

Index: sb-tdiary.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/shimbun/sb-tdiary.el,v
retrieving revision 1.9
diff -u -b -r1.9 sb-tdiary.el
--- sb-tdiary.el	22 Oct 2003 09:28:14 -0000	1.9
+++ sb-tdiary.el	4 Nov 2003 07:09:07 -0000
@@ -36,9 +36,11 @@
 
 (defvar shimbun-tdiary-group-alist nil
   "An alist of TDIARY shimbun group definition.
-Each element looks like (NAME URL).
+Each element looks like (NAME URL ADDRESS X-FACE).
 NAME is a shimbun group name.
-URL is the URL for TDIARY access point of the group.")
+URL is the URL for TDIARY access point of the group.
+Optional ADDRESS is the e-mail address for the diary owner.
+Optional X-FACE is a string for X-Face field.")
 
 (luna-define-method shimbun-groups ((shimbun shimbun-tdiary))
   (mapcar 'car shimbun-tdiary-group-alist))
@@ -102,6 +104,9 @@
       (setq author (match-string 1))
       (when (re-search-forward "<link rev=\"made\" href=\"mailto:\\(.*\\)\">" nil t)
 	(setq author (format "%s <%s>" author (match-string 1)))))
+    (when (null author)
+      (setq author (nth 2(assoc (shimbun-current-group-internal shimbun)
+                              shimbun-tdiary-group-alist))))
     (goto-char (point-min))
     (when (re-search-forward "<link rel=\"first\" .* href=\"\./.*\\([0-9][0-9][0-9][0-9][0-9][0-9]\\)" nil t)
       (setq first (match-string 1)))
@@ -127,6 +132,18 @@
 	  "title=\"\\([^\"]*\\)\">"
 	  "\\(\\*[0-9]+\\)</a></span>")
   "Regexp of footnote.")
+
+(luna-define-method shimbun-x-face ((shimbun shimbun-tdiary))
+  (or (shimbun-x-face-internal shimbun)
+      (shimbun-set-x-face-internal
+       shimbun
+       (or
+       (nth 3 (assoc (shimbun-current-group-internal shimbun)
+                     shimbun-tdiary-group-alist))
+       (cdr (assoc (shimbun-current-group-internal shimbun)
+                   (shimbun-x-face-alist-internal shimbun)))
+       (cdr (assoc "default" (shimbun-x-face-alist-internal shimbun)))
+       shimbun-x-face))))
 
 (luna-define-method shimbun-make-contents ((shimbun shimbun-tdiary)
 					   header)