From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/11703 Path: main.gmane.org!not-for-mail From: Steven L Baur Newsgroups: gmane.emacs.gnus.general Subject: Re: Gnus v5.4.62 is released Date: 17 Jul 1997 20:12:09 -0700 Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.108) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035151367 31929 80.91.224.250 (20 Oct 2002 22:02:47 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:02:47 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.6/8.8.6) with ESMTP id UAA03190 for ; Thu, 17 Jul 1997 20:55:20 -0700 Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with SMTP id WAA03324 for ; Thu, 17 Jul 1997 22:52:04 -0500 (CDT) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) id for ; Fri, 18 Jul 1997 05:09:04 +0200 Original-Received: (qmail 16413 invoked by uid 504); 18 Jul 1997 03:09:02 -0000 Original-Received: (qmail 16410 invoked from network); 18 Jul 1997 03:09:01 -0000 Original-Received: from xemacs.miranova.com (HELO altair.xemacs.org) (steve@206.190.83.19) by claymore.vcinet.com with SMTP; 18 Jul 1997 03:09:01 -0000 Original-Received: (from steve@localhost) by altair.xemacs.org (8.8.6/8.8.6) id UAA02718; Thu, 17 Jul 1997 20:12:10 -0700 Mail-Copies-To: never Original-To: ding@gnus.org X-Url: http://www.miranova.com/%7Esteve/ X-Face: `'%\i;ySOu]g?NlziJSk_$&@]KP`}~PEQPjZ5;nxSaDW_o$4+4%Ab]%Ifw3ZR;7TIT3,O,' @2{L;]ox6kc;$_5kU'n**9vFg-]eV~GbxSVCx|(s%uR[],*:^WKmC`B}(;|k9/m]gwt?&`t;^rfCJg khHH>pP1W\)xM0U@!FNDD72{3fDP$PkBhx^7Z?-WxH6DbFN:QOnT`llzW}VGdYv;n9lzljQvKTIBhQ YuV X-Attribution: sb In-Reply-To: Hrvoje Niksic's message of "14 Jul 1997 01:25:50 +0200" X-Mailer: Gnus v5.4.63/XEmacs 20.3(beta14) - "Vienna" Original-Lines: 54 Original-Xref: altair.xemacs.org dgnus-list:2095 Xref: main.gmane.org gmane.emacs.gnus.general:11703 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:11703 Hrvoje Niksic writes: > Lars Magne Ingebrigtsen writes: >> Steven L Baur 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 * 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)) '("--**-" . "-----") '("**" "--")))