- lowered permancence of notification when updating timelines;

- fixed managing of editor arguments.

src/os-utils.lisp

@@ -67,14 +67,17 @@
 (defun open-with-editor (file)
   (multiple-value-bind (exe args)
       (external-editor)
-    (sb-ext:run-program exe
+    (let ((actual-args (if args
-                        (append (list args)
+                           (list args)
-                                (list file))
+                           nil)))
-                        :search t
+      (sb-ext:run-program exe
-                        :wait   t
+                          (append actual-args
-                        :input  t
+                                  (list file))
-                        :output t
+                          :search t
-                        :error  t)))
+                          :wait   t
+                          :input  t
+                          :output t
+                          :error  t))))
 
 (defun exit-program (&optional (exit-code 0))
   (uiop:quit exit-code))

src/ui-goodies.lisp

@@ -585,11 +585,11 @@ and if fetch local (again, to server) statuses only."
   (let ((event (make-instance 'function-event :payload event-payload-function)))
     (notify (_ "Downloading messages.")
             :priority +maximum-event-priority+
-            :life     (* (swconf:config-notification-life) 5))
+            :life     (swconf:config-notification-life))
     (push-event event)
     (notify (_ "Messages downloaded.")
             :priority +minimum-event-priority+
-            :life     (* (swconf:config-notification-life) 5))))
+            :life     (swconf:config-notification-life))))
 
 (defun update-current-timeline (&optional (recover-count 0))
   "Update current timeline