(gnus-article-copy-string): Say what data we copied.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ae82d2..1fda7c4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-09-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-art.el (gnus-article-copy-string): Say what data we copied.
+
        * nnmh.el (nnmh-request-list-1): Optimize for speed.
 
 2010-09-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 944e65d..bfdb9bd 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -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: