Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

face of draft group

1 view
Skip to first unread message

TSUCHIYA Masatoshi

unread,
Sep 8, 2001, 1:11:19 AM9/8/01
to
最近の t-gnus-6_15-quimby 枝では、Group buffer での nndraft:drafts グ
ループの face が変更になって、以前の水色から、通常のグループと同じ緑色
になっています。

以前と同じように見えるようにしたいのですが、どの face の設定を変更すれ
ば良いのでしょうか?

--
土屋 雅稔 ( TSUCHIYA Masatoshi )
http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/

Katsumi Yamaoka

unread,
Sep 9, 2001, 7:38:31 PM9/9/01
to
>>>>> In [semi-gnus-ja : No.6265]
>>>>> TSUCHIYA Masatoshi <tsuc...@pine.kuee.kyoto-u.ac.jp> wrote:

土屋さん> 最近の t-gnus-6_15-quimby 枝では、Group buffer での
土屋さん> nndraft:drafts グループの face が変更になって、以前の水色か
土屋さん> ら、通常のグループと同じ緑色になっています。

土屋さん> 以前と同じように見えるようにしたいのですが、どの face の設定
土屋さん> を変更すれば良いのでしょうか?

どのグループにどんな face を付けるかは `gnus-group-highlight' と
いうオプションで決めます。ぼくはフルカスタマイズしていたので気が
付きませんでしたが、デフォルト値が思いっきり変化していたんですね
え。ただ、デフォルト値には nndraft:drafts を特別扱いするものは無
いので、土屋さんが設定しているグループレベルがたまたま緑色っぽい
face になる条件にマッチしてしまっているんじゃないでしょうか。
ちなみに、ぼくは以下のように特別扱いしています。

Value:
(((and
(zerop unread)
(string-match "^nnm.+:.+$" group))
. custom-face-DarkOrchid3-default-default-nil-nil-nil-t-+0)
((string-match "^nnm.+:.+$" group)
. custom-face-DarkOrchid3-default-default-t-nil-nil-nil-+0)
((and
(zerop unread)
(string-match "^nndraft:.+$" group))
. custom-face-SteelBlue4-default-default-nil-nil-nil-t-+0)
((string-match "^nndraft:.+$" group)
. custom-face-SteelBlue4-default-default-t-nil-nil-nil-+0)
((and
(zerop unread)
(string-match "^nnshimbun\\+.*:.+$" group))
. custom-face-Blue-default-default-nil-nil-nil-t-+0)
((string-match "^nnshimbun\\+.*:.+$" group)
. custom-face-Blue-default-default-t-nil-nil-nil-+0)
;;
;; その他いろいろ
;;
)

;; custom-face-*** は個人的に温存している大昔の関数
;; custom-face-lookup() で作った face です。
--
Katsumi Yamaoka <yam...@jpl.org>

TSUCHIYA Masatoshi

unread,
Sep 10, 2001, 2:52:21 AM9/10/01
to
>> On Mon, 10 Sep 2001 08:28:53 +0900
>> 「山」== yam...@jpl.org (Katsumi Yamaoka) said as follows:

山> どのグループにどんな face を付けるかは `gnus-group-highlight' と
山> いうオプションで決めます。

いつも、お世話になります。

(setq gnus-group-highlight
(append
'(((and (string= group "nndraft:drafts")
(= unread 0))
. gnus-group-news-1-empty-face)
((string= group "nndraft:drafts")
. gnus-group-news-1-face))
gnus-group-highlight))

という指定で、希望の色がつくようになりました。これで、安心して
t-gnus-6_15-quimby 枝の最新に追従できます。

;; これのためだけに、一部の環境(Emacs20 など)は追従していなかったとい
;; うのは内緒です。

0 new messages