Fix: Warning: reference to free variable `gnus-tmp-group'.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 11 Sep 2016 15:26:25 +0300
changeset 1431 c78504ea530f
parent 1430 8380f91bc913
child 1432 e099be0ee680
Fix: Warning: reference to free variable `gnus-tmp-group'.
.emacs-my
--- a/.emacs-my	Sun Sep 11 15:06:41 2016 +0300
+++ b/.emacs-my	Sun Sep 11 15:26:25 2016 +0300
@@ -1994,12 +1994,12 @@
 ;; Remember when I visit group last time.
 (add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
 
+(defvar gnus-tmp-group)
 (defun gnus-user-format-function-d (header)
   (let ((time (gnus-group-timestamp gnus-tmp-group)))
     (if (and time (time-less-p (time-subtract (current-time) time) (seconds-to-time (* 3600 24 7 30 2))))
         (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")