From: Steven L Baur <steve@xemacs.org>
Subject: Re: Gnus v5.4.62 is released
Date: 17 Jul 1997 20:12:09 -0700 [thread overview]
Message-ID: <m2soxdawae.fsf@altair.xemacs.org> (raw)
In-Reply-To: Hrvoje Niksic's message of "14 Jul 1997 01:25:50 +0200"
Hrvoje Niksic <hniksic@srce.hr> writes:
> Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
>> Steven L Baur <steve@xemacs.org> writes:
>>
>> > A conditionalized change would be good. One possible method would be
>> > to test against `modeline-modified' and if it's '("--%1*%1+-") use the
>> > longer format.
>>
>> I've now coditionalized it. I've simply made is be long under XEmacs
>> 19 and 20 and Emacs 19 and short under everything else.
> The modeline is still short in XEmacs, at least in Group buffer.
Ack! I fixed the initialization in gnus-ems.el and it's still wrong.
Other culprits appear to be in gnus-salt.el and gnus.el:
(defun gnus-carpal-mode ()
...
(setq mode-line-modified "-- ")
...
(defun gnus-simplify-mode-line ()
"Make mode lines a bit simpler."
(setq mode-line-modified "-- ")
...
[I previously sent this patch to gnus-bug]
1997-07-17 Steven L Baur <steve@altair.xemacs.org>
* gnus-ems.el (gnus-mode-line-modified): Refine detection on
whether narrow indicators should be used.
Index: gnus-ems.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/gnus/gnus-ems.el,v
retrieving revision 1.9
diff -u -r1.9 gnus-ems.el
--- gnus-ems.el 1997/07/13 22:41:17 1.9
+++ gnus-ems.el 1997/07/17 08:31:45
@@ -35,8 +35,8 @@
(defvar gnus-mouse-2 [mouse-2])
(defvar gnus-down-mouse-2 [down-mouse-2])
(defvar gnus-mode-line-modified
- (if (and (not gnus-xemacs)
- (< emacs-major-version 20))
+ (if (or gnus-xemacs
+ (< emacs-major-version 20))
'("--**-" . "-----")
'("**" "--")))
prev parent reply other threads:[~1997-07-18 3:12 UTC|newest]
Thread overview: 22+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-07-06 15:24 Lars Magne Ingebrigtsen
1997-07-06 16:05 ` Hrvoje Niksic
1997-07-07 9:08 ` Lars Magne Ingebrigtsen
1997-07-07 21:14 ` Hrvoje Niksic
1997-07-07 23:15 ` Jens Lautenbacher
1997-07-07 23:52 ` Hrvoje Niksic
1997-07-08 1:28 ` Steven L Baur
1997-07-08 2:39 ` Jens Lautenbacher
1997-07-08 4:01 ` Hrvoje Niksic
1997-07-08 5:28 ` Sudish Joseph
1997-07-08 7:34 ` Hrvoje Niksic
1997-07-08 16:56 ` Sudish Joseph
1997-07-08 18:30 ` Jens Lautenbacher
1997-07-08 20:49 ` Hrvoje Niksic
1997-07-10 18:16 ` Lars Magne Ingebrigtsen
1997-07-07 8:51 ` Steven L Baur
1997-07-07 11:36 ` Lars Magne Ingebrigtsen
1997-07-07 21:13 ` Hrvoje Niksic
1997-07-07 23:56 ` Steven L Baur
1997-07-10 18:08 ` Lars Magne Ingebrigtsen
1997-07-13 23:25 ` Hrvoje Niksic
1997-07-18 3:12 ` Steven L Baur [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2soxdawae.fsf@altair.xemacs.org \
--to=steve@xemacs.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).