display-time-mail-icon '(image :type xpm
:file "gnus/gnus-pointer.xpm"
:ascent center)
- display-time-use-mail-icon t)
+ display-time-use-mail-icon t
+ zoneinfo-style-world-list
+ `(,@zoneinfo-style-world-list
+ ("Etc/UTC" "UTC")
+ ("Asia/Tehran" "Tehran")
+ ("Australia/Melbourne" "Melbourne")))
(display-time-mode))
(run-with-idle-timer 0.1 nil #'require 'battery)