equal
deleted
inserted
replaced
1426 ;; Remember when I visit group last time. |
1426 ;; Remember when I visit group last time. |
1427 (add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp) |
1427 (add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp) |
1428 |
1428 |
1429 (defun gnus-user-format-function-d (header) |
1429 (defun gnus-user-format-function-d (header) |
1430 (let ((time (gnus-group-timestamp gnus-tmp-group))) |
1430 (let ((time (gnus-group-timestamp gnus-tmp-group))) |
1431 (if time |
1431 (if (and time (time-less-p (time-subtract (current-time) time) (seconds-to-time (* 3600 24 7 30 2)))) |
1432 (format-time-string "%Y-%m-%d %H:%M" time) |
1432 (format-time-string "%Y-%m-%d %H:%M" time) |
1433 ""))) |
1433 ""))) |
1434 |
1434 |
1435 ;; %d (or with user defined format %ud) shown when I visit group last time in |
1435 ;; %d (or with user defined format %ud) shown when I visit group last time in |
1436 ;; %*Group* buffer. |
1436 ;; %*Group* buffer. |