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

Re: [sb-rss] description 要素



ARISAWA Akihiro writes:

> これにより、以下のような設定で description を Summary に表示させることが
> できます。(cf. (Info-goto-node "(gnus)RSS"))
> ;; Tooltip に出せないものですかね?

以下のように、gnus-balloon-face-0 を設定して、%<< と %>> (*1) で
括ってやれば Tooltip で表示されました。
表示例: http://www.nijino.com/ari/emacs/nnshimbun-rss-description2.png

(*1) 本当は (make-char 'latin-iso8859-1 43) と (make-char 'latin-iso8859-1 59)
     です。このため、サンプルも別パートにします。
(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 の改良ありがとうございました。 > 土屋さん
elmo-shimbun ヘのマージありがとうございました。> 寺西さん

-- 
有沢 明宏