1992 (setq gnus-article-date-headers '(combined-lapsed user-defined))

  1992 (setq gnus-article-date-headers '(combined-lapsed user-defined))

  1993 

  1993 

  1994 ;; Remember when I visit group last time.

  1994 ;; Remember when I visit group last time.

  1995 (add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)

  1995 (add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)

  1996 

  1996 

  1997 (defun gnus-user-format-function-d (header)

  1998 (defun gnus-user-format-function-d (header)

  1998   (let ((time (gnus-group-timestamp gnus-tmp-group)))

  1999   (let ((time (gnus-group-timestamp gnus-tmp-group)))

  1999     (if (and time (time-less-p (time-subtract (current-time) time) (seconds-to-time (* 3600 24 7 30 2))))

  2000     (if (and time (time-less-p (time-subtract (current-time) time) (seconds-to-time (* 3600 24 7 30 2))))

  2000         (format-time-string "%Y-%m-%d %H:%M" time)

  2001         (format-time-string "%Y-%m-%d %H:%M" time)

  2001       "")))

  2002       "")))

  2003 ;; %d (or with user defined format %ud) shown when I visit group last time in

  2003 ;; %d (or with user defined format %ud) shown when I visit group last time in

  2004 ;; %*Group* buffer.

  2004 ;; %*Group* buffer.

  2005 (setq gnus-group-line-format "%M%S%p%P%6y:%B%(%-50,50G%)%3O %ud\n")

  2005 (setq gnus-group-line-format "%M%S%p%P%6y:%B%(%-50,50G%)%3O %ud\n")

  2006 

  2006 

  2007 ;; gnus-visible-headers gnus-extra-headers

  2007 ;; gnus-visible-headers gnus-extra-headers