[elpa] externals/rt-liberation d143f91 09/15: * rt-liberation.el: better descriptors

[Yoni Rabkin]

branch: externals/rt-liberation
commit d143f911f8e8c442da505cda25cdf30b17b09ec3
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * rt-liberation.el: better descriptors
    
    Use the Description field for non-communication sections.
---
 rt-liberation.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/rt-liberation.el b/rt-liberation.el
index 40c11cc..6c1da8d 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1446,6 +1446,7 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
        (creator   (alist-get 'Creator section))
        (date      (alist-get 'Created section))
        (type      (alist-get 'Type section))
+       (desc      (alist-get 'Description section))
        (oldvalue  (alist-get 'OldValue section))
        (newvalue  (alist-get 'NewValue section))
        (field     (alist-get 'Field section))
@@ -1476,14 +1477,12 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
       (add-text-properties start
                           (point)
                           `(rt-liberation-section-data ,section))
-      (cond ((string= type "Status")
+      (cond ((or (string= type "Status")
+                (string= type "SetWatcher")
+                (string= type "Set")
+                (string= type "AddLink"))
             (insert
-             (format "\n    Status change from %s to %s\n\n" oldvalue 
newvalue)))
-           ((and (string= type "Set")
-                 (string= field "Owner")
-                 (string= oldvalue "10"))
-            (insert
-             (format "\n    Ticket assigned\n\n")))
+             (format "\n    %s\n\n" desc)))
            ;; catch-all
            (t
             (insert