レス数が1000を超えています。残念ながら全部は表示しません。

Navi2ch for Emacs (part 6)

579 ：nanashi ：02/07/22 17:19

>>577
こんな感じかな。

Index: navi2ch-message.el
===================================================================
RCS file: /cvsroot/navi2ch/navi2ch/navi2ch-message.el,v
retrieving revision 1.26
diff -u -r1.26 navi2ch-message.el
--- navi2ch-message.el 22 Jul 2002 03:51:05 -0000 1.26
+++ navi2ch-message.el 22 Jul 2002 08:16:31 -0000
@@ -96,6 +96,13 @@
(navi2ch-message-mode)
(erase-buffer)
(navi2ch-message-insert-header new sage)
+ (setq navi2ch-mode-line-identification
+ (if new
+ (format "*new message* [%s]"
+ (cdr (assq 'name navi2ch-message-current-board)))
+ (format "Re: %s [%s]"
+ (cdr (assq 'subject navi2ch-message-current-article))
+ (cdr (assq 'name navi2ch-message-current-board)))))
(navi2ch-set-mode-line-identification)
(run-hooks 'navi2ch-message-setup-message-hook)
(when sage

read.cgi ver5.26+ (01/10/21-)