* gnus-group.el (gnus-group-line-format): Added %O to the default

	value.

2001-12-31  Florian Weimer  <fw@deneb.enyo.de>

	* gnus.el (gnus): Warn if trying to run Gnus un-byte-compiled.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a6824a..fb832a9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
+2001-12-31  Florian Weimer  <fw@deneb.enyo.de>
+
+       * gnus.el (gnus): Warn if trying to run Gnus un-byte-compiled. 
+
 2001-12-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-group.el (gnus-group-line-format): Added %O to the default
+       value.
+
        * gnus-util.el (gnus-text-with-property): The smallest point is
        point-min. 
 

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 26d80c9..d8ebea6 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -141,7 +141,7 @@ list."
                         (function-item gnus-group-sort-by-rank)
                         (function :tag "other" nil))))
 
-(defcustom gnus-group-line-format "%M\%S\%p\%P\%5y: %(%g%)%l\n"
+(defcustom gnus-group-line-format "%M\%S\%p\%P\%5y: %(%g%)%l %O\n"
   "*Format of group lines.
 It works along the same lines as a normal formatting string,
 with some simple extensions.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 82ec8ce..3574e10 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3292,6 +3292,9 @@ If ARG is non-nil and a positive number, Gnus will use that as the
 startup level. If ARG is non-nil and not a positive number, Gnus will
 prompt the user for the name of an NNTP server to use."
   (interactive "P")
+  (unless (byte-code-function-p (symbol-function 'gnus))
+    (message "You should byte-compile Gnus")
+    (sit-for 2))
   (gnus-1 arg dont-connect slave))
 
 ;; Allow redefinition of Gnus functions.

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index deda1d1..bbcc672 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -671,7 +671,7 @@ If FULL, translate everything."
                path ""
                i (if (and (< 1 (length leaf)) (eq ?: (aref leaf 1)))
                      2 0))
-    ;; We translate -- but only the file name.  We leave the directory
+       ;; We translate -- but only the file name.  We leave the directory
        ;; alone.
        (if (and (featurep 'xemacs)
                 (memq system-type '(cygwin32 win32 w32 mswindows windows-nt)))