gnus-html.el: prefix log messages with function name

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 43a8195623cf26ca1ded7b9efe647da8ea62484b..1edc8247fd058125e6acb2837dbab437fd3d87e3 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2010-09-01  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-html.el (gnus-html-wash-tags)
+       (gnus-html-schedule-image-fetching, gnus-html-image-url-blocked-p):
+       Better logging.
+
 2010-09-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-html.el (gnus-html-wash-tags): Check the value of

diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el
index 00454665cad45916a5f00ec49ae754e17e4b2a25..9e85937577e2ea8d496703c67e441ef179e26d41 100644 (file)
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/gnus-html.el
@@ -119,7 +119,7 @@ fit these criteria."
        ((equal tag "img_alt")
         (when (string-match "src=\"\\([^\"]+\\)" parameters)
          (setq url (match-string 1 parameters))
-          (gnus-message 8 "Fetching image URL %s" url)
+          (gnus-message 8 "gnus-html-wash-tags: fetching image URL %s" url)
          (if (string-match "^cid:\\(.*\\)" url)
              ;; URLs with cid: have their content stashed in other
              ;; parts of the MIME structure, so just insert them
@@ -160,7 +160,7 @@ fit these criteria."
            (equal tag "A"))
        (when (string-match "href=\"\\([^\"]+\\)" parameters)
          (setq url (match-string 1 parameters))
-          (gnus-message 8 "Fetching link URL %s" url)
+          (gnus-message 8 "gnus-html-wash-tags: fetching link URL %s" url)
          (gnus-article-add-button start end
                                   'browse-url url
                                   url)
@@ -186,7 +186,8 @@ fit these criteria."
       (gnus-html-schedule-image-fetching (current-buffer) (nreverse images)))))
 
 (defun gnus-html-schedule-image-fetching (buffer images)
-  (gnus-message 8 "Scheduling image fetching in buffer %s, images %s" buffer images)
+  (gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, images %s"
+                buffer images)
   (let* ((url (caar images))
         (process (start-process
                   "images" nil "curl"
@@ -294,8 +295,11 @@ fit these criteria."
 "Find out if URL is blocked by BLOCKED-IMAGES."
   (let ((ret (and blocked-images
                   (string-match blocked-images url))))
-    (when ret
-      (gnus-message 8 "Image URL %s is blocked by gnus-blocked-images regex %s" url blocked-images))
+    (if ret
+        (gnus-message 8 "gnus-html-image-url-blocked-p: %s blocked by regex %s"
+                      url blocked-images)
+      (gnus-message 9 "gnus-html-image-url-blocked-p: %s passes regex %s"
+                    url blocked-images))
     ret))
 
 ;;;###autoload