Remember when I visit group last time.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Thu, 09 Aug 2012 19:21:53 +0300
changeset 897 1979b76d6f6b
parent 896 cb9551a0ce9a
child 898 5cf5a1df2fb8
Remember when I visit group last time.
.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