Mercurial > emacs

comparison lisp/gnus/gnus-art.el @ 23608:3805e63b8caf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-button-embedded-url, gnus-button-url): Don't funcall browse-url-browser-function.
author Dave Love <fx@gnu.org>
date Sun, 01 Nov 1998 16:58:49 +0000
parents 86b5dc6c12f5
children 15fc6acbae7a
comparison
equal deleted inserted replaced
23607:6b2444d06348 23608:3805e63b8caf
3055 ;; Reply to ADDRESS. 3055 ;; Reply to ADDRESS.
3056 (message-reply address)) 3056 (message-reply address))
3057 3057
3058 (defun gnus-button-url (address) 3058 (defun gnus-button-url (address)
3059 "Browse ADDRESS." 3059 "Browse ADDRESS."
3060 (funcall browse-url-browser-function address)) 3060 (browse-url address))
3061 3061
3062 (defun gnus-button-embedded-url (address) 3062 (defun gnus-button-embedded-url (address)
3063 "Browse ADDRESS." 3063 "Browse ADDRESS."
3064 (funcall browse-url-browser-function (gnus-strip-whitespace address))) 3064 (browse-url (gnus-strip-whitespace address)))
3065 3065
3066 ;;; Next/prev buttons in the article buffer. 3066 ;;; Next/prev buttons in the article buffer.
3067 3067
3068 (defvar gnus-next-page-line-format "%{%(Next page...%)%}\n") 3068 (defvar gnus-next-page-line-format "%{%(Next page...%)%}\n")
3069 (defvar gnus-prev-page-line-format "%{%(Previous page...%)%}\n") 3069 (defvar gnus-prev-page-line-format "%{%(Previous page...%)%}\n")