mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

[Gnus] Silence XEmacs compilation warnings

Browse Source
This commit is contained in:
Lars Ingebrigtsen 2012-09-03 22:12:02 +00:00 committed by Katsumi Yamaoka
parent d42f4f0fb3
commit 8a8507e9b7
3 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/gnus/ChangeLog
View File

@ -1,3 +1,12 @@
2012-09-03 Lars Ingebrigtsen <larsi@gnus.org>
* dgnushack.el: XEmacs 21.5 compilation fix.
* gnus-notifications.el (gnus-notifications-notify): Use it.
* gnus-fun.el (gnus-funcall-no-warning): New function to silence
warnings on XEmacs.
2012-09-01 Paul Eggert <eggert@cs.ucla.edu>
Better seeds for (random).

4
lisp/gnus/gnus-fun.el
View File

@ -278,6 +278,10 @@ colors of the displayed X-Faces."
values))
(mapconcat 'identity values " ")))
(defun gnus-funcall-no-warning (function &rest args)
(when (fboundp function)
(apply function args)))
(provide 'gnus-fun)
;;; gnus-fun.el ends here

16
lisp/gnus/gnus-notifications.el
View File

@ -29,13 +29,16 @@
;;; Code:
(require 'notifications nil t)
(ignore-errors
(require 'notifications))
(require 'gnus-sum)
(require 'gnus-group)
(require 'gnus-int)
(require 'gnus-art)
(require 'gnus-util)
(require 'google-contacts nil t) ; Optional
(ignore-errors
(require 'google-contacts)) ; Optional
(require 'gnus-fun)
(defgroup gnus-notifications nil
"Send notifications on new message in Gnus."
@ -81,12 +84,14 @@ not get notifications."
"Send a notification about a new mail.
Return a notification id if any, or t on success."
(if (fboundp 'notifications-notify)
(notifications-notify
(gnus-funcall-no-warning
'notifications-notify
:title from
:body subject
:actions '("read" "Read")
:on-action 'gnus-notifications-action
:app-icon (image-search-load-path "gnus/gnus.png")
:app-icon (gnus-funcall-no-warning
'image-search-load-path "gnus/gnus.png")
:app-name "Gnus"
:category "email.arrived"
:timeout gnus-notifications-timeout
@ -100,7 +105,8 @@ Return a notification id if any, or t on success."
(let ((google-photo (when (and gnus-notifications-use-google-contacts
(fboundp 'google-contacts-get-photo))
(ignore-errors
(google-contacts-get-photo mail-address)))))
(gnus-funcall-no-warning
'google-contacts-get-photo mail-address)))))
(if google-photo
google-photo
(when gnus-notifications-use-gravatar