Function: gnus-article-push-button

gnus-article-push-button is an interactive and byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-article-push-button EVENT)

Documentation

Check text under the mouse pointer for a callback function.

If the text under the mouse pointer has a gnus-callback property, call it with the value of the gnus-data text property.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
;;; Commands:

(defun gnus-article-push-button (event)
  "Check text under the mouse pointer for a callback function.
If the text under the mouse pointer has a `gnus-callback' property,
call it with the value of the `gnus-data' text property."
  (interactive "e" gnus-article-mode)
  (set-buffer (window-buffer (posn-window (event-start event))))
  (let* ((pos (posn-point (event-start event)))
	 (data (get-text-property pos 'gnus-data))
	 (fun (get-text-property pos 'gnus-callback)))
    (goto-char pos)
    (when fun
      (funcall fun data))))