Re: [sb-rss] description $BMWAG(B

[ari@xxxxxxxxxxxxx (ARISAWA Akihiro)]

ARISAWA Akihiro writes:

> $B$3$l$K$h$j!"0J2<$N$h$&$J@_Dj$G(B description $B$r(B Summary $B$KI=<($5$;$k$3$H$,(B
> $B$G$-$^$9!#(B(cf. (Info-goto-node "(gnus)RSS"))
> ;; Tooltip $B$K=P$;$J$$$b$N$G$9$+$M(B?

$B0J2<$N$h$&$K!"(Bgnus-balloon-face-0 $B$r@_Dj$7$F!"(B%<< $B$H(B %>> (*1) $B$G(B
$B3g$C$F$d$l$P(B Tooltip $B$GI=<($5$l$^$7$?!#(B
$BI=<(Nc(B: http://www.nijino.com/ari/emacs/nnshimbun-rss-description2.png

(*1) $BK\Ev$O(B (make-char 'latin-iso8859-1 43) $B$H(B (make-char 'latin-iso8859-1 59)
     $B$G$9!#$3$N$?$a!"%5%s%W%k$bJL%Q!<%H$K$7$^$9!#(B

(setq gnus-balloon-face-0
      #'(lambda (window object pos)
	  (with-current-buffer object
	    (let ((descr
		   (assq 'description
			 (mail-header-extra
			  (gnus-data-header
			   (gnus-data-find 
			    (get-text-property pos 'gnus-number)))))))
	      (when descr (rfc2047-decode-string (cdr descr)))))))
(setq gnus-summary-line-format
      "%«%U%R%z%B%(%[%6,6~(cut 2)o: %-20,20f%]%) %s%»\n")
P.S.
sb-rss $B$N2~NI$"$j$,$H$&$4$6$$$^$7$?!#(B > $BEZ20$5$s(B
elmo-shimbun $B%X$N%^!<%8$"$j$,$H$&$4$6$$$^$7$?!#(B> $B;{@>$5$s(B

-- 
$BM-Bt(B $BL@9((B