# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1286613852 0
# Node ID d98a67277730868e291e9a0a276595ce57f96717
# Parent  4e0e3c2c342cc6cf5711d12dd1dac61bb66203c4
shr,el: Allow shr table char to be customized.
gnus-gravatar.el (gnus-gravatar-transform-address): Error errors when retrieving gravatars.

diff -r 4e0e3c2c342c -r d98a67277730 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sat Oct 09 04:22:17 2010 +0000
+++ b/lisp/gnus/ChangeLog	Sat Oct 09 08:44:12 2010 +0000
@@ -1,3 +1,12 @@
+2010-10-09  Julien Danjou  <julien@danjou.info>
+
+	* gnus-gravatar.el (gnus-gravatar-transform-address): Error errors when
+	retrieving gravatars.
+
+	* shr.el (shr-table-corner): Add.
+	(shr-table-line): Add.
+	(shr-insert-table-ruler): Use the above defcustoms to insert tables.
+
 2010-10-08  Julien Danjou  <julien@danjou.info>
 
 	* mm-decode.el (mm-text-html-renderer): Add mm-shr in choice list.
diff -r 4e0e3c2c342c -r d98a67277730 lisp/gnus/gnus-gravatar.el
--- a/lisp/gnus/gnus-gravatar.el	Sat Oct 09 04:22:17 2010 +0000
+++ b/lisp/gnus/gnus-gravatar.el	Sat Oct 09 08:44:12 2010 +0000
@@ -68,10 +68,11 @@
 			   (and (cdr address)
 				(string-match gnus-gravatar-too-ugly
 					      (cdr address)))))
-	    (gravatar-retrieve
-	     (car address)
-	     'gnus-gravatar-insert
-	     (list header address category))))))))
+	    (ignore-errors
+              (gravatar-retrieve
+               (car address)
+               'gnus-gravatar-insert
+               (list header address category)))))))))
 
 (defun gnus-gravatar-insert (gravatar header address category)
   "Insert GRAVATAR for ADDRESS in HEADER in current article buffer.
diff -r 4e0e3c2c342c -r d98a67277730 lisp/gnus/shr.el
--- a/lisp/gnus/shr.el	Sat Oct 09 04:22:17 2010 +0000
+++ b/lisp/gnus/shr.el	Sat Oct 09 08:44:12 2010 +0000
@@ -53,6 +53,16 @@
   :group 'shr
   :type 'regexp)
 
+(defcustom shr-table-line ?-
+  "Character used to draw table line."
+  :group 'shr
+  :type 'char)
+
+(defcustom shr-table-corner ?+
+  "Charater used to draw table corner."
+  :group 'shr
+  :type 'char)
+
 (defvar shr-content-function nil
   "If bound, this should be a function that will return the content.
 This is used for cid: URLs, and the function is called with the
@@ -532,9 +542,9 @@
 
 (defun shr-insert-table-ruler (widths)
   (shr-indent)
-  (insert "+")
+  (insert shr-table-corner)
   (dotimes (i (length widths))
-    (insert (make-string (aref widths i) ?-) ?+))
+    (insert (make-string (aref widths i) shr-table-line) shr-table-corner))
   (insert "\n"))
 
 (defun shr-table-widths (table suggested-widths)