[patch] age depending date-format

[Frank Schmitt <usereplyto@Frank-Schmitt.net>]

[-- Attachment #1: Type: text/plain, Size: 611 bytes --]

Hi

I did some more testing and error handling on my code I posted in  
<archive.pu7pc20r.fsf@hschmi22.userfqdn.rz-online.de>.

It should work without problems. What it does is the following:
Add a new item (%q) to gnus-summary-line-format-alist which calls
gnus-user-date(date-header).

gnus-user-date formats the date accordingly to 
gnus-user-date-day
gnus-user-date-week
gnus-user-date-old

That means that if the message is of today you get e.g. 10:24
if not older than 7 days you Mon 12:35
and if it's older you Okt 16

gnus-user-* can hold any valid value for format-time-string.

here are the patches:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Patch against gnus-sum.el --]
[-- Type: text/x-patch, Size: 553 bytes --]

--- gnus-sum.el	Fri Oct  5 19:44:50 2001
+++ gnus-sum2.el	Tue Oct 16 19:23:34 2001
@@ -1055,6 +1055,7 @@
     (?D ,(macroexpand '(mail-header-date gnus-tmp-header)) ?s)
     (?d (gnus-dd-mmm (mail-header-date gnus-tmp-header)) ?s)
     (?o (gnus-date-iso8601 (mail-header-date gnus-tmp-header)) ?s)
+    (?q (gnus-user-date (mail-header-date gnus-tmp-header)) ?s)
     (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
     (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
     (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: Patch against gnus-util.el --]
[-- Type: text/x-patch, Size: 1985 bytes --]

--- gnus-util.el	Sun Oct  7 13:49:04 2001
+++ gnus-util2.el	Tue Oct 16 18:57:50 2001
@@ -299,6 +299,43 @@
       (yes-or-no-p prompt)
     (message "")))
 
+;; By Frank Schmitt <ich@Frank-Schmitt.net>. Allows to have age-depending
+;; date representations. (e.g. just the time when it's from today, the day 
+;; of the week if it's within the last 7 days and the full date if it's older)
+(defvar gnus-user-date-format-day "%k:%M" 
+  "Format used to display todays dates.
+See documentation of format-time-string for valid values")
+(defvar gnus-user-date-format-week "%a %k:%M"
+  "Format used to display dates not older than one week.
+See documentation of format-time-string for valid values")
+(defvar gnus-user-date-format-old "%d.%m."
+  "Format used to display dates older than one week.
+See documentation of format-time-string for valid values")
+
+(defun gnus-user-date (messy-date)
+  "Format the messy-date acording to gnus-user-date-format-*.
+Returns \"  ?  \" if there's bad input or if an other error occurs.
+Input should look like this: \"Sun, 14 Oct 2001 13:34:39 +0200\"."
+  (condition-case ()
+      (progn
+	(setq messy-date (safe-date-to-time messy-date))
+	(setq now (current-time))
+	(setq my-format gnus-user-date-format-old)
+	(setq high (lsh (- (car now) (car messy-date)) 16))
+	(if (= (logand high 65535) 0)  ;;if nil then we've got an overflow
+	    (progn
+	     (setq difference (+ high (- (car (cdr now)) (car (cdr messy-date)))))
+	     (setq now (decode-time now))
+	     (if (> (- (+ (car now) (* (car (cdr now)) 60) (* (car (nthcdr 2 now)) 3600)) differenz) -1)
+		 ;;today
+		 (setq my-format gnus-user-date-format-day)
+	       (if (< difference 604801)
+		   ;;this week
+		   (setq my-format gnus-user-date-format-week)))))
+	  (format-time-string (eval my-format) messy-date))
+    (error "  ?   ")))
+;;end of Frank's code
+
 (defun gnus-dd-mmm (messy-date)
   "Return a string like DD-MMM from a big messy string."
   (condition-case ()


[-- Attachment #4: Type: text/plain, Size: 0 bytes --]