gnus-notifications: add defcustom for timeout

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aad8bf6..925f98a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-08-30  Julien Danjou  <julien@danjou.info>
+
+       * gnus-notifications.el (gnus-notifications-notify): Use timeout from
+       `gnus-notifications-timeout'.
+       (gnus-notifications-timeout): Add.
+
 2012-08-29  Julien Danjou  <julien@danjou.info>
 
        * gnus-notifications.el: New file.

diff --git a/lisp/gnus-notifications.el b/lisp/gnus-notifications.el
index 8811b47..1c517c2 100644 (file)
--- a/lisp/gnus-notifications.el
+++ b/lisp/gnus-notifications.el
@@ -58,6 +58,11 @@ not get notifications."
   :type 'integer
   :group 'gnus-notifications)
 
+(defcustom gnus-notifications-timeout nil
+  "Timeout used for notifications sent via `notifications-notify'."
+  :type 'integer
+  :group 'gnus-notifications)
+
 (defvar gnus-notifications-sent nil
   "Notifications already sent.")
 
@@ -70,6 +75,7 @@ not get notifications."
        :app-icon (image-search-load-path "gnus/gnus.png")
        :app-name "Gnus"
        :category "email.arrived"
+       :timeout gnus-notifications-timeout
        :image-path photo-file)
     (message "New message from %s: %s" from subject)))