diff -r cb9551a0ce9a -r 1979b76d6f6b .emacs-my --- a/.emacs-my Thu Aug 09 18:35:22 2012 +0300 +++ b/.emacs-my Thu Aug 09 19:21:53 2012 +0300 @@ -1398,7 +1398,7 @@ ) )) -;; `gnus-group-line-format', `gnus-summary-line-format', +;; `gnus-summary-line-format', ;; `gnus-server-line-format', `gnus-topic-line-format', ;; `gnus-group-mode-line-format', `gnus-summary-mode-line-format', ;; `gnus-article-mode-line-format', `gnus-server-mode-line-format', @@ -1421,6 +1421,19 @@ (setq gnus-article-time-format "%Y-%m-%d %T%z %a") (setq gnus-article-date-headers '(combined-lapsed user-defined)) +;; Remember when I visit group last time. +(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp) + +(defun gnus-user-format-function-d (header) + (let ((time (gnus-group-timestamp gnus-tmp-group))) + (if time + (format-time-string "%Y-%m-%d %H:%M" time) + ""))) + +;; %d (or with user defined format %ud) shown when I visit group last time in +;; %*Group* buffer. +(setq gnus-group-line-format "%M%S%p%P%6y:%B%(%-50,50G%)%3O %ud\n") + ;; gnus-visible-headers (setq gnus-sorted-header-list