🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: fj.editor.emacs
3 messages
3 total messages Started by Yasushi Shinjo Tue, 02 Sep 2008 10:31
MH-e current message mark ">" (mh-notate-cur)
#625
Author: Yasushi Shinjo
Date: Tue, 02 Sep 2008 10:31
31 lines
1856 bytes
$B?7>k!wC^GHBg3X>pJs$G$9!#$3$s$K$A$O!#(B

Emacs 22.0.91.1 $B$N(B MH-e $B$G!">/$75$$KF~$i$J$$=j$,$"$j$^$9!#A4(B
$BBN$KGI<j$H$$$&$N$b5$$KF~$i$J$$$N$G$9$,!"FC$K(Bscan $B$N%P%C%U%!(B
$B$G!"(Bcur $B$N%a%C%;!<%8$N9TF,$K(B ">" $B$H$$$&5-9f$,IU$/=j$G$9!#$3(B
$B$s$J46$8!#(B

    1001 
    >002+
    1003

$B$3$N(B ">" $B$N5-9f$r=P$J$$$h$&$K$7$?$$$N$G$9$,!"$J$s$H$+$J$i$J(B
$B$$$G$7$g$&$+!#(B

$B<!$N4X?t$r8F$V$H!"IU$$$?$j>C$($?$j$9$k$N$O!"$o$+$j$^$7$?!#(B

    (mh-notate-cur)
    (mh-remove-cur-notation)

$B$3$NJU$j$NF0:n$rJQ$($l$P$h$$$h$&$K;W$($^$9$,!"J}K!$,$h$/$o$+(B
$B$j$^$;$s!#(B

$BGI<j$5$O!"<!$N$h$&$K$9$k$H$@$$$V2!$($i$l$^$9$M!#(B

    (global-font-lock-mode -1)
    (setq goto-address-highlight-p nil)

$B$"$H!"(BM-x hl-line-mode$B!#(B

$B!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(B
$B!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(B
Re: MH-e current message mark ">" (mh-notate-cur)
#626
Author: Katsumi Yamaoka
Date: Tue, 02 Sep 2008 11:23
28 lines
2154 bytes
>>>>> 新城さん wrote:

> Emacs 22.0.91.1 の MH-e で、少し気に入らない所があります。全
> 体に派手というのも気に入らないのですが、特にscan のバッファ
> で、cur のメッセージの行頭に ">" という記号が付く所です。こ
> んな感じ。

>     1001
>     >002+
>     1003

> この ">" の記号を出ないようにしたいのですが、なんとかならな
> いでしょうか。

Emacs を tty でお使いですね。これでどうでしょう?

(add-hook 'mh-folder-mode-hook
	  (lambda nil
	    (setq overlay-arrow-string "")))

overlay-arrow-string は mh-folder-mode のバッファーでローカルに
">" に設定されるようにハードコードされています (mh-folder.el)。
これが使われるのは tty だけで、X などではウィンドウの両側にある
fringe という部分に矢印のビットマップが表示され、テキストの一部
を食ってしまうことはありません。おそらく tty で使う人が少ないの
で、今まで問題にされなかったのではないでしょうか。
-- 
山岡
Re: MH-e current message mark ">" (mh-notate-cur)
#627
Author: Yasushi Shinjo
Date: Wed, 03 Sep 2008 02:06
41 lines
2818 bytes
$B?7>k!wC^GHBg3X>pJs$G$9!#$3$s$K$A$O!#(B

In article <b4mr682yenw.fsf@jpl.org>
	Katsumi Yamaoka <yamaoka@jpl.org> writes:
> > $BFC$K(Bscan $B$N%P%C%U%!(B
> > $B$G!"(Bcur $B$N%a%C%;!<%8$N9TF,$K(B ">" $B$H$$$&5-9f$,IU$/=j$G$9!#(B
> > $B$3$N(B ">" $B$N5-9f$r=P$J$$$h$&$K$7$?$$$N$G$9$,!"$J$s$H$+$J$i$J(B
> > $B$$$G$7$g$&$+!#(B
> $B$3$l$G$I$&$G$7$g$&(B?
> (add-hook 'mh-folder-mode-hook
> 	  (lambda nil
> 	    (setq overlay-arrow-string "")))

$B$"$j$,$H$&$4$6$$$^$9!#$3$l$G2r7h$7$^$7$?!#(B

(lamba nil ...) $B$H$$$&$N$O!"0cOB46$"$C$?$N$G!"(B
(lambda () ...) $B$K$7$^$7$?!#(B

> Emacs $B$r(B tty $B$G$*;H$$$G$9$M!#(B

$B$O$$!#(Bkterm $B$NCf$G;H$C$F$$$^$9!#(BMH $B$N%3%^%s%I$OC<Kv$GBG$D$3(B
$B$H$bB?$$$N$G!#(Bpick, refile $B$J$I!#(Bmhn $B$b$1$C$3$&;H$$$^$9!#(B
MH-e $B$GI=<($G$-$J$$JQ$J%a!<%k$J$I!#(BMH $B0J30$N%3%^%s%I$rC<Kv$G(B
$BBG$D$3$H$b$"$j$^$9!#(B

> overlay-arrow-string $B$O(B mh-folder-mode $B$N%P%C%U%!!<$G%m!<%+%k$K(B
> ">" $B$K@_Dj$5$l$k$h$&$K%O!<%I%3!<%I$5$l$F$$$^$9(B (mh-folder.el)$B!#(B
> $B$3$l$,;H$o$l$k$N$O(B tty $B$@$1$G!"(BX $B$J$I$G$O%&%#%s%I%&$NN>B&$K$"$k(B
> fringe $B$H$$$&ItJ,$KLp0u$N%S%C%H%^%C%W$,I=<($5$l!"%F%-%9%H$N0lIt(B
> $B$r?)$C$F$7$^$&$3$H$O$"$j$^$;$s!#(B

$B$J$k$[$I!##X%&%$%s%I%&$G;H$&$H1&8~$-$N;03Q"%$,=P$F!"$$$$46$8(B
$B$G$9$M!#$=$l$K$J$l$??M$@$H!"C<Kv$G$O2?$+I=<($7$FM_$5$l$J$$$H(B
$B<d$7$$$N$G$7$g$&!#HV9f$N1&B&$K(B MH $B$N(B scan $B$N!V(B+$B!W$bI=<($5$l(B
$B$F$$$k$N$G$9$1$l$I$M!#(B

$B#X%&%$%s%I%&$@$H%a%C%;!<%8$N0LCV$NNP$N2#@~$bCOL#$G$9$M!#(B
kterm $B$@$H!"NP$N2#@~$,$1$C$3$&bA$7$$!#(B

$B!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(B
$B!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(B
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads