From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 8 Feb 2021 06:11:52 +0000 (+0100)
Subject: Fix noninteractive gnus-article-press-button
X-Git-Tag: emacs-28.0.90~3878
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efb10ffdb75ba61353b3451797e0214ac2f03171;p=emacs.git

Fix noninteractive gnus-article-press-button

* lisp/gnus/gnus-art.el (gnus-article-press-button): Make the `b'
summary mode command work again.
---

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 70ededf1ba1..7ded9e40e99 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -7894,7 +7894,8 @@ If the text at point has a `gnus-callback' property,
 call it with the value of the `gnus-data' text property."
   (interactive (list last-nonmenu-event))
   (save-excursion
-    (mouse-set-point event)
+    (when event
+      (mouse-set-point event))
     (let ((fun (get-text-property (point) 'gnus-callback)))
       (when fun
         (funcall fun (get-text-property (point) 'gnus-data))))))