Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)

2014-08-11  Ulf Jasper  <ulf.jasper@web.de>

	Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)

	* net/newst-treeview.el (newsticker-treeview-date-format): New.
	(newsticker--treeview-list-add-item): Use `newsticker-treeview-date-format'.

2 files changed, 16 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index daf9f28d8fc..2d7597e1971 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2014-08-11  Ulf Jasper  <ulf.jasper@web.de>
+
+        Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)
+
+        * net/newst-treeview.el (newsticker-treeview-date-format): New.
+        (newsticker--treeview-list-add-item): Use `newsticker-treeview-date-format'.
+
 2014-08-11  Glenn Morris  <rgm@gnu.org>
 
         * files.el (basic-save-buffer-2): Revert 2013-01-31 change, which
diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 4b96a8bc3cc..acca575877a 100644
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -83,6 +83,14 @@
   "Face for newsticker selection."
   :group 'newsticker-treeview)
 
+(defcustom newsticker-treeview-date-format
+  "%d.%m.%y, %H:%M"
+  "Format for the date column in the treeview list buffer.
+See `format-time-string' for a list of valid specifiers."
+  :version "24.5"
+  :type 'string
+  :group 'newsticker-treeview)
+
 (defcustom newsticker-treeview-own-frame
   nil
   "Decides whether newsticker treeview creates and uses its own frame."
@@ -307,7 +315,7 @@ If string SHOW-FEED is non-nil it is shown in the item string."
                     0 10)
                    (propertize " " 'display '(space :align-to 12)))
                 ""))
-      (insert (format-time-string "%d.%m.%y, %H:%M"
+      (insert (format-time-string newsticker-treeview-date-format
                                   (newsticker--time item)))
       (insert (propertize " " 'display
                           (list 'space :align-to (if show-feed 28 18))))