Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
46cd3028
Commit
46cd3028
authored
May 16, 2013
by
Julien Danjou
Committed by
Katsumi Yamaoka
May 16, 2013
Browse files
gnus-notifications.el (gnus-notifications-notify): Use photo-file as app-icon
parent
04d360e7
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
4 deletions
+9
-4
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+5
-0
lisp/gnus/gnus-notifications.el
lisp/gnus/gnus-notifications.el
+4
-4
No files found.
lisp/gnus/ChangeLog
View file @
46cd3028
2013-05-16 Julien Danjou <julien@danjou.info>
* gnus-notifications.el (gnus-notifications-notify): Use photo-file as
app-icon.
2013-05-15 Glenn Morris <rgm@gnu.org>
* shr-color.el (shr-color-visible-luminance-min)
...
...
lisp/gnus/gnus-notifications.el
View file @
46cd3028
...
...
@@ -92,12 +92,12 @@ Return a notification id if any, or t on success."
:body
subject
:actions
'
(
"read"
"Read"
)
:on-action
'gnus-notifications-action
:app-icon
(
gnus-funcall-no-warning
'image-search-load-path
"gnus/gnus.png"
)
:app-icon
(
or
photo-file
(
gnus-funcall-no-warning
'image-search-load-path
"gnus/gnus.png"
))
:app-name
"Gnus"
:category
"email.arrived"
:timeout
gnus-notifications-timeout
:image-path
photo-file
)
:timeout
gnus-notifications-timeout
)
(
message
"New message from %s: %s"
from
subject
)
;; Don't return an id
t
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment