X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=7e51abb564e1ac30ffff9a20f31eb6b96130de10;hp=944e65dfe8e5c810f643e7ca8e97ad81ebac8ace;hb=06e3d74faa6b1196f0a7b877acc1bb6b6c1563a8;hpb=e1b848fcba366dd05d7065358927b7740449906c

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 944e65dfe..7e51abb56 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6406,7 +6406,7 @@ not have a face in `gnus-article-boring-faces'."
 (defun gnus-article-describe-briefly ()
   "Describe article mode commands briefly."
   (interactive)
-  (gnus-message 6 (substitute-command-keys "\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page	 \\[gnus-article-goto-prev-page]:Prev page  \\[gnus-article-show-summary]:Show summary  \\[gnus-info-find-node]:Run Info  \\[gnus-article-describe-briefly]:This help")))
+  (gnus-message 6 "%s" (substitute-command-keys "\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page	 \\[gnus-article-goto-prev-page]:Prev page  \\[gnus-article-show-summary]:Show summary  \\[gnus-info-find-node]:Run Info  \\[gnus-article-describe-briefly]:This help")))
 
 (defun gnus-article-check-buffer ()
   "Beep if not in an article buffer."
@@ -7949,7 +7949,8 @@ url is put as the `gnus-button-url' overlay property on the button."
     (when data
       (with-temp-buffer
 	(insert data)
-	(copy-region-as-kill (point-min) (point-max))))))
+	(copy-region-as-kill (point-min) (point-max))
+	(message "Copied %s" data)))))
 
 ;;; Internal functions: