.emacs-my
changeset 897 1979b76d6f6b
parent 896 cb9551a0ce9a
child 898 5cf5a1df2fb8
equal deleted inserted replaced
896:cb9551a0ce9a 897:1979b76d6f6b
  1396     (organization "At home.")
  1396     (organization "At home.")
  1397     (signature-file "~/.signature")
  1397     (signature-file "~/.signature")
  1398     )
  1398     )
  1399    ))
  1399    ))
  1400 
  1400 
  1401 ;; `gnus-group-line-format', `gnus-summary-line-format',
  1401 ;; `gnus-summary-line-format',
  1402 ;; `gnus-server-line-format', `gnus-topic-line-format',
  1402 ;; `gnus-server-line-format', `gnus-topic-line-format',
  1403 ;; `gnus-group-mode-line-format', `gnus-summary-mode-line-format',
  1403 ;; `gnus-group-mode-line-format', `gnus-summary-mode-line-format',
  1404 ;; `gnus-article-mode-line-format', `gnus-server-mode-line-format',
  1404 ;; `gnus-article-mode-line-format', `gnus-server-mode-line-format',
  1405 ;; `gnus-summary-pick-line-format'.
  1405 ;; `gnus-summary-pick-line-format'.
  1406 
  1406 
  1418 (setq gnus-summary-line-format "%U%R%z %&user-date; %B %[%-22,22f%] %s\n")
  1418 (setq gnus-summary-line-format "%U%R%z %&user-date; %B %[%-22,22f%] %s\n")
  1419 (setq gnus-summary-mode-line-format "Gnus: %p %Z")
  1419 (setq gnus-summary-mode-line-format "Gnus: %p %Z")
  1420 
  1420 
  1421 (setq gnus-article-time-format "%Y-%m-%d %T%z %a")
  1421 (setq gnus-article-time-format "%Y-%m-%d %T%z %a")
  1422 (setq gnus-article-date-headers '(combined-lapsed user-defined))
  1422 (setq gnus-article-date-headers '(combined-lapsed user-defined))
       
  1423 
       
  1424 ;; Remember when I visit group last time.
       
  1425 (add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
       
  1426 
       
  1427 (defun gnus-user-format-function-d (header)
       
  1428   (let ((time (gnus-group-timestamp gnus-tmp-group)))
       
  1429     (if time
       
  1430         (format-time-string "%Y-%m-%d %H:%M" time)
       
  1431       "")))
       
  1432 
       
  1433 ;; %d (or with user defined format %ud) shown when I visit group last time in
       
  1434 ;; %*Group* buffer.
       
  1435 (setq gnus-group-line-format "%M%S%p%P%6y:%B%(%-50,50G%)%3O %ud\n")
  1423 
  1436 
  1424 ;; gnus-visible-headers
  1437 ;; gnus-visible-headers
  1425 (setq
  1438 (setq
  1426  gnus-sorted-header-list
  1439  gnus-sorted-header-list
  1427  '(
  1440  '(