M gnu/local.mk => gnu/local.mk +2 -0
@@ 1230,6 1230,8 @@ dist_patch_DATA = \
%D%/packages/patches/emacs-eglot-x-fix-apply-text-edits.patch \
%D%/packages/patches/emacs-exec-path.patch \
%D%/packages/patches/emacs-fix-scheme-indent-function.patch \
+ %D%/packages/patches/emacs-gnus-desktop-notify-fix-notifications.patch \
+ %D%/packages/patches/emacs-gnus-desktop-notify-rescan.patch \
%D%/packages/patches/emacs-helpful-fix-signature.patch \
%D%/packages/patches/emacs-helpful-fix-tests.patch \
%D%/packages/patches/emacs-highlight-stages-add-gexp.patch \
M gnu/packages/emacs-xyz.scm => gnu/packages/emacs-xyz.scm +37 -0
@@ 37736,6 37736,43 @@ message.
@end itemize")
(license license:gpl2+)))
+(define-public emacs-gnus-desktop-notify
+ (package
+ (name "emacs-gnus-desktop-notify")
+ (version "20180623.1538")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://gitlab.com/wavexx/gnus-desktop-notify.el.git")
+ (commit "24588a3e024b204d930480fdc8bca31426f4e846")))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "06gxqlhfrc9ykq8v7qhxsr4w8hwyv1jkrifpp0kqjhf7idv96010"))
+ (patches
+ (search-patches
+ "emacs-gnus-desktop-notify-fix-notifications.patch"
+ "emacs-gnus-desktop-notify-rescan.patch"))))
+ (build-system emacs-build-system)
+ (home-page
+ "http://www.thregr.org/~wavexx/software/gnus-desktop-notify.el/")
+ (synopsis "Gnus desktop notification global minor mode")
+ (description
+ "@code{gnus-desktop-notify} provides a simple mechanism to notify the
+user when new messages are received. To get started, place the following
+configuration snippet in your @file{~/.gnus.el} configuration file:
+@lisp
+(require 'gnus-desktop-notify)
+(gnus-desktop-notify-mode)
+(gnus-demon-add-rescan)
+;; Alternatively, configure the period and idle times specifically, e.g.:
+;; (gnus-demon-add-handler 'gnus-demon-scan-news 10 1)
+@end lisp
+The above causes Gnus to scan all configured groups every two 2 hours when
+Emacs has been idle for 1 hour, with desktop notifications emitted for new
+messages received.")
+ (license license:gpl3+)))
+
(define-public emacs-ox-epub
(package
(name "emacs-ox-epub")
A gnu/packages/patches/emacs-gnus-desktop-notify-fix-notifications.patch => gnu/packages/patches/emacs-gnus-desktop-notify-fix-notifications.patch +76 -0
@@ 0,0 1,76 @@
+Upstream status: https://gitlab.com/wavexx/gnus-desktop-notify.el/-/merge_requests/15
+
+From 905e7ea41560783ec723aa0167911ba050f91789 Mon Sep 17 00:00:00 2001
+From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
+Date: Mon, 16 Jun 2025 09:24:07 +0900
+Subject: [PATCH] Revert to use the notifications library by default.
+
+The alert library project itself mentions that:
+
+ For desktop notifications, the notifications package that is
+ installed with emacs, provides a probably better alternative for
+ most users.
+
+and it appears true, as by default `alert' simply print notification
+messages to the `*Messages*' buffer, which is not exactly a desktop
+notification.
+
+* gnus-desktop-notify.el (require): Require notifications first,
+falling back to alert.
+(gnus-desktop-notify-function): Test for the notifications feature
+first. Mention `notifications' is the default in its doc.
+---
+ gnus-desktop-notify.el | 15 ++++++++++-----
+ 1 file changed, 10 insertions(+), 5 deletions(-)
+
+diff --git a/gnus-desktop-notify.el b/gnus-desktop-notify.el
+index 97e65f3..a12e444 100644
+--- a/gnus-desktop-notify.el
++++ b/gnus-desktop-notify.el
+@@ -26,6 +26,11 @@
+
+ ;;; Change Log:
+
++;; 1.5:
++;; * Revert to use the `notifications' library by default if
++;; available. The `alert' library doesn't do anything useful in its
++;; default configuration.
++;;
+ ;; 1.4:
+ ;; * Use `alert' package by default if available (`gnus-desktop-notify-alert').
+ ;;
+@@ -83,8 +88,8 @@
+ (require 'format-spec)
+ (require 'gnus-group)
+
+-(unless (require 'alert nil t)
+- (require 'notifications nil t))
++(unless (require 'notifications nil t)
++ (require 'alert nil t))
+
+ (declare-function alert "alert")
+ (declare-function notifications-notify "notifications")
+@@ -96,8 +101,8 @@
+ :group 'gnus)
+
+ (defcustom gnus-desktop-notify-function
+- (cond ((featurep 'alert) 'gnus-desktop-notify-alert)
+- ((featurep 'notifications) 'gnus-desktop-notify-dbus)
++ (cond ((featurep 'notifications) 'gnus-desktop-notify-dbus)
++ ((featurep 'alert) 'gnus-desktop-notify-alert)
+ (t 'gnus-desktop-notify-send))
+ "Notification backend used when a group receives new messages.
+ The backend is passed the notification content as a single,
+@@ -109,8 +114,8 @@ or fallback to the generic `gnus-desktop-notify-send' otherwise.
+
+ The following functions are available (whose documentation see):
+
++`gnus-desktop-notify-dbus': Use the `notifications' library (default).
+ `gnus-desktop-notify-alert': Use the `alert' library.
+-`gnus-desktop-notify-dbus': Use the `notifications' library.
+ `gnus-desktop-notify-send': Call the `notify-send' program.
+ `gnus-desktop-notify-exec': Call a customizable program."
+ :type 'function)
+--
+GitLab
+
A gnu/packages/patches/emacs-gnus-desktop-notify-rescan.patch => gnu/packages/patches/emacs-gnus-desktop-notify-rescan.patch +37 -0
@@ 0,0 1,37 @@
+Upstream-status: https://gitlab.com/wavexx/gnus-desktop-notify.el/-/merge_requests/16
+
+diff --git a/README.rst b/README.rst
+index 4cacdcb..150a2c2 100644
+--- a/README.rst
++++ b/README.rst
+@@ -18,7 +18,7 @@ new messages are received. For basic usage, to be used in conjunction with
+
+ (require 'gnus-desktop-notify)
+ (gnus-desktop-notify-mode)
+- (gnus-demon-add-scanmail)
++ (gnus-demon-add-rescan)
+
+ into your ``.gnus`` file. The default is to use alert_ if available, which
+ works on every operating system and allows the user to customize the
+@@ -52,7 +52,7 @@ follows:
+ (setq gnus-desktop-notify-function 'gnus-desktop-notify-exec
+ gnus-desktop-notify-exec-program "growlnotify -a Emacs.app -m")
+ (gnus-desktop-notify-mode)
+- (gnus-demon-add-scanmail)
++ (gnus-demon-add-rescan)
+
+
+ Advanced setup
+diff --git a/gnus-desktop-notify.el b/gnus-desktop-notify.el
+index 97e65f3..3153807 100644
+--- a/gnus-desktop-notify.el
++++ b/gnus-desktop-notify.el
+@@ -50,7 +50,7 @@
+ ;;
+ ;; (require 'gnus-desktop-notify)
+ ;; (gnus-desktop-notify-mode)
+-;; (gnus-demon-add-scanmail)
++;; (gnus-demon-add-rescan)
+ ;;
+ ;; into your ``.gnus`` file. The default is to use `alert' if available, which
+ ;; works on every operating system and allows the user to customize the