gnus-art.el (article-make-date-line): Limit the length a bit more.

gnus.texi (Article Date): Document gnus-article-update-lapsed-header.

diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index a8a9ca6..c37affb 100644 (file)
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-26  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.texi (Article Date): Document gnus-article-update-lapsed-header.
+
 2011-01-24  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * message.texi (IDNA): Explain what it is.

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 45aa3f1..463a1e0 100644 (file)
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -9503,15 +9503,16 @@ replace it.
 An advantage of using Gnus to read mail is that it converts simple bugs
 into wonderful absurdities.
 
-If you want to have this line updated continually, you can put
+This line is updated continually by default.  If you wish to switch
+that off, say:
 
+@vindex gnus-article-update-lapsed-header
 @lisp
-(gnus-start-date-timer)
+(setq gnus-article-update-lapsed-header nil)
 @end lisp
 
-in your @file{~/.gnus.el} file, or you can run it off of some hook.  If
-you want to stop the timer, you can use the @code{gnus-stop-date-timer}
-command.
+in your @file{~/.gnus.el} file.  If you want to stop the updating
+dynamically, you can use the @code{gnus-stop-date-timer} command.
 
 @item W T o
 @kindex W T o (Summary)

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 66373f5..29939cc 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-28  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (article-make-date-line): Limit the length a bit more.
+
 2011-01-28  Daiki Ueno  <ueno@unixuser.org>
 
        * mml2015.el (mml2015-epg-sign, mml2015-epg-encrypt): Give

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 2960e8f..bde599c 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -3578,7 +3578,7 @@ should replace the \"Date:\" one, or should be added below it."
                          (concat " (" (article-lapsed-string time segments) ")"))
                    (> (+ (length date-string)
                          (length lapsed-string))
-                      (+ fill-column 10))
+                      (+ fill-column 6))
                    (> segments 0))
              (setq segments (1- segments)))
            (if (> segments 0)