From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/78710
Path: news.gmane.org!not-for-mail
From: Eric S Fraga <e.fraga@ucl.ac.uk>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: problem reading gwene feeds in gnus agent
Date: Thu, 05 May 2011 08:46:56 +0100
Message-ID: <87y62l4mp7.fsf@ucl.ac.uk>
References: <87iptr91us.fsf@ucl.ac.uk>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
X-Trace: dough.gmane.org 1304584731 755 80.91.229.12 (5 May 2011 08:38:51 GMT)
X-Complaints-To: usenet@dough.gmane.org
NNTP-Posting-Date: Thu, 5 May 2011 08:38:51 +0000 (UTC)
To: ding@gnus.org
Original-X-From: ding-owner+M27012@lists.math.uh.edu Thu May 05 10:38:43 2011
Return-path: <ding-owner+M27012@lists.math.uh.edu>
Envelope-to: ding-account@gmane.org
Original-Received: from util0.math.uh.edu ([129.7.128.18])
	by lo.gmane.org with esmtp (Exim 4.69)
	(envelope-from <ding-owner+M27012@lists.math.uh.edu>)
	id 1QHu52-0003oU-81
	for ding-account@gmane.org; Thu, 05 May 2011 10:38:43 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by util0.math.uh.edu with smtp (Exim 4.63)
	(envelope-from <ding-owner+M27012@lists.math.uh.edu>)
	id 1QHu4Y-0002dv-UN; Thu, 05 May 2011 03:38:11 -0500
Original-Received: from mx2.math.uh.edu ([129.7.128.33])
	by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256)
	(Exim 4.63)
	(envelope-from <e.fraga@ucl.ac.uk>)
	id 1QHu4W-0002di-IN
	for ding@lists.math.uh.edu; Thu, 05 May 2011 03:38:08 -0500
Original-Received: from quimby.gnus.org ([80.91.231.51])
	by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256)
	(Exim 4.72)
	(envelope-from <e.fraga@ucl.ac.uk>)
	id 1QHu4Q-0000Bw-I9
	for ding@lists.math.uh.edu; Thu, 05 May 2011 03:38:10 -0500
Original-Received: from vscani-b2.ucl.ac.uk ([144.82.108.135])
	by quimby.gnus.org with esmtp (Exim 4.72)
	(envelope-from <e.fraga@ucl.ac.uk>)
	id 1QHu4L-0007Lo-04
	for ding@gnus.org; Thu, 05 May 2011 10:37:57 +0200
Original-Received: from dip057.chemeng.ucl.ac.uk ([128.40.228.156] helo=localhost)
	by vscani-b.ucl.ac.uk with esmtpsa (TLSv1:AES128-SHA:128)
	(Exim 4.72)
	(envelope-from <e.fraga@ucl.ac.uk>)
	id 1QHu47-0001c3-Os
	for ding@gnus.org; Thu, 05 May 2011 09:37:44 +0100
In-Reply-To: <87iptr91us.fsf@ucl.ac.uk> (Eric S. Fraga's message of "Tue, 03
	May 2011 17:43:53 +0100")
User-Agent: Gnus/5.110018 (No Gnus v0.18) Emacs/24.0.50 (gnu/linux)
X-Face: av6A"vZ{AypDB`d^.T35oG%$E*Qh]4F)K=*$-NHz5{7WZfAFQFB]F@gf}l9`XLs9(iD?D/!
 nafKE,S#G!4W/flj=9(U{]t'lP,,5~:s*~;kKR
Mail-Followup-To: ding@gnus.org
X-UCL-MailScanner-Information: Please contact the UCL Helpdesk, helpdesk@ucl.ac.uk for more information
X-UCL-MailScanner: Found to be clean
X-UCL-MailScanner-From: e.fraga@ucl.ac.uk
X-Spam-Status: No
X-Spam-Score: -4.9 (----)
List-ID: <ding.gnus.org>
Precedence: bulk
Xref: news.gmane.org gmane.emacs.gnus.general:78710
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.general/78710>

... continuing problems with reading HTML emails in development gnus:

I mentioned a couple of days ago problems reading gwene postings; I also
have more generally problems reading HTML content emails when offline
using the gnus agent.  If there is alternative content, I can access the
text version (which is the default in my case) but not the HTML version.
Some emails have no text alternative and, in those cases, I get:

,----
| not: Wrong type argument: listp, shr-link
`----

The backtrace is:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument listp shr-link)
  memq(:foreground shr-link)
  (not (memq type old-props))
  (let* ((old-props (get-text-property start (quote face))) (do-put (not (m=
emq type old-props))) change) (while (< start end) (setq change (next-singl=
e-property-change start (quote face) nil end)) (when do-put (put-text-prope=
rty start change (quote face) (nconc (list type color) old-props))) (setq o=
ld-props (get-text-property change (quote face))) (setq do-put (not (memq t=
ype old-props))) (setq start change)) (when (and do-put (> end start)) (put=
-text-property start end (quote face) (nconc (list type color old-props)))))
  shr-put-color-1(2 6 :foreground "#014099")
  (progn (shr-put-color-1 (point) (min (line-end-position) end) type color))
  (if (> (line-end-position) (point)) (progn (shr-put-color-1 (point) (min =
(line-end-position) end) type color)))
  (when (> (line-end-position) (point)) (shr-put-color-1 (point) (min (line=
-end-position) end) type color))
  (while (< (point) end) (when (and (bolp) (not (eq type :background))) (sk=
ip-chars-forward " ")) (when (> (line-end-position) (point)) (shr-put-color=
-1 (point) (min (line-end-position) end) type color)) (if (< (line-end-posi=
tion) end) (forward-line 1) (goto-char end)))
  (save-excursion (goto-char start) (while (< (point) end) (when (and (bolp=
) (not (eq type :background))) (skip-chars-forward " ")) (when (> (line-end=
-position) (point)) (shr-put-color-1 (point) (min (line-end-position) end) =
type color)) (if (< (line-end-position) end) (forward-line 1) (goto-char en=
d))) (when (and (eq type :background) (=3D shr-table-depth 0)) (shr-expand-=
newlines start end color)))
  shr-put-color(1 6 :foreground "#014099")
  (progn (shr-put-color start end :foreground (cadr new-colors)))
  (if fg (progn (shr-put-color start end :foreground (cadr new-colors))))
  (when fg (shr-put-color start end :foreground (cadr new-colors)))
  (progn (when fg (shr-put-color start end :foreground (cadr new-colors))) =
(when bg (shr-put-color start end :background (car new-colors))))
  (if new-colors (progn (when fg (shr-put-color start end :foreground (cadr=
 new-colors))) (when bg (shr-put-color start end :background (car new-color=
s)))))
  (when new-colors (when fg (shr-put-color start end :foreground (cadr new-=
colors))) (when bg (shr-put-color start end :background (car new-colors))))
  (let ((new-colors (shr-color-check fg bg))) (when new-colors (when fg (sh=
r-put-color start end :foreground (cadr new-colors))) (when bg (shr-put-col=
or start end :background (car new-colors)))) new-colors)
  (progn (let ((new-colors (shr-color-check fg bg))) (when new-colors (when=
 fg (shr-put-color start end :foreground (cadr new-colors))) (when bg (shr-=
put-color start end :background (car new-colors)))) new-colors))
  (if (or fg bg) (progn (let ((new-colors (shr-color-check fg bg))) (when n=
ew-colors (when fg (shr-put-color start end :foreground (cadr new-colors)))=
 (when bg (shr-put-color start end :background (car new-colors)))) new-colo=
rs)))
  (when (or fg bg) (let ((new-colors (shr-color-check fg bg))) (when new-co=
lors (when fg (shr-put-color start end :foreground (cadr new-colors))) (whe=
n bg (shr-put-color start end :background (car new-colors)))) new-colors))
  shr-colorize-region(1 6 "#014099" nil)
  (progn (shr-colorize-region start (point) (cdr (assq (quote color) shr-st=
ylesheet)) (cdr (assq (quote background-color) shr-stylesheet))))
  (if style (progn (shr-colorize-region start (point) (cdr (assq (quote col=
or) shr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
  (when style (shr-colorize-region start (point) (cdr (assq (quote color) s=
hr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet))))
  (let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarr=
ay)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) =
(start (point))) (when style (if (string-match "color" style) (setq shr-sty=
lesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))) =
(if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom))=
) (when style (shr-colorize-region start (point) (cdr (assq (quote color) s=
hr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
  shr-descend((a (:style . "font-size: 11px; color:#014099; font-family:Ari=
al, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink=
2?page=3Dhttp://www.genscript.com/molecular_biology_service.html?src=3Demai=
l201104197&logId=3D992404&resourceId=3D435") (text . "Gene")))
  (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr s=
ub)) (shr-descend sub)))
  (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq =
(car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-des=
cend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp-- (setq sub =
(car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (c=
dr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (=
cdr --cl-dolist-temp--))) nil)
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- cont) sub) (whi=
le --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car s=
ub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend s=
ub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp=
-- cont) sub) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--))=
 (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr su=
b)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))=
 nil)))
  (block nil (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp--=
 (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (sh=
r-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-doli=
st-temp-- (cdr --cl-dolist-temp--))) nil))
  (dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr su=
b))) ((listp (cdr sub)) (shr-descend sub))))
  shr-generic(((:align . "center") (a (:style . "font-size: 11px; color:#01=
4099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi=
-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/molecular_biology_se=
rvice.html?src=3Demail201104197&logId=3D992404&resourceId=3D435") (text . "=
Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-f=
amily:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology=
/pagelink2?page=3Dhttp://www.genscript.com/protein_service.html?src=3Demail=
201104197&logId=3D992404&resourceId=3D436") (text . "Protein")) (text . " |=
 ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvet=
ica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dh=
ttp://www.genscript.com/peptide_overview.html?src=3Demail201104197&logId=3D=
992404&resourceId=3D437") (text . "Peptide")) (text . " | ") (a (:style . "=
font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "ht=
tp://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscrip=
t.com/antibody.html?src=3Demail201104197&logId=3D992404&resourceId=3D438") =
(text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#0=
14099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cg=
i-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cell_line_services.=
html?src=3Demail201104197&logId=3D992404&resourceId=3D439") (text . "Cell l=
ine")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-fa=
mily:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/=
pagelink2?page=3Dhttp://www.genscript.com/bio-assay_center.html?src=3Demail=
201104197&logId=3D992404&resourceId=3D440") (text . "Bio-Assay")) (text . "=
 | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helv=
etica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=
=3Dhttp://www.genscript.com/products.html?src=3Demail201104197&logId=3D9924=
04&resourceId=3D441") (text . "Products")) (text . " | ") (a (:style . "fon=
t-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http:=
//www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.c=
om/promotions.html?src=3Demail201104197&logId=3D992404&resourceId=3D442") (=
text . "Promotions")) (text . " ")))
  shr-tag-div(((:align . "center") (a (:style . "font-size: 11px; color:#01=
4099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi=
-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/molecular_biology_se=
rvice.html?src=3Demail201104197&logId=3D992404&resourceId=3D435") (text . "=
Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-f=
amily:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology=
/pagelink2?page=3Dhttp://www.genscript.com/protein_service.html?src=3Demail=
201104197&logId=3D992404&resourceId=3D436") (text . "Protein")) (text . " |=
 ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvet=
ica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dh=
ttp://www.genscript.com/peptide_overview.html?src=3Demail201104197&logId=3D=
992404&resourceId=3D437") (text . "Peptide")) (text . " | ") (a (:style . "=
font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "ht=
tp://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscrip=
t.com/antibody.html?src=3Demail201104197&logId=3D992404&resourceId=3D438") =
(text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#0=
14099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cg=
i-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cell_line_services.=
html?src=3Demail201104197&logId=3D992404&resourceId=3D439") (text . "Cell l=
ine")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-fa=
mily:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/=
pagelink2?page=3Dhttp://www.genscript.com/bio-assay_center.html?src=3Demail=
201104197&logId=3D992404&resourceId=3D440") (text . "Bio-Assay")) (text . "=
 | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helv=
etica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=
=3Dhttp://www.genscript.com/products.html?src=3Demail201104197&logId=3D9924=
04&resourceId=3D441") (text . "Products")) (text . " | ") (a (:style . "fon=
t-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http:=
//www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.c=
om/promotions.html?src=3Demail201104197&logId=3D992404&resourceId=3D442") (=
text . "Promotions")) (text . " ")))
  funcall(shr-tag-div ((:align . "center") (a (:style . "font-size: 11px; c=
olor:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript=
.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/molecular_bi=
ology_service.html?src=3Demail201104197&logId=3D992404&resourceId=3D435") (=
text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099=
; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin=
/biology/pagelink2?page=3Dhttp://www.genscript.com/protein_service.html?src=
=3Demail201104197&logId=3D992404&resourceId=3D436") (text . "Protein")) (te=
xt . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial=
, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?=
page=3Dhttp://www.genscript.com/peptide_overview.html?src=3Demail201104197&=
logId=3D992404&resourceId=3D437") (text . "Peptide")) (text . " | ") (a (:s=
tyle . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:hr=
ef . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.=
genscript.com/antibody.html?src=3Demail201104197&logId=3D992404&resourceId=
=3D438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px;=
 color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscri=
pt.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cell_line_=
services.html?src=3Demail201104197&logId=3D992404&resourceId=3D439") (text =
. "Cell line")) (text . " | ") (a (:style . "font-size: 11px; color:#014099=
; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin=
/biology/pagelink2?page=3Dhttp://www.genscript.com/bio-assay_center.html?sr=
c=3Demail201104197&logId=3D992404&resourceId=3D440") (text . "Bio-Assay")) =
(text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Ar=
ial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelin=
k2?page=3Dhttp://www.genscript.com/products.html?src=3Demail201104197&logId=
=3D992404&resourceId=3D441") (text . "Products")) (text . " | ") (a (:style=
 . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href .=
 "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gens=
cript.com/promotions.html?src=3Demail201104197&logId=3D992404&resourceId=3D=
442") (text . "Promotions")) (text . " ")))
  (if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom=
)))
  (let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarr=
ay)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) =
(start (point))) (when style (if (string-match "color" style) (setq shr-sty=
lesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))) =
(if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom))=
) (when style (shr-colorize-region start (point) (cdr (assq (quote color) s=
hr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
  shr-descend((div (:align . "center") (a (:style . "font-size: 11px; color=
:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com=
/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/molecular_biolog=
y_service.html?src=3Demail201104197&logId=3D992404&resourceId=3D435") (text=
 . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; fo=
nt-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/bio=
logy/pagelink2?page=3Dhttp://www.genscript.com/protein_service.html?src=3De=
mail201104197&logId=3D992404&resourceId=3D436") (text . "Protein")) (text .=
 " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, He=
lvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=
=3Dhttp://www.genscript.com/peptide_overview.html?src=3Demail201104197&logI=
d=3D992404&resourceId=3D437") (text . "Peptide")) (text . " | ") (a (:style=
 . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href .=
 "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gens=
cript.com/antibody.html?src=3Demail201104197&logId=3D992404&resourceId=3D43=
8") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; colo=
r:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.co=
m/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cell_line_servi=
ces.html?src=3Demail201104197&logId=3D992404&resourceId=3D439") (text . "Ce=
ll line")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; fon=
t-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biol=
ogy/pagelink2?page=3Dhttp://www.genscript.com/bio-assay_center.html?src=3De=
mail201104197&logId=3D992404&resourceId=3D440") (text . "Bio-Assay")) (text=
 . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, =
Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pa=
ge=3Dhttp://www.genscript.com/products.html?src=3Demail201104197&logId=3D99=
2404&resourceId=3D441") (text . "Products")) (text . " | ") (a (:style . "f=
ont-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "htt=
p://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript=
.com/promotions.html?src=3Demail201104197&logId=3D992404&resourceId=3D442")=
 (text . "Promotions")) (text . " ")))
  (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr s=
ub)) (shr-descend sub)))
  (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq =
(car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-des=
cend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp-- (setq sub =
(car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (c=
dr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (=
cdr --cl-dolist-temp--))) nil)
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- cont) sub) (whi=
le --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car s=
ub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend s=
ub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp=
-- cont) sub) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--))=
 (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr su=
b)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))=
 nil)))
  (block nil (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp--=
 (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (sh=
r-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-doli=
st-temp-- (cdr --cl-dolist-temp--))) nil))
  (dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr su=
b))) ((listp (cdr sub)) (shr-descend sub))))
  shr-generic(((:style . "font-size: 11px; color:#014099; font-family:Arial=
, Helvetica") (div (:align . "center") (a (:style . "font-size: 11px; color=
:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com=
/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/molecular_biolog=
y_service.html?src=3Demail201104197&logId=3D992404&resourceId=3D435") (text=
 . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; fo=
nt-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/bio=
logy/pagelink2?page=3Dhttp://www.genscript.com/protein_service.html?src=3De=
mail201104197&logId=3D992404&resourceId=3D436") (text . "Protein")) (text .=
 " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, He=
lvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=
=3Dhttp://www.genscript.com/peptide_overview.html?src=3Demail201104197&logI=
d=3D992404&resourceId=3D437") (text . "Peptide")) (text . " | ") (a (:style=
 . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href .=
 "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gens=
cript.com/antibody.html?src=3Demail201104197&logId=3D992404&resourceId=3D43=
8") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; colo=
r:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.co=
m/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cell_line_servi=
ces.html?src=3Demail201104197&logId=3D992404&resourceId=3D439") (text . "Ce=
ll line")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; fon=
t-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biol=
ogy/pagelink2?page=3Dhttp://www.genscript.com/bio-assay_center.html?src=3De=
mail201104197&logId=3D992404&resourceId=3D440") (text . "Bio-Assay")) (text=
 . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, =
Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pa=
ge=3Dhttp://www.genscript.com/products.html?src=3Demail201104197&logId=3D99=
2404&resourceId=3D441") (text . "Products")) (text . " | ") (a (:style . "f=
ont-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "htt=
p://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript=
.com/promotions.html?src=3Demail201104197&logId=3D992404&resourceId=3D442")=
 (text . "Promotions")) (text . " "))))
  (if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom=
)))
  (let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarr=
ay)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) =
(start (point))) (when style (if (string-match "color" style) (setq shr-sty=
lesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))) =
(if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom))=
) (when style (shr-colorize-region start (point) (cdr (assq (quote color) s=
hr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
  shr-descend((td (:style . "font-size: 11px; color:#014099; font-family:Ar=
ial, Helvetica") (div (:align . "center") (a (:style . "font-size: 11px; co=
lor:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.=
com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/molecular_bio=
logy_service.html?src=3Demail201104197&logId=3D992404&resourceId=3D435") (t=
ext . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099;=
 font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/=
biology/pagelink2?page=3Dhttp://www.genscript.com/protein_service.html?src=
=3Demail201104197&logId=3D992404&resourceId=3D436") (text . "Protein")) (te=
xt . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial=
, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?=
page=3Dhttp://www.genscript.com/peptide_overview.html?src=3Demail201104197&=
logId=3D992404&resourceId=3D437") (text . "Peptide")) (text . " | ") (a (:s=
tyle . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:hr=
ef . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.=
genscript.com/antibody.html?src=3Demail201104197&logId=3D992404&resourceId=
=3D438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px;=
 color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscri=
pt.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cell_line_=
services.html?src=3Demail201104197&logId=3D992404&resourceId=3D439") (text =
. "Cell line")) (text . " | ") (a (:style . "font-size: 11px; color:#014099=
; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin=
/biology/pagelink2?page=3Dhttp://www.genscript.com/bio-assay_center.html?sr=
c=3Demail201104197&logId=3D992404&resourceId=3D440") (text . "Bio-Assay")) =
(text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Ar=
ial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelin=
k2?page=3Dhttp://www.genscript.com/products.html?src=3Demail201104197&logId=
=3D992404&resourceId=3D441") (text . "Products")) (text . " | ") (a (:style=
 . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href .=
 "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gens=
cript.com/promotions.html?src=3Demail201104197&logId=3D992404&resourceId=3D=
442") (text . "Promotions")) (text . " "))))
  (let ((shr-width width) (shr-indentation 0)) (shr-descend (cons (quote td=
) cont)))
  (if cache (progn (insert (car cache)) (let ((end (length (car cache)))) (=
dolist (overlay (cadr cache)) (let ((new-overlay (make-overlay ... ...)) (p=
roperties (nth 2 overlay))) (while properties (overlay-put new-overlay (pop=
 properties) (pop properties))))))) (let ((shr-width width) (shr-indentatio=
n 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) (+ (poin=
t) (skip-chars-backward " 	\n"))) (push (list (cons width cont) (buffer-str=
ing) (shr-overlays-in-region (point-min) (point-max))) shr-content-cache))
  (let ((cache (cdr (assoc (cons width cont) shr-content-cache)))) (if cach=
e (progn (insert (car cache)) (let ((end (length (car cache)))) (dolist (ov=
erlay (cadr cache)) (let ((new-overlay ...) (properties ...)) (while proper=
ties (overlay-put new-overlay ... ...)))))) (let ((shr-width width) (shr-in=
dentation 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) =
(+ (point) (skip-chars-backward " 	\n"))) (push (list (cons width cont) (bu=
ffer-string) (shr-overlays-in-region (point-min) (point-max))) shr-content-=
cache)))
  (let ((bgcolor (cdr (assq :bgcolor cont))) (fgcolor (cdr (assq :fgcolor c=
ont))) (style (cdr (assq :style cont))) (shr-stylesheet shr-stylesheet) ove=
rlays actual-colors) (when style (setq style (and (string-match "color" sty=
le) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons=
 (quote background-color) bgcolor)) style))) (when fgcolor (setq style (nco=
nc (list (cons (quote color) fgcolor)) style))) (when style (setq shr-style=
sheet (append style shr-stylesheet))) (let ((cache (cdr (assoc (cons width =
cont) shr-content-cache)))) (if cache (progn (insert (car cache)) (let ((en=
d (length ...))) (dolist (overlay (cadr cache)) (let (... ...) (while prope=
rties ...))))) (let ((shr-width width) (shr-indentation 0)) (shr-descend (c=
ons (quote td) cont))) (delete-region (point) (+ (point) (skip-chars-backwa=
rd " 	\n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in=
-region (point-min) (point-max))) shr-content-cache))) (goto-char (point-mi=
n)) (let ((max 0)) (while (not (eobp)) (end-of-line) (setq max (max max (cu=
rrent-column))) (forward-line 1)) (when fill (goto-char (point-min)) (if (z=
erop (buffer-size)) (insert (make-string width 32)) (while (not (eobp)) (en=
d-of-line) (when (> (- width ...) 0) (insert (make-string ... 32))) (forwar=
d-line 1))) (when style (setq actual-colors (shr-colorize-region (point-min=
) (point-max) (cdr (assq ... shr-stylesheet)) (cdr (assq ... shr-stylesheet=
)))))) (if fill (list max (count-lines (point-min) (point-max)) (split-stri=
ng (buffer-string) "\n") (shr-collect-overlays) (car actual-colors)) (list =
max (shr-natural-width)))))
  (progn (let ((bgcolor (cdr (assq :bgcolor cont))) (fgcolor (cdr (assq :fg=
color cont))) (style (cdr (assq :style cont))) (shr-stylesheet shr-styleshe=
et) overlays actual-colors) (when style (setq style (and (string-match "col=
or" style) (shr-parse-style style)))) (when bgcolor (setq style (nconc (lis=
t (cons (quote background-color) bgcolor)) style))) (when fgcolor (setq sty=
le (nconc (list (cons (quote color) fgcolor)) style))) (when style (setq sh=
r-stylesheet (append style shr-stylesheet))) (let ((cache (cdr (assoc (cons=
 width cont) shr-content-cache)))) (if cache (progn (insert (car cache)) (l=
et ((end ...)) (dolist (overlay ...) (let ... ...)))) (let ((shr-width widt=
h) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (delete-regio=
n (point) (+ (point) (skip-chars-backward " 	\n"))) (push (list (cons width=
 cont) (buffer-string) (shr-overlays-in-region (point-min) (point-max))) sh=
r-content-cache))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp=
)) (end-of-line) (setq max (max max (current-column))) (forward-line 1)) (w=
hen fill (goto-char (point-min)) (if (zerop (buffer-size)) (insert (make-st=
ring width 32)) (while (not (eobp)) (end-of-line) (when (> ... 0) (insert .=
..)) (forward-line 1))) (when style (setq actual-colors (shr-colorize-regio=
n (point-min) (point-max) (cdr ...) (cdr ...))))) (if fill (list max (count=
-lines (point-min) (point-max)) (split-string (buffer-string) "\n") (shr-co=
llect-overlays) (car actual-colors)) (list max (shr-natural-width))))))
  (unwind-protect (progn (let ((bgcolor (cdr (assq :bgcolor cont))) (fgcolo=
r (cdr (assq :fgcolor cont))) (style (cdr (assq :style cont))) (shr-stylesh=
eet shr-stylesheet) overlays actual-colors) (when style (setq style (and (s=
tring-match "color" style) (shr-parse-style style)))) (when bgcolor (setq s=
tyle (nconc (list (cons ... bgcolor)) style))) (when fgcolor (setq style (n=
conc (list (cons ... fgcolor)) style))) (when style (setq shr-stylesheet (a=
ppend style shr-stylesheet))) (let ((cache (cdr (assoc ... shr-content-cach=
e)))) (if cache (progn (insert (car cache)) (let (...) (dolist ... ...))) (=
let ((shr-width width) (shr-indentation 0)) (shr-descend (cons ... cont))) =
(delete-region (point) (+ (point) (skip-chars-backward " 	\n"))) (push (lis=
t (cons width cont) (buffer-string) (shr-overlays-in-region ... ...)) shr-c=
ontent-cache))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp)) =
(end-of-line) (setq max (max max (current-column))) (forward-line 1)) (when=
 fill (goto-char (point-min)) (if (zerop (buffer-size)) (insert (make-strin=
g width 32)) (while (not ...) (end-of-line) (when ... ...) (forward-line 1)=
)) (when style (setq actual-colors (shr-colorize-region ... ... ... ...))))=
 (if fill (list max (count-lines (point-min) (point-max)) (split-string (bu=
ffer-string) "\n") (shr-collect-overlays) (car actual-colors)) (list max (s=
hr-natural-width)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buf=
fer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let=
 ((bgcolor (cdr (assq :bgcolor cont))) (fgcolor (cdr (assq :fgcolor cont)))=
 (style (cdr (assq :style cont))) (shr-stylesheet shr-stylesheet) overlays =
actual-colors) (when style (setq style (and (string-match "color" style) (s=
hr-parse-style style)))) (when bgcolor (setq style (nconc (list ...) style)=
)) (when fgcolor (setq style (nconc (list ...) style))) (when style (setq s=
hr-stylesheet (append style shr-stylesheet))) (let ((cache (cdr ...))) (if =
cache (progn (insert ...) (let ... ...)) (let (... ...) (shr-descend ...)) =
(delete-region (point) (+ ... ...)) (push (list ... ... ...) shr-content-ca=
che))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp)) (end-of-l=
ine) (setq max (max max ...)) (forward-line 1)) (when fill (goto-char (poin=
t-min)) (if (zerop ...) (insert ...) (while ... ... ... ...)) (when style (=
setq actual-colors ...))) (if fill (list max (count-lines ... ...) (split-s=
tring ... "\n") (shr-collect-overlays) (car actual-colors)) (list max (shr-=
natural-width)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer=
))))
  (with-current-buffer temp-buffer (unwind-protect (progn (let ((bgcolor (c=
dr (assq :bgcolor cont))) (fgcolor (cdr (assq :fgcolor cont))) (style (cdr =
(assq :style cont))) (shr-stylesheet shr-stylesheet) overlays actual-colors=
) (when style (setq style (and (string-match "color" style) (shr-parse-styl=
e style)))) (when bgcolor (setq style (nconc (list ...) style))) (when fgco=
lor (setq style (nconc (list ...) style))) (when style (setq shr-stylesheet=
 (append style shr-stylesheet))) (let ((cache (cdr ...))) (if cache (progn =
(insert ...) (let ... ...)) (let (... ...) (shr-descend ...)) (delete-regio=
n (point) (+ ... ...)) (push (list ... ... ...) shr-content-cache))) (goto-=
char (point-min)) (let ((max 0)) (while (not (eobp)) (end-of-line) (setq ma=
x (max max ...)) (forward-line 1)) (when fill (goto-char (point-min)) (if (=
zerop ...) (insert ...) (while ... ... ... ...)) (when style (setq actual-c=
olors ...))) (if fill (list max (count-lines ... ...) (split-string ... "\n=
") (shr-collect-overlays) (car actual-colors)) (list max (shr-natural-width=
)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer=
 temp-buffer (unwind-protect (progn (let ((bgcolor (cdr ...)) (fgcolor (cdr=
 ...)) (style (cdr ...)) (shr-stylesheet shr-stylesheet) overlays actual-co=
lors) (when style (setq style (and ... ...))) (when bgcolor (setq style (nc=
onc ... style))) (when fgcolor (setq style (nconc ... style))) (when style =
(setq shr-stylesheet (append style shr-stylesheet))) (let ((cache ...)) (if=
 cache (progn ... ...) (let ... ...) (delete-region ... ...) (push ... shr-=
content-cache))) (goto-char (point-min)) (let ((max 0)) (while (not ...) (e=
nd-of-line) (setq max ...) (forward-line 1)) (when fill (goto-char ...) (if=
 ... ... ...) (when style ...)) (if fill (list max ... ... ... ...) (list m=
ax ...))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (with-temp-buffer (let ((bgcolor (cdr (assq :bgcolor cont))) (fgcolor (cd=
r (assq :fgcolor cont))) (style (cdr (assq :style cont))) (shr-stylesheet s=
hr-stylesheet) overlays actual-colors) (when style (setq style (and (string=
-match "color" style) (shr-parse-style style)))) (when bgcolor (setq style =
(nconc (list (cons (quote background-color) bgcolor)) style))) (when fgcolo=
r (setq style (nconc (list (cons (quote color) fgcolor)) style))) (when sty=
le (setq shr-stylesheet (append style shr-stylesheet))) (let ((cache (cdr (=
assoc (cons width cont) shr-content-cache)))) (if cache (progn (insert (car=
 cache)) (let ((end ...)) (dolist (overlay ...) (let ... ...)))) (let ((shr=
-width width) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (d=
elete-region (point) (+ (point) (skip-chars-backward " 	\n"))) (push (list =
(cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (poin=
t-max))) shr-content-cache))) (goto-char (point-min)) (let ((max 0)) (while=
 (not (eobp)) (end-of-line) (setq max (max max (current-column))) (forward-=
line 1)) (when fill (goto-char (point-min)) (if (zerop (buffer-size)) (inse=
rt (make-string width 32)) (while (not (eobp)) (end-of-line) (when (> ... 0=
) (insert ...)) (forward-line 1))) (when style (setq actual-colors (shr-col=
orize-region (point-min) (point-max) (cdr ...) (cdr ...))))) (if fill (list=
 max (count-lines (point-min) (point-max)) (split-string (buffer-string) "\=
n") (shr-collect-overlays) (car actual-colors)) (list max (shr-natural-widt=
h))))))
  shr-render-td(((:style . "font-size: 11px; color:#014099; font-family:Ari=
al, Helvetica") (div (:align . "center") (a (:style . "font-size: 11px; col=
or:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.c=
om/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/molecular_biol=
ogy_service.html?src=3Demail201104197&logId=3D992404&resourceId=3D435") (te=
xt . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; =
font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/b=
iology/pagelink2?page=3Dhttp://www.genscript.com/protein_service.html?src=
=3Demail201104197&logId=3D992404&resourceId=3D436") (text . "Protein")) (te=
xt . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial=
, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?=
page=3Dhttp://www.genscript.com/peptide_overview.html?src=3Demail201104197&=
logId=3D992404&resourceId=3D437") (text . "Peptide")) (text . " | ") (a (:s=
tyle . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:hr=
ef . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.=
genscript.com/antibody.html?src=3Demail201104197&logId=3D992404&resourceId=
=3D438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px;=
 color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscri=
pt.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cell_line_=
services.html?src=3Demail201104197&logId=3D992404&resourceId=3D439") (text =
. "Cell line")) (text . " | ") (a (:style . "font-size: 11px; color:#014099=
; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin=
/biology/pagelink2?page=3Dhttp://www.genscript.com/bio-assay_center.html?sr=
c=3Demail201104197&logId=3D992404&resourceId=3D440") (text . "Bio-Assay")) =
(text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Ar=
ial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelin=
k2?page=3Dhttp://www.genscript.com/products.html?src=3Demail201104197&logId=
=3D992404&resourceId=3D441") (text . "Products")) (text . " | ") (a (:style=
 . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href .=
 "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gens=
cript.com/promotions.html?src=3Demail201104197&logId=3D992404&resourceId=3D=
442") (text . "Promotions")) (text . " "))) 48 nil)
  (cons (shr-render-td (cdr column) (aref widths i) fill) tds)
  (setq tds (cons (shr-render-td (cdr column) (aref widths i) fill) tds))
  (push (shr-render-td (cdr column) (aref widths i) fill) tds)
  (progn (push (shr-render-td (cdr column) (aref widths i) fill) tds) (setq=
 i (1+ i)))
  (if (or (memq (car column) (quote (td th))) (null column)) (progn (push (=
shr-render-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i))))
  (when (or (memq (car column) (quote (td th))) (null column)) (push (shr-r=
ender-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i)))
  (while (< i (length widths)) (setq column (pop columns)) (when (or (memq =
(car column) (quote (td th))) (null column)) (push (shr-render-td (cdr colu=
mn) (aref widths i) fill) tds) (setq i (1+ i))))
  (let ((tds nil) (columns (cdr row)) (i 0) column) (while (< i (length wid=
ths)) (setq column (pop columns)) (when (or (memq (car column) (quote (td t=
h))) (null column)) (push (shr-render-td (cdr column) (aref widths i) fill)=
 tds) (setq i (1+ i)))) (push (nreverse tds) trs))
  (progn (let ((tds nil) (columns (cdr row)) (i 0) column) (while (< i (len=
gth widths)) (setq column (pop columns)) (when (or (memq (car column) (quot=
e (td th))) (null column)) (push (shr-render-td (cdr column) (aref widths i=
) fill) tds) (setq i (1+ i)))) (push (nreverse tds) trs)))
  (if (eq (car row) (quote tr)) (progn (let ((tds nil) (columns (cdr row)) =
(i 0) column) (while (< i (length widths)) (setq column (pop columns)) (whe=
n (or (memq (car column) (quote ...)) (null column)) (push (shr-render-td (=
cdr column) (aref widths i) fill) tds) (setq i (1+ i)))) (push (nreverse td=
s) trs))))
  (when (eq (car row) (quote tr)) (let ((tds nil) (columns (cdr row)) (i 0)=
 column) (while (< i (length widths)) (setq column (pop columns)) (when (or=
 (memq (car column) (quote (td th))) (null column)) (push (shr-render-td (c=
dr column) (aref widths i) fill) tds) (setq i (1+ i)))) (push (nreverse tds=
) trs)))
  (while --cl-dolist-temp-- (setq row (car --cl-dolist-temp--)) (when (eq (=
car row) (quote tr)) (let ((tds nil) (columns (cdr row)) (i 0) column) (whi=
le (< i (length widths)) (setq column (pop columns)) (when (or (memq (car c=
olumn) (quote ...)) (null column)) (push (shr-render-td (cdr column) (aref =
widths i) fill) tds) (setq i (1+ i)))) (push (nreverse tds) trs))) (setq --=
cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- cont) row) (while --cl-dolist-temp-- (setq row =
(car --cl-dolist-temp--)) (when (eq (car row) (quote tr)) (let ((tds nil) (=
columns (cdr row)) (i 0) column) (while (< i (length widths)) (setq column =
(pop columns)) (when (or (memq ... ...) (null column)) (push (shr-render-td=
 ... ... fill) tds) (setq i (1+ i)))) (push (nreverse tds) trs))) (setq --c=
l-dolist-temp-- (cdr --cl-dolist-temp--))) nil)
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- cont) row) (whi=
le --cl-dolist-temp-- (setq row (car --cl-dolist-temp--)) (when (eq (car ro=
w) (quote tr)) (let ((tds nil) (columns (cdr row)) (i 0) column) (while (< =
i (length widths)) (setq column (pop columns)) (when (or ... ...) (push ...=
 tds) (setq i ...))) (push (nreverse tds) trs))) (setq --cl-dolist-temp-- (=
cdr --cl-dolist-temp--))) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp=
-- cont) row) (while --cl-dolist-temp-- (setq row (car --cl-dolist-temp--))=
 (when (eq (car row) (quote tr)) (let ((tds nil) (columns ...) (i 0) column=
) (while (< i ...) (setq column ...) (when ... ... ...)) (push (nreverse td=
s) trs))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil)))
  (block nil (let ((--cl-dolist-temp-- cont) row) (while --cl-dolist-temp--=
 (setq row (car --cl-dolist-temp--)) (when (eq (car row) (quote tr)) (let (=
(tds nil) (columns (cdr row)) (i 0) column) (while (< i (length widths)) (s=
etq column (pop columns)) (when (or ... ...) (push ... tds) (setq i ...))) =
(push (nreverse tds) trs))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp-=
-))) nil))
  (dolist (row cont) (when (eq (car row) (quote tr)) (let ((tds nil) (colum=
ns (cdr row)) (i 0) column) (while (< i (length widths)) (setq column (pop =
columns)) (when (or (memq (car column) (quote ...)) (null column)) (push (s=
hr-render-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i)))) (pus=
h (nreverse tds) trs))))
  (let ((trs nil)) (dolist (row cont) (when (eq (car row) (quote tr)) (let =
((tds nil) (columns (cdr row)) (i 0) column) (while (< i (length widths)) (=
setq column (pop columns)) (when (or (memq ... ...) (null column)) (push (s=
hr-render-td ... ... fill) tds) (setq i (1+ i)))) (push (nreverse tds) trs)=
))) (nreverse trs))
  shr-make-table(((:width . "600") (:border . "0") (:cellspacing . "0") (:c=
ellpadding . "0") (tr (td (:height . "39") (div (:align . "center") (a (:hr=
ef . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.=
genscript.com?src=3Demail201104197&logId=3D992404&resourceId=3D433") (img (=
:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.=
genscript.com/e_images/LOGO.jpg&logId=3D992404") (:width . "153") (:height =
. "39") (:border . "0"))))) (text . "\n        ") (td (:style . "font-size:=
 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . "center=
") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helveti=
ca") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dht=
tp://www.genscript.com/molecular_biology_service.html?src=3Demail201104197&=
logId=3D992404&resourceId=3D435") (text . "Gene")) (text . " | ") (a (:styl=
e . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href =
. "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gen=
script.com/protein_service.html?src=3Demail201104197&logId=3D992404&resourc=
eId=3D436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11p=
x; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.gensc=
ript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/peptide_=
overview.html?src=3Demail201104197&logId=3D992404&resourceId=3D437") (text =
. "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; =
font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/b=
iology/pagelink2?page=3Dhttp://www.genscript.com/antibody.html?src=3Demail2=
01104197&logId=3D992404&resourceId=3D438") (text . "Antibody")) (text . " |=
 ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvet=
ica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dh=
ttp://www.genscript.com/cell_line_services.html?src=3Demail201104197&logId=
=3D992404&resourceId=3D439") (text . "Cell line")) (text . " | ") (a (:styl=
e . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href =
. "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gen=
script.com/bio-assay_center.html?src=3Demail201104197&logId=3D992404&resour=
ceId=3D440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: =
11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.ge=
nscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/produ=
cts.html?src=3Demail201104197&logId=3D992404&resourceId=3D441") (text . "Pr=
oducts")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font=
-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biolo=
gy/pagelink2?page=3Dhttp://www.genscript.com/promotions.html?src=3Demail201=
104197&logId=3D992404&resourceId=3D442") (text . "Promotions")) (text . " "=
))) (text . "\n      "))) [48 48])
  (let* ((shr-inhibit-images t) (shr-table-depth (1+ shr-table-depth)) (shr=
-kinsoku-shorten t) (columns (shr-column-specs cont)) (suggested-widths (sh=
r-pro-rate-columns columns)) (sketch (shr-make-table cont suggested-widths)=
) (sketch-widths (shr-table-widths sketch suggested-widths))) (when (> (+ (=
loop for width across sketch-widths summing (1+ width)) shr-indentation 1) =
(frame-width)) (setq truncate-lines t)) (shr-insert-table (shr-make-table c=
ont sketch-widths t) sketch-widths))
  shr-tag-table-1(((:width . "600") (:border . "0") (:cellspacing . "0") (:=
cellpadding . "0") (tr (td (:height . "39") (div (:align . "center") (a (:h=
ref . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www=
.genscript.com?src=3Demail201104197&logId=3D992404&resourceId=3D433") (img =
(:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www=
.genscript.com/e_images/LOGO.jpg&logId=3D992404") (:width . "153") (:height=
 . "39") (:border . "0"))))) (text . "\n        ") (td (:style . "font-size=
: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . "cente=
r") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvet=
ica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dh=
ttp://www.genscript.com/molecular_biology_service.html?src=3Demail201104197=
&logId=3D992404&resourceId=3D435") (text . "Gene")) (text . " | ") (a (:sty=
le . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href=
 . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.ge=
nscript.com/protein_service.html?src=3Demail201104197&logId=3D992404&resour=
ceId=3D436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11=
px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.gens=
cript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/peptide=
_overview.html?src=3Demail201104197&logId=3D992404&resourceId=3D437") (text=
 . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099;=
 font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/=
biology/pagelink2?page=3Dhttp://www.genscript.com/antibody.html?src=3Demail=
201104197&logId=3D992404&resourceId=3D438") (text . "Antibody")) (text . " =
| ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helve=
tica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3D=
http://www.genscript.com/cell_line_services.html?src=3Demail201104197&logId=
=3D992404&resourceId=3D439") (text . "Cell line")) (text . " | ") (a (:styl=
e . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href =
. "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gen=
script.com/bio-assay_center.html?src=3Demail201104197&logId=3D992404&resour=
ceId=3D440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: =
11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.ge=
nscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/produ=
cts.html?src=3Demail201104197&logId=3D992404&resourceId=3D441") (text . "Pr=
oducts")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font=
-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biolo=
gy/pagelink2?page=3Dhttp://www.genscript.com/promotions.html?src=3Demail201=
104197&logId=3D992404&resourceId=3D442") (text . "Promotions")) (text . " "=
))) (text . "\n      "))))
  (let* ((caption (cdr (assq (quote caption) cont))) (header (cdr (assq (qu=
ote thead) cont))) (body (or (cdr (assq (quote tbody) cont)) cont)) (footer=
 (cdr (assq (quote tfoot) cont))) (bgcolor (cdr (assq :bgcolor cont))) (sta=
rt (point)) (shr-stylesheet (nconc (list (cons (quote background-color) bgc=
olor)) shr-stylesheet)) (nheader (if header (shr-max-columns header))) (nbo=
dy (if body (shr-max-columns body))) (nfooter (if footer (shr-max-columns f=
ooter)))) (shr-tag-table-1 (nconc (if caption (\` ((tr (td ...))))) (if hea=
der (if footer (if (=3D nheader nbody) (if (=3D nbody nfooter) (\` ...) (nc=
onc ... ...)) (nconc (\` ...) (if ... ... ...))) (if (=3D nheader nbody) (\=
` (...)) (if (=3D nheader 1) (\` ...) (\` ...)))) (if footer (if (=3D nbody=
 nfooter) (\` (...)) (nconc (\` ...) (if ... footer ...))) (if caption (\` =
(...)) body))))) (when bgcolor (shr-colorize-region start (point) (cdr (ass=
q (quote color) shr-stylesheet)) bgcolor)))
  shr-tag-table(((:width . "600") (:border . "0") (:cellspacing . "0") (:ce=
llpadding . "0") (tr (td (:height . "39") (div (:align . "center") (a (:hre=
f . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.g=
enscript.com?src=3Demail201104197&logId=3D992404&resourceId=3D433") (img (:=
src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.g=
enscript.com/e_images/LOGO.jpg&logId=3D992404") (:width . "153") (:height .=
 "39") (:border . "0"))))) (text . "\n        ") (td (:style . "font-size: =
11px; color:#014099; font-family:Arial, Helvetica") (div (:align . "center"=
) (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetic=
a") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhtt=
p://www.genscript.com/molecular_biology_service.html?src=3Demail201104197&l=
ogId=3D992404&resourceId=3D435") (text . "Gene")) (text . " | ") (a (:style=
 . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href .=
 "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gens=
cript.com/protein_service.html?src=3Demail201104197&logId=3D992404&resource=
Id=3D436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px=
; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscr=
ipt.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/peptide_o=
verview.html?src=3Demail201104197&logId=3D992404&resourceId=3D437") (text .=
 "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; f=
ont-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/bi=
ology/pagelink2?page=3Dhttp://www.genscript.com/antibody.html?src=3Demail20=
1104197&logId=3D992404&resourceId=3D438") (text . "Antibody")) (text . " | =
") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helveti=
ca") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dht=
tp://www.genscript.com/cell_line_services.html?src=3Demail201104197&logId=
=3D992404&resourceId=3D439") (text . "Cell line")) (text . " | ") (a (:styl=
e . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href =
. "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gen=
script.com/bio-assay_center.html?src=3Demail201104197&logId=3D992404&resour=
ceId=3D440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: =
11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.ge=
nscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/produ=
cts.html?src=3Demail201104197&logId=3D992404&resourceId=3D441") (text . "Pr=
oducts")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font=
-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biolo=
gy/pagelink2?page=3Dhttp://www.genscript.com/promotions.html?src=3Demail201=
104197&logId=3D992404&resourceId=3D442") (text . "Promotions")) (text . " "=
))) (text . "\n      "))))
  funcall(shr-tag-table ((:width . "600") (:border . "0") (:cellspacing . "=
0") (:cellpadding . "0") (tr (td (:height . "39") (div (:align . "center") =
(a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp=
://www.genscript.com?src=3Demail201104197&logId=3D992404&resourceId=3D433")=
 (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp=
://www.genscript.com/e_images/LOGO.jpg&logId=3D992404") (:width . "153") (:=
height . "39") (:border . "0"))))) (text . "\n        ") (td (:style . "fon=
t-size: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . =
"center") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, =
Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pa=
ge=3Dhttp://www.genscript.com/molecular_biology_service.html?src=3Demail201=
104197&logId=3D992404&resourceId=3D435") (text . "Gene")) (text . " | ") (a=
 (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") =
(:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://=
www.genscript.com/protein_service.html?src=3Demail201104197&logId=3D992404&=
resourceId=3D436") (text . "Protein")) (text . " | ") (a (:style . "font-si=
ze: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://ww=
w.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/p=
eptide_overview.html?src=3Demail201104197&logId=3D992404&resourceId=3D437")=
 (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#0=
14099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cg=
i-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/antibody.html?src=
=3Demail201104197&logId=3D992404&resourceId=3D438") (text . "Antibody")) (t=
ext . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Aria=
l, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2=
?page=3Dhttp://www.genscript.com/cell_line_services.html?src=3Demail2011041=
97&logId=3D992404&resourceId=3D439") (text . "Cell line")) (text . " | ") (=
a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica")=
 (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp:/=
/www.genscript.com/bio-assay_center.html?src=3Demail201104197&logId=3D99240=
4&resourceId=3D440") (text . "Bio-Assay")) (text . " | ") (a (:style . "fon=
t-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http:=
//www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.c=
om/products.html?src=3Demail201104197&logId=3D992404&resourceId=3D441") (te=
xt . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#0140=
99; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-b=
in/biology/pagelink2?page=3Dhttp://www.genscript.com/promotions.html?src=3D=
email201104197&logId=3D992404&resourceId=3D442") (text . "Promotions")) (te=
xt . " "))) (text . "\n      "))))
  (if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom=
)))
  (let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarr=
ay)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) =
(start (point))) (when style (if (string-match "color" style) (setq shr-sty=
lesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))) =
(if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom))=
) (when style (shr-colorize-region start (point) (cdr (assq (quote color) s=
hr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
  shr-descend((table (:width . "600") (:border . "0") (:cellspacing . "0") =
(:cellpadding . "0") (tr (td (:height . "39") (div (:align . "center") (a (=
:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://w=
ww.genscript.com?src=3Demail201104197&logId=3D992404&resourceId=3D433") (im=
g (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://w=
ww.genscript.com/e_images/LOGO.jpg&logId=3D992404") (:width . "153") (:heig=
ht . "39") (:border . "0"))))) (text . "\n        ") (td (:style . "font-si=
ze: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . "cen=
ter") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helv=
etica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=
=3Dhttp://www.genscript.com/molecular_biology_service.html?src=3Demail20110=
4197&logId=3D992404&resourceId=3D435") (text . "Gene")) (text . " | ") (a (=
:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:=
href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://ww=
w.genscript.com/protein_service.html?src=3Demail201104197&logId=3D992404&re=
sourceId=3D436") (text . "Protein")) (text . " | ") (a (:style . "font-size=
: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.=
genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/pep=
tide_overview.html?src=3Demail201104197&logId=3D992404&resourceId=3D437") (=
text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014=
099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-=
bin/biology/pagelink2?page=3Dhttp://www.genscript.com/antibody.html?src=3De=
mail201104197&logId=3D992404&resourceId=3D438") (text . "Antibody")) (text =
. " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, H=
elvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pag=
e=3Dhttp://www.genscript.com/cell_line_services.html?src=3Demail201104197&l=
ogId=3D992404&resourceId=3D439") (text . "Cell line")) (text . " | ") (a (:=
style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:h=
ref . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www=
.genscript.com/bio-assay_center.html?src=3Demail201104197&logId=3D992404&re=
sourceId=3D440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-si=
ze: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://ww=
w.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/p=
roducts.html?src=3Demail201104197&logId=3D992404&resourceId=3D441") (text .=
 "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; =
font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/b=
iology/pagelink2?page=3Dhttp://www.genscript.com/promotions.html?src=3Demai=
l201104197&logId=3D992404&resourceId=3D442") (text . "Promotions")) (text .=
 " "))) (text . "\n      "))))
  (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr s=
ub)) (shr-descend sub)))
  (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq =
(car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-des=
cend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp-- (setq sub =
(car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (c=
dr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (=
cdr --cl-dolist-temp--))) nil)
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- cont) sub) (whi=
le --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car s=
ub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend s=
ub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp=
-- cont) sub) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--))=
 (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr su=
b)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))=
 nil)))
  (block nil (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp--=
 (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (sh=
r-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-doli=
st-temp-- (cdr --cl-dolist-temp--))) nil))
  (dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr su=
b))) ((listp (cdr sub)) (shr-descend sub))))
  shr-generic(((table (:width . "600") (:border . "0") (:cellspacing . "0")=
 (:cellpadding . "0") (tr (td (:height . "39") (div (:align . "center") (a =
(:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://=
www.genscript.com?src=3Demail201104197&logId=3D992404&resourceId=3D433") (i=
mg (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://=
www.genscript.com/e_images/LOGO.jpg&logId=3D992404") (:width . "153") (:hei=
ght . "39") (:border . "0"))))) (text . "\n        ") (td (:style . "font-s=
ize: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . "ce=
nter") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Hel=
vetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=
=3Dhttp://www.genscript.com/molecular_biology_service.html?src=3Demail20110=
4197&logId=3D992404&resourceId=3D435") (text . "Gene")) (text . " | ") (a (=
:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:=
href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://ww=
w.genscript.com/protein_service.html?src=3Demail201104197&logId=3D992404&re=
sourceId=3D436") (text . "Protein")) (text . " | ") (a (:style . "font-size=
: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.=
genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/pep=
tide_overview.html?src=3Demail201104197&logId=3D992404&resourceId=3D437") (=
text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014=
099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-=
bin/biology/pagelink2?page=3Dhttp://www.genscript.com/antibody.html?src=3De=
mail201104197&logId=3D992404&resourceId=3D438") (text . "Antibody")) (text =
. " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, H=
elvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pag=
e=3Dhttp://www.genscript.com/cell_line_services.html?src=3Demail201104197&l=
ogId=3D992404&resourceId=3D439") (text . "Cell line")) (text . " | ") (a (:=
style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:h=
ref . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www=
.genscript.com/bio-assay_center.html?src=3Demail201104197&logId=3D992404&re=
sourceId=3D440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-si=
ze: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://ww=
w.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/p=
roducts.html?src=3Demail201104197&logId=3D992404&resourceId=3D441") (text .=
 "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; =
font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/b=
iology/pagelink2?page=3Dhttp://www.genscript.com/promotions.html?src=3Demai=
l201104197&logId=3D992404&resourceId=3D442") (text . "Promotions")) (text .=
 " "))) (text . "\n      ")))))
  (if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom=
)))
  (let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarr=
ay)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) =
(start (point))) (when style (if (string-match "color" style) (setq shr-sty=
lesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))) =
(if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom))=
) (when style (shr-colorize-region start (point) (cdr (assq (quote color) s=
hr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
  shr-descend((td (table (:width . "600") (:border . "0") (:cellspacing . "=
0") (:cellpadding . "0") (tr (td (:height . "39") (div (:align . "center") =
(a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp=
://www.genscript.com?src=3Demail201104197&logId=3D992404&resourceId=3D433")=
 (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp=
://www.genscript.com/e_images/LOGO.jpg&logId=3D992404") (:width . "153") (:=
height . "39") (:border . "0"))))) (text . "\n        ") (td (:style . "fon=
t-size: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . =
"center") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, =
Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pa=
ge=3Dhttp://www.genscript.com/molecular_biology_service.html?src=3Demail201=
104197&logId=3D992404&resourceId=3D435") (text . "Gene")) (text . " | ") (a=
 (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") =
(:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://=
www.genscript.com/protein_service.html?src=3Demail201104197&logId=3D992404&=
resourceId=3D436") (text . "Protein")) (text . " | ") (a (:style . "font-si=
ze: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://ww=
w.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/p=
eptide_overview.html?src=3Demail201104197&logId=3D992404&resourceId=3D437")=
 (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#0=
14099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cg=
i-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/antibody.html?src=
=3Demail201104197&logId=3D992404&resourceId=3D438") (text . "Antibody")) (t=
ext . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Aria=
l, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2=
?page=3Dhttp://www.genscript.com/cell_line_services.html?src=3Demail2011041=
97&logId=3D992404&resourceId=3D439") (text . "Cell line")) (text . " | ") (=
a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica")=
 (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp:/=
/www.genscript.com/bio-assay_center.html?src=3Demail201104197&logId=3D99240=
4&resourceId=3D440") (text . "Bio-Assay")) (text . " | ") (a (:style . "fon=
t-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http:=
//www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.c=
om/products.html?src=3Demail201104197&logId=3D992404&resourceId=3D441") (te=
xt . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#0140=
99; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-b=
in/biology/pagelink2?page=3Dhttp://www.genscript.com/promotions.html?src=3D=
email201104197&logId=3D992404&resourceId=3D442") (text . "Promotions")) (te=
xt . " "))) (text . "\n      ")))))
  (let ((shr-width width) (shr-indentation 0)) (shr-descend (cons (quote td=
) cont)))
  (if cache (progn (insert (car cache)) (let ((end (length (car cache)))) (=
dolist (overlay (cadr cache)) (let ((new-overlay (make-overlay ... ...)) (p=
roperties (nth 2 overlay))) (while properties (overlay-put new-overlay (pop=
 properties) (pop properties))))))) (let ((shr-width width) (shr-indentatio=
n 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) (+ (poin=
t) (skip-chars-backward " 	\n"))) (push (list (cons width cont) (buffer-str=
ing) (shr-overlays-in-region (point-min) (point-max))) shr-content-cache))
  (let ((cache (cdr (assoc (cons width cont) shr-content-cache)))) (if cach=
e (progn (insert (car cache)) (let ((end (length (car cache)))) (dolist (ov=
erlay (cadr cache)) (let ((new-overlay ...) (properties ...)) (while proper=
ties (overlay-put new-overlay ... ...)))))) (let ((shr-width width) (shr-in=
dentation 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) =
(+ (point) (skip-chars-backward " 	\n"))) (push (list (cons width cont) (bu=
ffer-string) (shr-overlays-in-region (point-min) (point-max))) shr-content-=
cache)))
  (let ((bgcolor (cdr (assq :bgcolor cont))) (fgcolor (cdr (assq :fgcolor c=
ont))) (style (cdr (assq :style cont))) (shr-stylesheet shr-stylesheet) ove=
rlays actual-colors) (when style (setq style (and (string-match "color" sty=
le) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons=
 (quote background-color) bgcolor)) style))) (when fgcolor (setq style (nco=
nc (list (cons (quote color) fgcolor)) style))) (when style (setq shr-style=
sheet (append style shr-stylesheet))) (let ((cache (cdr (assoc (cons width =
cont) shr-content-cache)))) (if cache (progn (insert (car cache)) (let ((en=
d (length ...))) (dolist (overlay (cadr cache)) (let (... ...) (while prope=
rties ...))))) (let ((shr-width width) (shr-indentation 0)) (shr-descend (c=
ons (quote td) cont))) (delete-region (point) (+ (point) (skip-chars-backwa=
rd " 	\n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in=
-region (point-min) (point-max))) shr-content-cache))) (goto-char (point-mi=
n)) (let ((max 0)) (while (not (eobp)) (end-of-line) (setq max (max max (cu=
rrent-column))) (forward-line 1)) (when fill (goto-char (point-min)) (if (z=
erop (buffer-size)) (insert (make-string width 32)) (while (not (eobp)) (en=
d-of-line) (when (> (- width ...) 0) (insert (make-string ... 32))) (forwar=
d-line 1))) (when style (setq actual-colors (shr-colorize-region (point-min=
) (point-max) (cdr (assq ... shr-stylesheet)) (cdr (assq ... shr-stylesheet=
)))))) (if fill (list max (count-lines (point-min) (point-max)) (split-stri=
ng (buffer-string) "\n") (shr-collect-overlays) (car actual-colors)) (list =
max (shr-natural-width)))))
  (progn (let ((bgcolor (cdr (assq :bgcolor cont))) (fgcolor (cdr (assq :fg=
color cont))) (style (cdr (assq :style cont))) (shr-stylesheet shr-styleshe=
et) overlays actual-colors) (when style (setq style (and (string-match "col=
or" style) (shr-parse-style style)))) (when bgcolor (setq style (nconc (lis=
t (cons (quote background-color) bgcolor)) style))) (when fgcolor (setq sty=
le (nconc (list (cons (quote color) fgcolor)) style))) (when style (setq sh=
r-stylesheet (append style shr-stylesheet))) (let ((cache (cdr (assoc (cons=
 width cont) shr-content-cache)))) (if cache (progn (insert (car cache)) (l=
et ((end ...)) (dolist (overlay ...) (let ... ...)))) (let ((shr-width widt=
h) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (delete-regio=
n (point) (+ (point) (skip-chars-backward " 	\n"))) (push (list (cons width=
 cont) (buffer-string) (shr-overlays-in-region (point-min) (point-max))) sh=
r-content-cache))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp=
)) (end-of-line) (setq max (max max (current-column))) (forward-line 1)) (w=
hen fill (goto-char (point-min)) (if (zerop (buffer-size)) (insert (make-st=
ring width 32)) (while (not (eobp)) (end-of-line) (when (> ... 0) (insert .=
..)) (forward-line 1))) (when style (setq actual-colors (shr-colorize-regio=
n (point-min) (point-max) (cdr ...) (cdr ...))))) (if fill (list max (count=
-lines (point-min) (point-max)) (split-string (buffer-string) "\n") (shr-co=
llect-overlays) (car actual-colors)) (list max (shr-natural-width))))))
  (unwind-protect (progn (let ((bgcolor (cdr (assq :bgcolor cont))) (fgcolo=
r (cdr (assq :fgcolor cont))) (style (cdr (assq :style cont))) (shr-stylesh=
eet shr-stylesheet) overlays actual-colors) (when style (setq style (and (s=
tring-match "color" style) (shr-parse-style style)))) (when bgcolor (setq s=
tyle (nconc (list (cons ... bgcolor)) style))) (when fgcolor (setq style (n=
conc (list (cons ... fgcolor)) style))) (when style (setq shr-stylesheet (a=
ppend style shr-stylesheet))) (let ((cache (cdr (assoc ... shr-content-cach=
e)))) (if cache (progn (insert (car cache)) (let (...) (dolist ... ...))) (=
let ((shr-width width) (shr-indentation 0)) (shr-descend (cons ... cont))) =
(delete-region (point) (+ (point) (skip-chars-backward " 	\n"))) (push (lis=
t (cons width cont) (buffer-string) (shr-overlays-in-region ... ...)) shr-c=
ontent-cache))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp)) =
(end-of-line) (setq max (max max (current-column))) (forward-line 1)) (when=
 fill (goto-char (point-min)) (if (zerop (buffer-size)) (insert (make-strin=
g width 32)) (while (not ...) (end-of-line) (when ... ...) (forward-line 1)=
)) (when style (setq actual-colors (shr-colorize-region ... ... ... ...))))=
 (if fill (list max (count-lines (point-min) (point-max)) (split-string (bu=
ffer-string) "\n") (shr-collect-overlays) (car actual-colors)) (list max (s=
hr-natural-width)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buf=
fer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let=
 ((bgcolor (cdr (assq :bgcolor cont))) (fgcolor (cdr (assq :fgcolor cont)))=
 (style (cdr (assq :style cont))) (shr-stylesheet shr-stylesheet) overlays =
actual-colors) (when style (setq style (and (string-match "color" style) (s=
hr-parse-style style)))) (when bgcolor (setq style (nconc (list ...) style)=
)) (when fgcolor (setq style (nconc (list ...) style))) (when style (setq s=
hr-stylesheet (append style shr-stylesheet))) (let ((cache (cdr ...))) (if =
cache (progn (insert ...) (let ... ...)) (let (... ...) (shr-descend ...)) =
(delete-region (point) (+ ... ...)) (push (list ... ... ...) shr-content-ca=
che))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp)) (end-of-l=
ine) (setq max (max max ...)) (forward-line 1)) (when fill (goto-char (poin=
t-min)) (if (zerop ...) (insert ...) (while ... ... ... ...)) (when style (=
setq actual-colors ...))) (if fill (list max (count-lines ... ...) (split-s=
tring ... "\n") (shr-collect-overlays) (car actual-colors)) (list max (shr-=
natural-width)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer=
))))
  (with-current-buffer temp-buffer (unwind-protect (progn (let ((bgcolor (c=
dr (assq :bgcolor cont))) (fgcolor (cdr (assq :fgcolor cont))) (style (cdr =
(assq :style cont))) (shr-stylesheet shr-stylesheet) overlays actual-colors=
) (when style (setq style (and (string-match "color" style) (shr-parse-styl=
e style)))) (when bgcolor (setq style (nconc (list ...) style))) (when fgco=
lor (setq style (nconc (list ...) style))) (when style (setq shr-stylesheet=
 (append style shr-stylesheet))) (let ((cache (cdr ...))) (if cache (progn =
(insert ...) (let ... ...)) (let (... ...) (shr-descend ...)) (delete-regio=
n (point) (+ ... ...)) (push (list ... ... ...) shr-content-cache))) (goto-=
char (point-min)) (let ((max 0)) (while (not (eobp)) (end-of-line) (setq ma=
x (max max ...)) (forward-line 1)) (when fill (goto-char (point-min)) (if (=
zerop ...) (insert ...) (while ... ... ... ...)) (when style (setq actual-c=
olors ...))) (if fill (list max (count-lines ... ...) (split-string ... "\n=
") (shr-collect-overlays) (car actual-colors)) (list max (shr-natural-width=
)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer=
 temp-buffer (unwind-protect (progn (let ((bgcolor (cdr ...)) (fgcolor (cdr=
 ...)) (style (cdr ...)) (shr-stylesheet shr-stylesheet) overlays actual-co=
lors) (when style (setq style (and ... ...))) (when bgcolor (setq style (nc=
onc ... style))) (when fgcolor (setq style (nconc ... style))) (when style =
(setq shr-stylesheet (append style shr-stylesheet))) (let ((cache ...)) (if=
 cache (progn ... ...) (let ... ...) (delete-region ... ...) (push ... shr-=
content-cache))) (goto-char (point-min)) (let ((max 0)) (while (not ...) (e=
nd-of-line) (setq max ...) (forward-line 1)) (when fill (goto-char ...) (if=
 ... ... ...) (when style ...)) (if fill (list max ... ... ... ...) (list m=
ax ...))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (with-temp-buffer (let ((bgcolor (cdr (assq :bgcolor cont))) (fgcolor (cd=
r (assq :fgcolor cont))) (style (cdr (assq :style cont))) (shr-stylesheet s=
hr-stylesheet) overlays actual-colors) (when style (setq style (and (string=
-match "color" style) (shr-parse-style style)))) (when bgcolor (setq style =
(nconc (list (cons (quote background-color) bgcolor)) style))) (when fgcolo=
r (setq style (nconc (list (cons (quote color) fgcolor)) style))) (when sty=
le (setq shr-stylesheet (append style shr-stylesheet))) (let ((cache (cdr (=
assoc (cons width cont) shr-content-cache)))) (if cache (progn (insert (car=
 cache)) (let ((end ...)) (dolist (overlay ...) (let ... ...)))) (let ((shr=
-width width) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (d=
elete-region (point) (+ (point) (skip-chars-backward " 	\n"))) (push (list =
(cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (poin=
t-max))) shr-content-cache))) (goto-char (point-min)) (let ((max 0)) (while=
 (not (eobp)) (end-of-line) (setq max (max max (current-column))) (forward-=
line 1)) (when fill (goto-char (point-min)) (if (zerop (buffer-size)) (inse=
rt (make-string width 32)) (while (not (eobp)) (end-of-line) (when (> ... 0=
) (insert ...)) (forward-line 1))) (when style (setq actual-colors (shr-col=
orize-region (point-min) (point-max) (cdr ...) (cdr ...))))) (if fill (list=
 max (count-lines (point-min) (point-max)) (split-string (buffer-string) "\=
n") (shr-collect-overlays) (car actual-colors)) (list max (shr-natural-widt=
h))))))
  shr-render-td(((table (:width . "600") (:border . "0") (:cellspacing . "0=
") (:cellpadding . "0") (tr (td (:height . "39") (div (:align . "center") (=
a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp:=
//www.genscript.com?src=3Demail201104197&logId=3D992404&resourceId=3D433") =
(img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp:=
//www.genscript.com/e_images/LOGO.jpg&logId=3D992404") (:width . "153") (:h=
eight . "39") (:border . "0"))))) (text . "\n        ") (td (:style . "font=
-size: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . "=
center") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, H=
elvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pag=
e=3Dhttp://www.genscript.com/molecular_biology_service.html?src=3Demail2011=
04197&logId=3D992404&resourceId=3D435") (text . "Gene")) (text . " | ") (a =
(:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (=
:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://w=
ww.genscript.com/protein_service.html?src=3Demail201104197&logId=3D992404&r=
esourceId=3D436") (text . "Protein")) (text . " | ") (a (:style . "font-siz=
e: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www=
.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/pe=
ptide_overview.html?src=3Demail201104197&logId=3D992404&resourceId=3D437") =
(text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#01=
4099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi=
-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/antibody.html?src=3D=
email201104197&logId=3D992404&resourceId=3D438") (text . "Antibody")) (text=
 . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, =
Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pa=
ge=3Dhttp://www.genscript.com/cell_line_services.html?src=3Demail201104197&=
logId=3D992404&resourceId=3D439") (text . "Cell line")) (text . " | ") (a (=
:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:=
href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://ww=
w.genscript.com/bio-assay_center.html?src=3Demail201104197&logId=3D992404&r=
esourceId=3D440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-s=
ize: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://w=
ww.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/=
products.html?src=3Demail201104197&logId=3D992404&resourceId=3D441") (text =
. "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099;=
 font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/=
biology/pagelink2?page=3Dhttp://www.genscript.com/promotions.html?src=3Dema=
il201104197&logId=3D992404&resourceId=3D442") (text . "Promotions")) (text =
. " "))) (text . "\n      ")))) 99 nil)
  (cons (shr-render-td (cdr column) (aref widths i) fill) tds)
  (setq tds (cons (shr-render-td (cdr column) (aref widths i) fill) tds))
  (push (shr-render-td (cdr column) (aref widths i) fill) tds)
  (progn (push (shr-render-td (cdr column) (aref widths i) fill) tds) (setq=
 i (1+ i)))
  (if (or (memq (car column) (quote (td th))) (null column)) (progn (push (=
shr-render-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i))))
  (when (or (memq (car column) (quote (td th))) (null column)) (push (shr-r=
ender-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i)))
  (while (< i (length widths)) (setq column (pop columns)) (when (or (memq =
(car column) (quote (td th))) (null column)) (push (shr-render-td (cdr colu=
mn) (aref widths i) fill) tds) (setq i (1+ i))))
  (let ((tds nil) (columns (cdr row)) (i 0) column) (while (< i (length wid=
ths)) (setq column (pop columns)) (when (or (memq (car column) (quote (td t=
h))) (null column)) (push (shr-render-td (cdr column) (aref widths i) fill)=
 tds) (setq i (1+ i)))) (push (nreverse tds) trs))
  (progn (let ((tds nil) (columns (cdr row)) (i 0) column) (while (< i (len=
gth widths)) (setq column (pop columns)) (when (or (memq (car column) (quot=
e (td th))) (null column)) (push (shr-render-td (cdr column) (aref widths i=
) fill) tds) (setq i (1+ i)))) (push (nreverse tds) trs)))
  (if (eq (car row) (quote tr)) (progn (let ((tds nil) (columns (cdr row)) =
(i 0) column) (while (< i (length widths)) (setq column (pop columns)) (whe=
n (or (memq (car column) (quote ...)) (null column)) (push (shr-render-td (=
cdr column) (aref widths i) fill) tds) (setq i (1+ i)))) (push (nreverse td=
s) trs))))
  (when (eq (car row) (quote tr)) (let ((tds nil) (columns (cdr row)) (i 0)=
 column) (while (< i (length widths)) (setq column (pop columns)) (when (or=
 (memq (car column) (quote (td th))) (null column)) (push (shr-render-td (c=
dr column) (aref widths i) fill) tds) (setq i (1+ i)))) (push (nreverse tds=
) trs)))
  (while --cl-dolist-temp-- (setq row (car --cl-dolist-temp--)) (when (eq (=
car row) (quote tr)) (let ((tds nil) (columns (cdr row)) (i 0) column) (whi=
le (< i (length widths)) (setq column (pop columns)) (when (or (memq (car c=
olumn) (quote ...)) (null column)) (push (shr-render-td (cdr column) (aref =
widths i) fill) tds) (setq i (1+ i)))) (push (nreverse tds) trs))) (setq --=
cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- cont) row) (while --cl-dolist-temp-- (setq row =
(car --cl-dolist-temp--)) (when (eq (car row) (quote tr)) (let ((tds nil) (=
columns (cdr row)) (i 0) column) (while (< i (length widths)) (setq column =
(pop columns)) (when (or (memq ... ...) (null column)) (push (shr-render-td=
 ... ... fill) tds) (setq i (1+ i)))) (push (nreverse tds) trs))) (setq --c=
l-dolist-temp-- (cdr --cl-dolist-temp--))) nil)
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- cont) row) (whi=
le --cl-dolist-temp-- (setq row (car --cl-dolist-temp--)) (when (eq (car ro=
w) (quote tr)) (let ((tds nil) (columns (cdr row)) (i 0) column) (while (< =
i (length widths)) (setq column (pop columns)) (when (or ... ...) (push ...=
 tds) (setq i ...))) (push (nreverse tds) trs))) (setq --cl-dolist-temp-- (=
cdr --cl-dolist-temp--))) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp=
-- cont) row) (while --cl-dolist-temp-- (setq row (car --cl-dolist-temp--))=
 (when (eq (car row) (quote tr)) (let ((tds nil) (columns ...) (i 0) column=
) (while (< i ...) (setq column ...) (when ... ... ...)) (push (nreverse td=
s) trs))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil)))
  (block nil (let ((--cl-dolist-temp-- cont) row) (while --cl-dolist-temp--=
 (setq row (car --cl-dolist-temp--)) (when (eq (car row) (quote tr)) (let (=
(tds nil) (columns (cdr row)) (i 0) column) (while (< i (length widths)) (s=
etq column (pop columns)) (when (or ... ...) (push ... tds) (setq i ...))) =
(push (nreverse tds) trs))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp-=
-))) nil))
  (dolist (row cont) (when (eq (car row) (quote tr)) (let ((tds nil) (colum=
ns (cdr row)) (i 0) column) (while (< i (length widths)) (setq column (pop =
columns)) (when (or (memq (car column) (quote ...)) (null column)) (push (s=
hr-render-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i)))) (pus=
h (nreverse tds) trs))))
  (let ((trs nil)) (dolist (row cont) (when (eq (car row) (quote tr)) (let =
((tds nil) (columns (cdr row)) (i 0) column) (while (< i (length widths)) (=
setq column (pop columns)) (when (or (memq ... ...) (null column)) (push (s=
hr-render-td ... ... fill) tds) (setq i (1+ i)))) (push (nreverse tds) trs)=
))) (nreverse trs))
  shr-make-table(((:width . "600") (:align . "center") (:cellpadding . "0")=
 (:cellspacing . "0") (:style . "border: 1px solid #999999;") (tr (td (:hei=
ght . "15")) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0=
") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:height . "39") (div =
(:align . "center") (a ... ...))) (text . "\n        ") (td (:style . "font=
-size: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . "=
center") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " | ") (a .=
.. ... ...) (text . " | ") (a ... ... ...) (text . " | ") (a ... ... ...) (=
text . " | ") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " | ")=
 (a ... ... ...) (text . " "))) (text . "\n      ")))) (text . "\n  ")) (tr=
 (td (:height . "108") (:background . "http://www.genscript.com/cgi-bin/pro=
motion/image2?src=3Dhttp://www.genscript.com/e_images/head_bg_eStain.jpg&lo=
gId=3D992404") (text . "\n    ") (div (:align . "center") (:style . "font-s=
ize:24px; font-family:Arial, Helvetica; color:#333333") (strong (em (text .=
 "e")) (text . "Stain") (sup (text . "TM")) (text . " 2.0 is here. "))) (te=
xt . "\n    ") (div (:align . "center") (:style . "font-size:15px; font-fam=
ily:Arial, Helvetica;color:#333333; padding-top:10px") (text . "\n    A mag=
ical and revolutionary protein gel staining device "))) (text . "\n  ")) (t=
r (td (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=
=3Dhttp://www.genscript.com/estain_7_min_protein_gel_staining.html?src=3Dem=
ail201104197&logId=3D992404&resourceId=3D443") (img (:border . "0") (:src .=
 "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.genscr=
ipt.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=3D992404")))) =
(text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellspac=
ing . "0") (:cellpadding . "0") (tr (td (:width . "200") (:height . "60") (=
div (:align . "right") (a ... ...))) (text . "\n          ") (td (:width . =
"15") (text . " ")) (text . "\n          ") (td (:style . "font-size:16px; =
font-family:Arial, Helvetica; color:#333333") (text . "Join the ") (span (:=
style . "font-size:21px; color:#0066CC") (text . " ") (strong ...)) (text .=
 " protein gel staining revolution")) (text . "\n        ")))) (text . "\n =
 ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "0") (=
:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:width . "15")) (text .=
 "\n    ") (td (:valign . "top") (table (:width . "150") (:border . "0") (:=
cellspacing . "0") (:cellpadding . "0") (tr ... ...) (tr ... ...) (tr ... .=
.. ... ...))) (text . "\n    ") (td (:width . "10")) (text . "\n    \n    \=
n    ") (td (:valign . "top") (:style . "font-size: 9px; color: #999999; fo=
nt-family:Arial, Helvetica") (br) (text . "\n    Copyright 2011 GenScript U=
SA Inc. All rights reserved. ") (br) (a (:style . "color:#014099") (:href .=
 "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gens=
cript.com/referral_program.html?src=3Demail201104197&logId=3D992404&resourc=
eId=3D431") (text . "Inform")) (text . " a colleague about this exciting op=
portunity, and receive a gift reward. ") (br) (text . "\nOur customer repre=
sentatives are available to assist you 24 hours a day, Monday to Friday. We=
 constantly add new services and products to meet your needs for life scien=
ce research and drug discovery. ") (br) (br) (text . "\n       If you prefe=
r not to receive GenScript News in Email, please ") (a (:href . "http://www=
.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cg=
i-bin/tech_support/unsubscribe_request2?src=3Demail201104197&logId=3D992404=
&resourceId=3D451") (text . "unsubscribe")) (text . ".")) (text . "\n    ")=
 (td (:width . "15")) (text . "\n  ")))) (text . "\n  ")) (tr (td (:height =
. "30") (table (:width . "600") (:border . "0") (:cellspacing . "0") (:cell=
padding . "0") (:bgcolor . "#f2f2f2") (tr (td (:height . "30") (:style . "f=
ont-size: 9px; color: #999999; font-family:Arial, Helvetica")) (text . "\n =
     ")))) (text . "\n  "))) [99])
  (let* ((shr-inhibit-images t) (shr-table-depth (1+ shr-table-depth)) (shr=
-kinsoku-shorten t) (columns (shr-column-specs cont)) (suggested-widths (sh=
r-pro-rate-columns columns)) (sketch (shr-make-table cont suggested-widths)=
) (sketch-widths (shr-table-widths sketch suggested-widths))) (when (> (+ (=
loop for width across sketch-widths summing (1+ width)) shr-indentation 1) =
(frame-width)) (setq truncate-lines t)) (shr-insert-table (shr-make-table c=
ont sketch-widths t) sketch-widths))
  shr-tag-table-1(((:width . "600") (:align . "center") (:cellpadding . "0"=
) (:cellspacing . "0") (:style . "border: 1px solid #999999;") (tr (td (:he=
ight . "15")) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "=
0") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:height . "39") (div=
 (:align . "center") (a ... ...))) (text . "\n        ") (td (:style . "fon=
t-size: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . =
"center") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " | ") (a =
... ... ...) (text . " | ") (a ... ... ...) (text . " | ") (a ... ... ...) =
(text . " | ") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " | "=
) (a ... ... ...) (text . " "))) (text . "\n      ")))) (text . "\n  ")) (t=
r (td (:height . "108") (:background . "http://www.genscript.com/cgi-bin/pr=
omotion/image2?src=3Dhttp://www.genscript.com/e_images/head_bg_eStain.jpg&l=
ogId=3D992404") (text . "\n    ") (div (:align . "center") (:style . "font-=
size:24px; font-family:Arial, Helvetica; color:#333333") (strong (em (text =
. "e")) (text . "Stain") (sup (text . "TM")) (text . " 2.0 is here. "))) (t=
ext . "\n    ") (div (:align . "center") (:style . "font-size:15px; font-fa=
mily:Arial, Helvetica;color:#333333; padding-top:10px") (text . "\n    A ma=
gical and revolutionary protein gel staining device "))) (text . "\n  ")) (=
tr (td (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=
=3Dhttp://www.genscript.com/estain_7_min_protein_gel_staining.html?src=3Dem=
ail201104197&logId=3D992404&resourceId=3D443") (img (:border . "0") (:src .=
 "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.genscr=
ipt.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=3D992404")))) =
(text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellspac=
ing . "0") (:cellpadding . "0") (tr (td (:width . "200") (:height . "60") (=
div (:align . "right") (a ... ...))) (text . "\n          ") (td (:width . =
"15") (text . " ")) (text . "\n          ") (td (:style . "font-size:16px; =
font-family:Arial, Helvetica; color:#333333") (text . "Join the ") (span (:=
style . "font-size:21px; color:#0066CC") (text . " ") (strong ...)) (text .=
 " protein gel staining revolution")) (text . "\n        ")))) (text . "\n =
 ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "0") (=
:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:width . "15")) (text .=
 "\n    ") (td (:valign . "top") (table (:width . "150") (:border . "0") (:=
cellspacing . "0") (:cellpadding . "0") (tr ... ...) (tr ... ...) (tr ... .=
.. ... ...))) (text . "\n    ") (td (:width . "10")) (text . "\n    \n    \=
n    ") (td (:valign . "top") (:style . "font-size: 9px; color: #999999; fo=
nt-family:Arial, Helvetica") (br) (text . "\n    Copyright 2011 GenScript U=
SA Inc. All rights reserved. ") (br) (a (:style . "color:#014099") (:href .=
 "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gens=
cript.com/referral_program.html?src=3Demail201104197&logId=3D992404&resourc=
eId=3D431") (text . "Inform")) (text . " a colleague about this exciting op=
portunity, and receive a gift reward. ") (br) (text . "\nOur customer repre=
sentatives are available to assist you 24 hours a day, Monday to Friday. We=
 constantly add new services and products to meet your needs for life scien=
ce research and drug discovery. ") (br) (br) (text . "\n       If you prefe=
r not to receive GenScript News in Email, please ") (a (:href . "http://www=
.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cg=
i-bin/tech_support/unsubscribe_request2?src=3Demail201104197&logId=3D992404=
&resourceId=3D451") (text . "unsubscribe")) (text . ".")) (text . "\n    ")=
 (td (:width . "15")) (text . "\n  ")))) (text . "\n  ")) (tr (td (:height =
. "30") (table (:width . "600") (:border . "0") (:cellspacing . "0") (:cell=
padding . "0") (:bgcolor . "#f2f2f2") (tr (td (:height . "30") (:style . "f=
ont-size: 9px; color: #999999; font-family:Arial, Helvetica")) (text . "\n =
     ")))) (text . "\n  "))))
  (let* ((caption (cdr (assq (quote caption) cont))) (header (cdr (assq (qu=
ote thead) cont))) (body (or (cdr (assq (quote tbody) cont)) cont)) (footer=
 (cdr (assq (quote tfoot) cont))) (bgcolor (cdr (assq :bgcolor cont))) (sta=
rt (point)) (shr-stylesheet (nconc (list (cons (quote background-color) bgc=
olor)) shr-stylesheet)) (nheader (if header (shr-max-columns header))) (nbo=
dy (if body (shr-max-columns body))) (nfooter (if footer (shr-max-columns f=
ooter)))) (shr-tag-table-1 (nconc (if caption (\` ((tr (td ...))))) (if hea=
der (if footer (if (=3D nheader nbody) (if (=3D nbody nfooter) (\` ...) (nc=
onc ... ...)) (nconc (\` ...) (if ... ... ...))) (if (=3D nheader nbody) (\=
` (...)) (if (=3D nheader 1) (\` ...) (\` ...)))) (if footer (if (=3D nbody=
 nfooter) (\` (...)) (nconc (\` ...) (if ... footer ...))) (if caption (\` =
(...)) body))))) (when bgcolor (shr-colorize-region start (point) (cdr (ass=
q (quote color) shr-stylesheet)) bgcolor)))
  shr-tag-table(((:width . "600") (:align . "center") (:cellpadding . "0") =
(:cellspacing . "0") (:style . "border: 1px solid #999999;") (tr (td (:heig=
ht . "15")) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0"=
) (:cellspacing . "0") (:cellpadding . "0") (tr (td (:height . "39") (div (=
:align . "center") (a ... ...))) (text . "\n        ") (td (:style . "font-=
size: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align . "c=
enter") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " | ") (a ..=
. ... ...) (text . " | ") (a ... ... ...) (text . " | ") (a ... ... ...) (t=
ext . " | ") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " | ") =
(a ... ... ...) (text . " "))) (text . "\n      ")))) (text . "\n  ")) (tr =
(td (:height . "108") (:background . "http://www.genscript.com/cgi-bin/prom=
otion/image2?src=3Dhttp://www.genscript.com/e_images/head_bg_eStain.jpg&log=
Id=3D992404") (text . "\n    ") (div (:align . "center") (:style . "font-si=
ze:24px; font-family:Arial, Helvetica; color:#333333") (strong (em (text . =
"e")) (text . "Stain") (sup (text . "TM")) (text . " 2.0 is here. "))) (tex=
t . "\n    ") (div (:align . "center") (:style . "font-size:15px; font-fami=
ly:Arial, Helvetica;color:#333333; padding-top:10px") (text . "\n    A magi=
cal and revolutionary protein gel staining device "))) (text . "\n  ")) (tr=
 (td (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=
=3Dhttp://www.genscript.com/estain_7_min_protein_gel_staining.html?src=3Dem=
ail201104197&logId=3D992404&resourceId=3D443") (img (:border . "0") (:src .=
 "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.genscr=
ipt.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=3D992404")))) =
(text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellspac=
ing . "0") (:cellpadding . "0") (tr (td (:width . "200") (:height . "60") (=
div (:align . "right") (a ... ...))) (text . "\n          ") (td (:width . =
"15") (text . " ")) (text . "\n          ") (td (:style . "font-size:16px; =
font-family:Arial, Helvetica; color:#333333") (text . "Join the ") (span (:=
style . "font-size:21px; color:#0066CC") (text . " ") (strong ...)) (text .=
 " protein gel staining revolution")) (text . "\n        ")))) (text . "\n =
 ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "0") (=
:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:width . "15")) (text .=
 "\n    ") (td (:valign . "top") (table (:width . "150") (:border . "0") (:=
cellspacing . "0") (:cellpadding . "0") (tr ... ...) (tr ... ...) (tr ... .=
.. ... ...))) (text . "\n    ") (td (:width . "10")) (text . "\n    \n    \=
n    ") (td (:valign . "top") (:style . "font-size: 9px; color: #999999; fo=
nt-family:Arial, Helvetica") (br) (text . "\n    Copyright 2011 GenScript U=
SA Inc. All rights reserved. ") (br) (a (:style . "color:#014099") (:href .=
 "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.gens=
cript.com/referral_program.html?src=3Demail201104197&logId=3D992404&resourc=
eId=3D431") (text . "Inform")) (text . " a colleague about this exciting op=
portunity, and receive a gift reward. ") (br) (text . "\nOur customer repre=
sentatives are available to assist you 24 hours a day, Monday to Friday. We=
 constantly add new services and products to meet your needs for life scien=
ce research and drug discovery. ") (br) (br) (text . "\n       If you prefe=
r not to receive GenScript News in Email, please ") (a (:href . "http://www=
.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/cg=
i-bin/tech_support/unsubscribe_request2?src=3Demail201104197&logId=3D992404=
&resourceId=3D451") (text . "unsubscribe")) (text . ".")) (text . "\n    ")=
 (td (:width . "15")) (text . "\n  ")))) (text . "\n  ")) (tr (td (:height =
. "30") (table (:width . "600") (:border . "0") (:cellspacing . "0") (:cell=
padding . "0") (:bgcolor . "#f2f2f2") (tr (td (:height . "30") (:style . "f=
ont-size: 9px; color: #999999; font-family:Arial, Helvetica")) (text . "\n =
     ")))) (text . "\n  "))))
  funcall(shr-tag-table ((:width . "600") (:align . "center") (:cellpadding=
 . "0") (:cellspacing . "0") (:style . "border: 1px solid #999999;") (tr (t=
d (:height . "15")) (text . "\n  ")) (tr (td (table (:width . "600") (:bord=
er . "0") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:height . "39"=
) (div (:align . "center") (a ... ...))) (text . "\n        ") (td (:style =
. "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (div (:al=
ign . "center") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " | =
") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " | ") (a ... ...=
 ...) (text . " | ") (a ... ... ...) (text . " | ") (a ... ... ...) (text .=
 " | ") (a ... ... ...) (text . " "))) (text . "\n      ")))) (text . "\n  =
")) (tr (td (:height . "108") (:background . "http://www.genscript.com/cgi-=
bin/promotion/image2?src=3Dhttp://www.genscript.com/e_images/head_bg_eStain=
.jpg&logId=3D992404") (text . "\n    ") (div (:align . "center") (:style . =
"font-size:24px; font-family:Arial, Helvetica; color:#333333") (strong (em =
(text . "e")) (text . "Stain") (sup (text . "TM")) (text . " 2.0 is here. "=
))) (text . "\n    ") (div (:align . "center") (:style . "font-size:15px; f=
ont-family:Arial, Helvetica;color:#333333; padding-top:10px") (text . "\n  =
  A magical and revolutionary protein gel staining device "))) (text . "\n =
 ")) (tr (td (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink=
2?page=3Dhttp://www.genscript.com/estain_7_min_protein_gel_staining.html?sr=
c=3Demail201104197&logId=3D992404&resourceId=3D443") (img (:border . "0") (=
:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.=
genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=3D992404=
")))) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:ce=
llspacing . "0") (:cellpadding . "0") (tr (td (:width . "200") (:height . "=
60") (div (:align . "right") (a ... ...))) (text . "\n          ") (td (:wi=
dth . "15") (text . " ")) (text . "\n          ") (td (:style . "font-size:=
16px; font-family:Arial, Helvetica; color:#333333") (text . "Join the ") (s=
pan (:style . "font-size:21px; color:#0066CC") (text . " ") (strong ...)) (=
text . " protein gel staining revolution")) (text . "\n        ")))) (text =
. "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . =
"0") (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:width . "15")) (=
text . "\n    ") (td (:valign . "top") (table (:width . "150") (:border . "=
0") (:cellspacing . "0") (:cellpadding . "0") (tr ... ...) (tr ... ...) (tr=
 ... ... ... ...))) (text . "\n    ") (td (:width . "10")) (text . "\n    \=
n    \n    ") (td (:valign . "top") (:style . "font-size: 9px; color: #9999=
99; font-family:Arial, Helvetica") (br) (text . "\n    Copyright 2011 GenSc=
ript USA Inc. All rights reserved. ") (br) (a (:style . "color:#014099") (:=
href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://ww=
w.genscript.com/referral_program.html?src=3Demail201104197&logId=3D992404&r=
esourceId=3D431") (text . "Inform")) (text . " a colleague about this excit=
ing opportunity, and receive a gift reward. ") (br) (text . "\nOur customer=
 representatives are available to assist you 24 hours a day, Monday to Frid=
ay. We constantly add new services and products to meet your needs for life=
 science research and drug discovery. ") (br) (br) (text . "\n       If you=
 prefer not to receive GenScript News in Email, please ") (a (:href . "http=
://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.=
com/cgi-bin/tech_support/unsubscribe_request2?src=3Demail201104197&logId=3D=
992404&resourceId=3D451") (text . "unsubscribe")) (text . ".")) (text . "\n=
    ") (td (:width . "15")) (text . "\n  ")))) (text . "\n  ")) (tr (td (:h=
eight . "30") (table (:width . "600") (:border . "0") (:cellspacing . "0") =
(:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:height . "30") (:styl=
e . "font-size: 9px; color: #999999; font-family:Arial, Helvetica")) (text =
. "\n      ")))) (text . "\n  "))))
  (if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom=
)))
  (let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarr=
ay)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) =
(start (point))) (when style (if (string-match "color" style) (setq shr-sty=
lesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))) =
(if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom))=
) (when style (shr-colorize-region start (point) (cdr (assq (quote color) s=
hr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
  shr-descend((table (:width . "600") (:align . "center") (:cellpadding . "=
0") (:cellspacing . "0") (:style . "border: 1px solid #999999;") (tr (td (:=
height . "15")) (text . "\n  ")) (tr (td (table (:width . "600") (:border .=
 "0") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:height . "39") (d=
iv (:align . "center") (a ... ...))) (text . "\n        ") (td (:style . "f=
ont-size: 11px; color:#014099; font-family:Arial, Helvetica") (div (:align =
. "center") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " | ") (=
a ... ... ...) (text . " | ") (a ... ... ...) (text . " | ") (a ... ... ...=
) (text . " | ") (a ... ... ...) (text . " | ") (a ... ... ...) (text . " |=
 ") (a ... ... ...) (text . " "))) (text . "\n      ")))) (text . "\n  ")) =
(tr (td (:height . "108") (:background . "http://www.genscript.com/cgi-bin/=
promotion/image2?src=3Dhttp://www.genscript.com/e_images/head_bg_eStain.jpg=
&logId=3D992404") (text . "\n    ") (div (:align . "center") (:style . "fon=
t-size:24px; font-family:Arial, Helvetica; color:#333333") (strong (em (tex=
t . "e")) (text . "Stain") (sup (text . "TM")) (text . " 2.0 is here. "))) =
(text . "\n    ") (div (:align . "center") (:style . "font-size:15px; font-=
family:Arial, Helvetica;color:#333333; padding-top:10px") (text . "\n    A =
magical and revolutionary protein gel staining device "))) (text . "\n  "))=
 (tr (td (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pa=
ge=3Dhttp://www.genscript.com/estain_7_min_protein_gel_staining.html?src=3D=
email201104197&logId=3D992404&resourceId=3D443") (img (:border . "0") (:src=
 . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.gens=
cript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=3D992404")))=
) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellsp=
acing . "0") (:cellpadding . "0") (tr (td (:width . "200") (:height . "60")=
 (div (:align . "right") (a ... ...))) (text . "\n          ") (td (:width =
. "15") (text . " ")) (text . "\n          ") (td (:style . "font-size:16px=
; font-family:Arial, Helvetica; color:#333333") (text . "Join the ") (span =
(:style . "font-size:21px; color:#0066CC") (text . " ") (strong ...)) (text=
 . " protein gel staining revolution")) (text . "\n        ")))) (text . "\=
n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "0")=
 (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:width . "15")) (text=
 . "\n    ") (td (:valign . "top") (table (:width . "150") (:border . "0") =
(:cellspacing . "0") (:cellpadding . "0") (tr ... ...) (tr ... ...) (tr ...=
 ... ... ...))) (text . "\n    ") (td (:width . "10")) (text . "\n    \n   =
 \n    ") (td (:valign . "top") (:style . "font-size: 9px; color: #999999; =
font-family:Arial, Helvetica") (br) (text . "\n    Copyright 2011 GenScript=
 USA Inc. All rights reserved. ") (br) (a (:style . "color:#014099") (:href=
 . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.ge=
nscript.com/referral_program.html?src=3Demail201104197&logId=3D992404&resou=
rceId=3D431") (text . "Inform")) (text . " a colleague about this exciting =
opportunity, and receive a gift reward. ") (br) (text . "\nOur customer rep=
resentatives are available to assist you 24 hours a day, Monday to Friday. =
We constantly add new services and products to meet your needs for life sci=
ence research and drug discovery. ") (br) (br) (text . "\n       If you pre=
fer not to receive GenScript News in Email, please ") (a (:href . "http://w=
ww.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/=
cgi-bin/tech_support/unsubscribe_request2?src=3Demail201104197&logId=3D9924=
04&resourceId=3D451") (text . "unsubscribe")) (text . ".")) (text . "\n    =
") (td (:width . "15")) (text . "\n  ")))) (text . "\n  ")) (tr (td (:heigh=
t . "30") (table (:width . "600") (:border . "0") (:cellspacing . "0") (:ce=
llpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:height . "30") (:style . =
"font-size: 9px; color: #999999; font-family:Arial, Helvetica")) (text . "\=
n      ")))) (text . "\n  "))))
  (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr s=
ub)) (shr-descend sub)))
  (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq =
(car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-des=
cend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp-- (setq sub =
(car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (c=
dr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (=
cdr --cl-dolist-temp--))) nil)
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- cont) sub) (whi=
le --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car s=
ub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend s=
ub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp=
-- cont) sub) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--))=
 (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr su=
b)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))=
 nil)))
  (block nil (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp--=
 (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (sh=
r-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-doli=
st-temp-- (cdr --cl-dolist-temp--))) nil))
  (dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr su=
b))) ((listp (cdr sub)) (shr-descend sub))))
  shr-generic(((img (:src . "http://www.genscript.com/cgi-bin/promotion/ima=
ge?src=3Dhttp://www.genscript.com/e_images/Transparent.gif&logId=3D992404")=
 (:border . "0")) (table (:width . "600") (:align . "center") (:cellpadding=
 . "0") (:cellspacing . "0") (:border . "0") (td (:height . "30") (:width .=
 "300") (:style . "font-size:11px; color:#000000;font-family:Arial, Helveti=
ca; color:#999999 ") (text . "Having trouble reading this email? ") (a (:hr=
ef . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.=
genscript.com/Product_email_201104197.html?src=3Demail201104197&logId=3D992=
404&resourceId=3D430") (:style . "text-decoration:underline; color:#0000CC;=
") (text . "View it on the web")) (text . ". ")) (text . "\n	") (td (:width=
 . "255") (:style . "font-size:11px; font-family:Arial, Helvetica; color:#9=
99999 ") (div (:align . "right") (a (:href . "http://www.genscript.com/cgi-=
bin/biology/pagelink2?page=3Dhttp://www.genscript.com/referral_program.html=
?src=3Demail201104197&logId=3D992404&resourceId=3D431") (text . "Forward to=
 a friend")))) (text . "\n  ") (td (:width . "35") (div (:align . "right") =
(img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp:=
//www.genscript.com/e_images/forward_f.jpg&logId=3D992404") (:border . "0")=
))) (text . "\n")) (table (:width . "600") (:align . "center") (:cellpaddin=
g . "0") (:cellspacing . "0") (:style . "border: 1px solid #999999;") (tr (=
td (:height . "15")) (text . "\n  ")) (tr (td (table (:width . "600") (:bor=
der . "0") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:height . "39=
") (div ... ...)) (text . "\n        ") (td (:style . "font-size: 11px; col=
or:#014099; font-family:Arial, Helvetica") (div ... ... ... ... ... ... ...=
 ... ... ... ... ... ... ... ... ... ...)) (text . "\n      ")))) (text . "=
\n  ")) (tr (td (:height . "108") (:background . "http://www.genscript.com/=
cgi-bin/promotion/image2?src=3Dhttp://www.genscript.com/e_images/head_bg_eS=
tain.jpg&logId=3D992404") (text . "\n    ") (div (:align . "center") (:styl=
e . "font-size:24px; font-family:Arial, Helvetica; color:#333333") (strong =
(em (text . "e")) (text . "Stain") (sup (text . "TM")) (text . " 2.0 is her=
e. "))) (text . "\n    ") (div (:align . "center") (:style . "font-size:15p=
x; font-family:Arial, Helvetica;color:#333333; padding-top:10px") (text . "=
\n    A magical and revolutionary protein gel staining device "))) (text . =
"\n  ")) (tr (td (a (:href . "http://www.genscript.com/cgi-bin/biology/page=
link2?page=3Dhttp://www.genscript.com/estain_7_min_protein_gel_staining.htm=
l?src=3Demail201104197&logId=3D992404&resourceId=3D443") (img (:border . "0=
") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://=
www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=3D99=
2404")))) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") =
(:cellspacing . "0") (:cellpadding . "0") (tr (td (:width . "200") (:height=
 . "60") (div ... ...)) (text . "\n          ") (td (:width . "15") (text .=
 " ")) (text . "\n          ") (td (:style . "font-size:16px; font-family:A=
rial, Helvetica; color:#333333") (text . "Join the ") (span ... ... ...) (t=
ext . " protein gel staining revolution")) (text . "\n        ")))) (text .=
 "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "=
0") (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:width . "15")) (t=
ext . "\n    ") (td (:valign . "top") (table ... ... ... ... ... ... ...)) =
(text . "\n    ") (td (:width . "10")) (text . "\n    \n    \n    ") (td (:=
valign . "top") (:style . "font-size: 9px; color: #999999; font-family:Aria=
l, Helvetica") (br) (text . "\n    Copyright 2011 GenScript USA Inc. All ri=
ghts reserved. ") (br) (a ... ... ...) (text . " a colleague about this exc=
iting opportunity, and receive a gift reward. ") (br) (text . "\nOur custom=
er representatives are available to assist you 24 hours a day, Monday to Fr=
iday. We constantly add new services and products to meet your needs for li=
fe science research and drug discovery. ") (br) (br) (text . "\n       If y=
ou prefer not to receive GenScript News in Email, please ") (a ... ...) (te=
xt . ".")) (text . "\n    ") (td (:width . "15")) (text . "\n  ")))) (text =
. "\n  ")) (tr (td (:height . "30") (table (:width . "600") (:border . "0")=
 (:cellspacing . "0") (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (=
:height . "30") (:style . "font-size: 9px; color: #999999; font-family:Aria=
l, Helvetica")) (text . "\n      ")))) (text . "\n  ")))))
  (let* ((start (point)) (fgcolor (cdr (or (assq :fgcolor cont) (assq :text=
 cont)))) (bgcolor (cdr (assq :bgcolor cont))) (shr-stylesheet (list (cons =
(quote color) fgcolor) (cons (quote background-color) bgcolor)))) (shr-gene=
ric cont) (shr-colorize-region start (point) fgcolor bgcolor))
  shr-tag-body(((img (:src . "http://www.genscript.com/cgi-bin/promotion/im=
age?src=3Dhttp://www.genscript.com/e_images/Transparent.gif&logId=3D992404"=
) (:border . "0")) (table (:width . "600") (:align . "center") (:cellpaddin=
g . "0") (:cellspacing . "0") (:border . "0") (td (:height . "30") (:width =
. "300") (:style . "font-size:11px; color:#000000;font-family:Arial, Helvet=
ica; color:#999999 ") (text . "Having trouble reading this email? ") (a (:h=
ref . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www=
.genscript.com/Product_email_201104197.html?src=3Demail201104197&logId=3D99=
2404&resourceId=3D430") (:style . "text-decoration:underline; color:#0000CC=
;") (text . "View it on the web")) (text . ". ")) (text . "\n	") (td (:widt=
h . "255") (:style . "font-size:11px; font-family:Arial, Helvetica; color:#=
999999 ") (div (:align . "right") (a (:href . "http://www.genscript.com/cgi=
-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/referral_program.htm=
l?src=3Demail201104197&logId=3D992404&resourceId=3D431") (text . "Forward t=
o a friend")))) (text . "\n  ") (td (:width . "35") (div (:align . "right")=
 (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp=
://www.genscript.com/e_images/forward_f.jpg&logId=3D992404") (:border . "0"=
)))) (text . "\n")) (table (:width . "600") (:align . "center") (:cellpaddi=
ng . "0") (:cellspacing . "0") (:style . "border: 1px solid #999999;") (tr =
(td (:height . "15")) (text . "\n  ")) (tr (td (table (:width . "600") (:bo=
rder . "0") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:height . "3=
9") (div ... ...)) (text . "\n        ") (td (:style . "font-size: 11px; co=
lor:#014099; font-family:Arial, Helvetica") (div ... ... ... ... ... ... ..=
. ... ... ... ... ... ... ... ... ... ...)) (text . "\n      ")))) (text . =
"\n  ")) (tr (td (:height . "108") (:background . "http://www.genscript.com=
/cgi-bin/promotion/image2?src=3Dhttp://www.genscript.com/e_images/head_bg_e=
Stain.jpg&logId=3D992404") (text . "\n    ") (div (:align . "center") (:sty=
le . "font-size:24px; font-family:Arial, Helvetica; color:#333333") (strong=
 (em (text . "e")) (text . "Stain") (sup (text . "TM")) (text . " 2.0 is he=
re. "))) (text . "\n    ") (div (:align . "center") (:style . "font-size:15=
px; font-family:Arial, Helvetica;color:#333333; padding-top:10px") (text . =
"\n    A magical and revolutionary protein gel staining device "))) (text .=
 "\n  ")) (tr (td (a (:href . "http://www.genscript.com/cgi-bin/biology/pag=
elink2?page=3Dhttp://www.genscript.com/estain_7_min_protein_gel_staining.ht=
ml?src=3Demail201104197&logId=3D992404&resourceId=3D443") (img (:border . "=
0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp:/=
/www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=3D9=
92404")))) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0")=
 (:cellspacing . "0") (:cellpadding . "0") (tr (td (:width . "200") (:heigh=
t . "60") (div ... ...)) (text . "\n          ") (td (:width . "15") (text =
. " ")) (text . "\n          ") (td (:style . "font-size:16px; font-family:=
Arial, Helvetica; color:#333333") (text . "Join the ") (span ... ... ...) (=
text . " protein gel staining revolution")) (text . "\n        ")))) (text =
. "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . =
"0") (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:width . "15")) (=
text . "\n    ") (td (:valign . "top") (table ... ... ... ... ... ... ...))=
 (text . "\n    ") (td (:width . "10")) (text . "\n    \n    \n    ") (td (=
:valign . "top") (:style . "font-size: 9px; color: #999999; font-family:Ari=
al, Helvetica") (br) (text . "\n    Copyright 2011 GenScript USA Inc. All r=
ights reserved. ") (br) (a ... ... ...) (text . " a colleague about this ex=
citing opportunity, and receive a gift reward. ") (br) (text . "\nOur custo=
mer representatives are available to assist you 24 hours a day, Monday to F=
riday. We constantly add new services and products to meet your needs for l=
ife science research and drug discovery. ") (br) (br) (text . "\n       If =
you prefer not to receive GenScript News in Email, please ") (a ... ...) (t=
ext . ".")) (text . "\n    ") (td (:width . "15")) (text . "\n  ")))) (text=
 . "\n  ")) (tr (td (:height . "30") (table (:width . "600") (:border . "0"=
) (:cellspacing . "0") (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td =
(:height . "30") (:style . "font-size: 9px; color: #999999; font-family:Ari=
al, Helvetica")) (text . "\n      ")))) (text . "\n  ")))))
  funcall(shr-tag-body ((img (:src . "http://www.genscript.com/cgi-bin/prom=
otion/image?src=3Dhttp://www.genscript.com/e_images/Transparent.gif&logId=
=3D992404") (:border . "0")) (table (:width . "600") (:align . "center") (:=
cellpadding . "0") (:cellspacing . "0") (:border . "0") (td (:height . "30"=
) (:width . "300") (:style . "font-size:11px; color:#000000;font-family:Ari=
al, Helvetica; color:#999999 ") (text . "Having trouble reading this email?=
 ") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3D=
http://www.genscript.com/Product_email_201104197.html?src=3Demail201104197&=
logId=3D992404&resourceId=3D430") (:style . "text-decoration:underline; col=
or:#0000CC;") (text . "View it on the web")) (text . ". ")) (text . "\n	") =
(td (:width . "255") (:style . "font-size:11px; font-family:Arial, Helvetic=
a; color:#999999 ") (div (:align . "right") (a (:href . "http://www.genscri=
pt.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/referral_p=
rogram.html?src=3Demail201104197&logId=3D992404&resourceId=3D431") (text . =
"Forward to a friend")))) (text . "\n  ") (td (:width . "35") (div (:align =
. "right") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?=
src=3Dhttp://www.genscript.com/e_images/forward_f.jpg&logId=3D992404") (:bo=
rder . "0")))) (text . "\n")) (table (:width . "600") (:align . "center") (=
:cellpadding . "0") (:cellspacing . "0") (:style . "border: 1px solid #9999=
99;") (tr (td (:height . "15")) (text . "\n  ")) (tr (td (table (:width . "=
600") (:border . "0") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:h=
eight . "39") (div ... ...)) (text . "\n        ") (td (:style . "font-size=
: 11px; color:#014099; font-family:Arial, Helvetica") (div ... ... ... ... =
... ... ... ... ... ... ... ... ... ... ... ... ...)) (text . "\n      ")))=
) (text . "\n  ")) (tr (td (:height . "108") (:background . "http://www.gen=
script.com/cgi-bin/promotion/image2?src=3Dhttp://www.genscript.com/e_images=
/head_bg_eStain.jpg&logId=3D992404") (text . "\n    ") (div (:align . "cent=
er") (:style . "font-size:24px; font-family:Arial, Helvetica; color:#333333=
") (strong (em (text . "e")) (text . "Stain") (sup (text . "TM")) (text . "=
 2.0 is here. "))) (text . "\n    ") (div (:align . "center") (:style . "fo=
nt-size:15px; font-family:Arial, Helvetica;color:#333333; padding-top:10px"=
) (text . "\n    A magical and revolutionary protein gel staining device ")=
)) (text . "\n  ")) (tr (td (a (:href . "http://www.genscript.com/cgi-bin/b=
iology/pagelink2?page=3Dhttp://www.genscript.com/estain_7_min_protein_gel_s=
taining.html?src=3Demail201104197&logId=3D992404&resourceId=3D443") (img (:=
border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?sr=
c=3Dhttp://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg=
&logId=3D992404")))) (text . "\n  ")) (tr (td (table (:width . "600") (:bor=
der . "0") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:width . "200=
") (:height . "60") (div ... ...)) (text . "\n          ") (td (:width . "1=
5") (text . " ")) (text . "\n          ") (td (:style . "font-size:16px; fo=
nt-family:Arial, Helvetica; color:#333333") (text . "Join the ") (span ... =
... ...) (text . " protein gel staining revolution")) (text . "\n        ")=
))) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cell=
spacing . "0") (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:width =
. "15")) (text . "\n    ") (td (:valign . "top") (table ... ... ... ... ...=
 ... ...)) (text . "\n    ") (td (:width . "10")) (text . "\n    \n    \n  =
  ") (td (:valign . "top") (:style . "font-size: 9px; color: #999999; font-=
family:Arial, Helvetica") (br) (text . "\n    Copyright 2011 GenScript USA =
Inc. All rights reserved. ") (br) (a ... ... ...) (text . " a colleague abo=
ut this exciting opportunity, and receive a gift reward. ") (br) (text . "\=
nOur customer representatives are available to assist you 24 hours a day, M=
onday to Friday. We constantly add new services and products to meet your n=
eeds for life science research and drug discovery. ") (br) (br) (text . "\n=
       If you prefer not to receive GenScript News in Email, please ") (a .=
.. ...) (text . ".")) (text . "\n    ") (td (:width . "15")) (text . "\n  "=
)))) (text . "\n  ")) (tr (td (:height . "30") (table (:width . "600") (:bo=
rder . "0") (:cellspacing . "0") (:cellpadding . "0") (:bgcolor . "#f2f2f2"=
) (tr (td (:height . "30") (:style . "font-size: 9px; color: #999999; font-=
family:Arial, Helvetica")) (text . "\n      ")))) (text . "\n  ")))))
  (if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom=
)))
  (let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarr=
ay)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) =
(start (point))) (when style (if (string-match "color" style) (setq shr-sty=
lesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))) =
(if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom))=
) (when style (shr-colorize-region start (point) (cdr (assq (quote color) s=
hr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
  shr-descend((body (img (:src . "http://www.genscript.com/cgi-bin/promotio=
n/image?src=3Dhttp://www.genscript.com/e_images/Transparent.gif&logId=3D992=
404") (:border . "0")) (table (:width . "600") (:align . "center") (:cellpa=
dding . "0") (:cellspacing . "0") (:border . "0") (td (:height . "30") (:wi=
dth . "300") (:style . "font-size:11px; color:#000000;font-family:Arial, He=
lvetica; color:#999999 ") (text . "Having trouble reading this email? ") (a=
 (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp:/=
/www.genscript.com/Product_email_201104197.html?src=3Demail201104197&logId=
=3D992404&resourceId=3D430") (:style . "text-decoration:underline; color:#0=
000CC;") (text . "View it on the web")) (text . ". ")) (text . "\n	") (td (=
:width . "255") (:style . "font-size:11px; font-family:Arial, Helvetica; co=
lor:#999999 ") (div (:align . "right") (a (:href . "http://www.genscript.co=
m/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/referral_progra=
m.html?src=3Demail201104197&logId=3D992404&resourceId=3D431") (text . "Forw=
ard to a friend")))) (text . "\n  ") (td (:width . "35") (div (:align . "ri=
ght") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=
=3Dhttp://www.genscript.com/e_images/forward_f.jpg&logId=3D992404") (:borde=
r . "0")))) (text . "\n")) (table (:width . "600") (:align . "center") (:ce=
llpadding . "0") (:cellspacing . "0") (:style . "border: 1px solid #999999;=
") (tr (td (:height . "15")) (text . "\n  ")) (tr (td (table (:width . "600=
") (:border . "0") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:heig=
ht . "39") (div ... ...)) (text . "\n        ") (td (:style . "font-size: 1=
1px; color:#014099; font-family:Arial, Helvetica") (div ... ... ... ... ...=
 ... ... ... ... ... ... ... ... ... ... ... ...)) (text . "\n      ")))) (=
text . "\n  ")) (tr (td (:height . "108") (:background . "http://www.genscr=
ipt.com/cgi-bin/promotion/image2?src=3Dhttp://www.genscript.com/e_images/he=
ad_bg_eStain.jpg&logId=3D992404") (text . "\n    ") (div (:align . "center"=
) (:style . "font-size:24px; font-family:Arial, Helvetica; color:#333333") =
(strong (em (text . "e")) (text . "Stain") (sup (text . "TM")) (text . " 2.=
0 is here. "))) (text . "\n    ") (div (:align . "center") (:style . "font-=
size:15px; font-family:Arial, Helvetica;color:#333333; padding-top:10px") (=
text . "\n    A magical and revolutionary protein gel staining device "))) =
(text . "\n  ")) (tr (td (a (:href . "http://www.genscript.com/cgi-bin/biol=
ogy/pagelink2?page=3Dhttp://www.genscript.com/estain_7_min_protein_gel_stai=
ning.html?src=3Demail201104197&logId=3D992404&resourceId=3D443") (img (:bor=
der . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=
=3Dhttp://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&=
logId=3D992404")))) (text . "\n  ")) (tr (td (table (:width . "600") (:bord=
er . "0") (:cellspacing . "0") (:cellpadding . "0") (tr (td (:width . "200"=
) (:height . "60") (div ... ...)) (text . "\n          ") (td (:width . "15=
") (text . " ")) (text . "\n          ") (td (:style . "font-size:16px; fon=
t-family:Arial, Helvetica; color:#333333") (text . "Join the ") (span ... .=
.. ...) (text . " protein gel staining revolution")) (text . "\n        "))=
)) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cells=
pacing . "0") (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td (:width .=
 "15")) (text . "\n    ") (td (:valign . "top") (table ... ... ... ... ... =
... ...)) (text . "\n    ") (td (:width . "10")) (text . "\n    \n    \n   =
 ") (td (:valign . "top") (:style . "font-size: 9px; color: #999999; font-f=
amily:Arial, Helvetica") (br) (text . "\n    Copyright 2011 GenScript USA I=
nc. All rights reserved. ") (br) (a ... ... ...) (text . " a colleague abou=
t this exciting opportunity, and receive a gift reward. ") (br) (text . "\n=
Our customer representatives are available to assist you 24 hours a day, Mo=
nday to Friday. We constantly add new services and products to meet your ne=
eds for life science research and drug discovery. ") (br) (br) (text . "\n =
      If you prefer not to receive GenScript News in Email, please ") (a ..=
. ...) (text . ".")) (text . "\n    ") (td (:width . "15")) (text . "\n  ")=
))) (text . "\n  ")) (tr (td (:height . "30") (table (:width . "600") (:bor=
der . "0") (:cellspacing . "0") (:cellpadding . "0") (:bgcolor . "#f2f2f2")=
 (tr (td (:height . "30") (:style . "font-size: 9px; color: #999999; font-f=
amily:Arial, Helvetica")) (text . "\n      ")))) (text . "\n  ")))))
  (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr s=
ub)) (shr-descend sub)))
  (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq =
(car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-des=
cend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp-- (setq sub =
(car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (c=
dr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (=
cdr --cl-dolist-temp--))) nil)
  (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- cont) sub) (whi=
le --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car s=
ub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend s=
ub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp=
-- cont) sub) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--))=
 (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr su=
b)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))=
 nil)))
  (block nil (let ((--cl-dolist-temp-- cont) sub) (while --cl-dolist-temp--=
 (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (sh=
r-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-doli=
st-temp-- (cdr --cl-dolist-temp--))) nil))
  (dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr su=
b))) ((listp (cdr sub)) (shr-descend sub))))
  shr-generic(((head (meta (:http-equiv . "Content-Type") (:content . "text=
/html; charset=3Dutf-8"))) (body (img (:src . "http://www.genscript.com/cgi=
-bin/promotion/image?src=3Dhttp://www.genscript.com/e_images/Transparent.gi=
f&logId=3D992404") (:border . "0")) (table (:width . "600") (:align . "cent=
er") (:cellpadding . "0") (:cellspacing . "0") (:border . "0") (td (:height=
 . "30") (:width . "300") (:style . "font-size:11px; color:#000000;font-fam=
ily:Arial, Helvetica; color:#999999 ") (text . "Having trouble reading this=
 email? ") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?=
page=3Dhttp://www.genscript.com/Product_email_201104197.html?src=3Demail201=
104197&logId=3D992404&resourceId=3D430") (:style . "text-decoration:underli=
ne; color:#0000CC;") (text . "View it on the web")) (text . ". ")) (text . =
"\n	") (td (:width . "255") (:style . "font-size:11px; font-family:Arial, H=
elvetica; color:#999999 ") (div (:align . "right") (a (:href . "http://www.=
genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/ref=
erral_program.html?src=3Demail201104197&logId=3D992404&resourceId=3D431") (=
text . "Forward to a friend")))) (text . "\n  ") (td (:width . "35") (div (=
:align . "right") (img (:src . "http://www.genscript.com/cgi-bin/promotion/=
image2?src=3Dhttp://www.genscript.com/e_images/forward_f.jpg&logId=3D992404=
") (:border . "0")))) (text . "\n")) (table (:width . "600") (:align . "cen=
ter") (:cellpadding . "0") (:cellspacing . "0") (:style . "border: 1px soli=
d #999999;") (tr (td (:height . "15")) (text . "\n  ")) (tr (td (table (:wi=
dth . "600") (:border . "0") (:cellspacing . "0") (:cellpadding . "0") (tr =
(td ... ...) (text . "\n        ") (td ... ...) (text . "\n      ")))) (tex=
t . "\n  ")) (tr (td (:height . "108") (:background . "http://www.genscript=
.com/cgi-bin/promotion/image2?src=3Dhttp://www.genscript.com/e_images/head_=
bg_eStain.jpg&logId=3D992404") (text . "\n    ") (div (:align . "center") (=
:style . "font-size:24px; font-family:Arial, Helvetica; color:#333333") (st=
rong (em ...) (text . "Stain") (sup ...) (text . " 2.0 is here. "))) (text =
. "\n    ") (div (:align . "center") (:style . "font-size:15px; font-family=
:Arial, Helvetica;color:#333333; padding-top:10px") (text . "\n    A magica=
l and revolutionary protein gel staining device "))) (text . "\n  ")) (tr (=
td (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dh=
ttp://www.genscript.com/estain_7_min_protein_gel_staining.html?src=3Demail2=
01104197&logId=3D992404&resourceId=3D443") (img (:border . "0") (:src . "ht=
tp://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.genscript.=
com/gsimages/eimages/Product_email_201104197_2.jpg&logId=3D992404")))) (tex=
t . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing =
. "0") (:cellpadding . "0") (tr (td ... ... ...) (text . "\n          ") (t=
d ... ...) (text . "\n          ") (td ... ... ... ...) (text . "\n        =
")))) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:ce=
llspacing . "0") (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td ...) (=
text . "\n    ") (td ... ...) (text . "\n    ") (td ...) (text . "\n    \n =
   \n    ") (td ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (t=
ext . "\n    ") (td ...) (text . "\n  ")))) (text . "\n  ")) (tr (td (:heig=
ht . "30") (table (:width . "600") (:border . "0") (:cellspacing . "0") (:c=
ellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td ... ...) (text . "\n      =
")))) (text . "\n  "))))))
  (if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom=
)))
  (let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarr=
ay)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) =
(start (point))) (when style (if (string-match "color" style) (setq shr-sty=
lesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))) =
(if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom))=
) (when style (shr-colorize-region start (point) (cdr (assq (quote color) s=
hr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
  shr-descend((html (head (meta (:http-equiv . "Content-Type") (:content . =
"text/html; charset=3Dutf-8"))) (body (img (:src . "http://www.genscript.co=
m/cgi-bin/promotion/image?src=3Dhttp://www.genscript.com/e_images/Transpare=
nt.gif&logId=3D992404") (:border . "0")) (table (:width . "600") (:align . =
"center") (:cellpadding . "0") (:cellspacing . "0") (:border . "0") (td (:h=
eight . "30") (:width . "300") (:style . "font-size:11px; color:#000000;fon=
t-family:Arial, Helvetica; color:#999999 ") (text . "Having trouble reading=
 this email? ") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagel=
ink2?page=3Dhttp://www.genscript.com/Product_email_201104197.html?src=3Dema=
il201104197&logId=3D992404&resourceId=3D430") (:style . "text-decoration:un=
derline; color:#0000CC;") (text . "View it on the web")) (text . ". ")) (te=
xt . "\n	") (td (:width . "255") (:style . "font-size:11px; font-family:Ari=
al, Helvetica; color:#999999 ") (div (:align . "right") (a (:href . "http:/=
/www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.co=
m/referral_program.html?src=3Demail201104197&logId=3D992404&resourceId=3D43=
1") (text . "Forward to a friend")))) (text . "\n  ") (td (:width . "35") (=
div (:align . "right") (img (:src . "http://www.genscript.com/cgi-bin/promo=
tion/image2?src=3Dhttp://www.genscript.com/e_images/forward_f.jpg&logId=3D9=
92404") (:border . "0")))) (text . "\n")) (table (:width . "600") (:align .=
 "center") (:cellpadding . "0") (:cellspacing . "0") (:style . "border: 1px=
 solid #999999;") (tr (td (:height . "15")) (text . "\n  ")) (tr (td (table=
 (:width . "600") (:border . "0") (:cellspacing . "0") (:cellpadding . "0")=
 (tr (td ... ...) (text . "\n        ") (td ... ...) (text . "\n      "))))=
 (text . "\n  ")) (tr (td (:height . "108") (:background . "http://www.gens=
cript.com/cgi-bin/promotion/image2?src=3Dhttp://www.genscript.com/e_images/=
head_bg_eStain.jpg&logId=3D992404") (text . "\n    ") (div (:align . "cente=
r") (:style . "font-size:24px; font-family:Arial, Helvetica; color:#333333"=
) (strong (em ...) (text . "Stain") (sup ...) (text . " 2.0 is here. "))) (=
text . "\n    ") (div (:align . "center") (:style . "font-size:15px; font-f=
amily:Arial, Helvetica;color:#333333; padding-top:10px") (text . "\n    A m=
agical and revolutionary protein gel staining device "))) (text . "\n  ")) =
(tr (td (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?pag=
e=3Dhttp://www.genscript.com/estain_7_min_protein_gel_staining.html?src=3De=
mail201104197&logId=3D992404&resourceId=3D443") (img (:border . "0") (:src =
. "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.gensc=
ript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=3D992404"))))=
 (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0") (:cellspa=
cing . "0") (:cellpadding . "0") (tr (td ... ... ...) (text . "\n          =
") (td ... ...) (text . "\n          ") (td ... ... ... ...) (text . "\n   =
     ")))) (text . "\n  ")) (tr (td (table (:width . "600") (:border . "0")=
 (:cellspacing . "0") (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td .=
..) (text . "\n    ") (td ... ...) (text . "\n    ") (td ...) (text . "\n  =
  \n    \n    ") (td ... ... ... ... ... ... ... ... ... ... ... ... ... ..=
.) (text . "\n    ") (td ...) (text . "\n  ")))) (text . "\n  ")) (tr (td (=
:height . "30") (table (:width . "600") (:border . "0") (:cellspacing . "0"=
) (:cellpadding . "0") (:bgcolor . "#f2f2f2") (tr (td ... ...) (text . "\n =
     ")))) (text . "\n  "))))))
  (let ((shr-state nil) (shr-start nil) (shr-base nil) (shr-width (or shr-w=
idth (window-width)))) (shr-descend (shr-transform-dom dom)))
  shr-insert-document((html nil (head nil (meta ((http-equiv . "Content-Typ=
e") (content . "text/html; charset=3Dutf-8")))) (body nil (img ((src . "htt=
p://www.genscript.com/cgi-bin/promotion/image?src=3Dhttp://www.genscript.co=
m/e_images/Transparent.gif&logId=3D992404") (border . "0"))) (table ((width=
 . "600") (align . "center") (cellpadding . "0") (cellspacing . "0") (borde=
r . "0")) (td ((height . "30") (width . "300") (style . "font-size:11px; co=
lor:#000000;font-family:Arial, Helvetica; color:#999999 ")) "Having trouble=
 reading this email? " (a ((href . "http://www.genscript.com/cgi-bin/biolog=
y/pagelink2?page=3Dhttp://www.genscript.com/Product_email_201104197.html?sr=
c=3Demail201104197&logId=3D992404&resourceId=3D430") (style . "text-decorat=
ion:underline; color:#0000CC;")) "View it on the web") ". ") "\n	" (td ((wi=
dth . "255") (style . "font-size:11px; font-family:Arial, Helvetica; color:=
#999999 ")) (div ((align . "right")) (a ((href . "http://www.genscript.com/=
cgi-bin/biology/pagelink2?page=3Dhttp://www.genscript.com/referral_program.=
html?src=3Demail201104197&logId=3D992404&resourceId=3D431")) "Forward to a =
friend"))) "\n  " (td ((width . "35")) (div ((align . "right")) (img ((src =
. "http://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.gensc=
ript.com/e_images/forward_f.jpg&logId=3D992404") (border . "0"))))) "\n") (=
table ((width . "600") (align . "center") (cellpadding . "0") (cellspacing =
. "0") (style . "border: 1px solid #999999;")) (tr nil (td ((height . "15")=
)) "\n  ") (tr nil (td nil (table ((width . "600") (border . "0") (cellspac=
ing . "0") (cellpadding . "0")) (tr nil (td ... ...) "\n        " (td ... .=
..) "\n      "))) "\n  ") (tr nil (td ((height . "108") (background . "http=
://www.genscript.com/cgi-bin/promotion/image2?src=3Dhttp://www.genscript.co=
m/e_images/head_bg_eStain.jpg&logId=3D992404")) "\n    " (div ((align . "ce=
nter") (style . "font-size:24px; font-family:Arial, Helvetica; color:#33333=
3")) (strong nil (em nil "e") "Stain" (sup nil "TM") " 2.0 is here. ")) "\n=
    " (div ((align . "center") (style . "font-size:15px; font-family:Arial,=
 Helvetica;color:#333333; padding-top:10px")) "\n    A magical and revoluti=
onary protein gel staining device ")) "\n  ") (tr nil (td nil (a ((href . "=
http://www.genscript.com/cgi-bin/biology/pagelink2?page=3Dhttp://www.genscr=
ipt.com/estain_7_min_protein_gel_staining.html?src=3Demail201104197&logId=
=3D992404&resourceId=3D443")) (img (... ...)))) "\n  ") (tr nil (td nil (ta=
ble ((width . "600") (border . "0") (cellspacing . "0") (cellpadding . "0")=
) (tr nil (td ... ...) "\n          " (td ... " ") "\n          " (td ... "=
Join the " ... " protein gel staining revolution") "\n        "))) "\n  ") =
(tr nil (td nil (table ((width . "600") (border . "0") (cellspacing . "0") =
(cellpadding . "0") (bgcolor . "#f2f2f2")) (tr nil (td ...) "\n    " (td ..=
. ...) "\n    " (td ...) "\n    \n    \n    " (td ... ... "\n    Copyright =
2011 GenScript USA Inc. All rights reserved. " ... ... " a colleague about =
this exciting opportunity, and receive a gift reward. " ... "\nOur customer=
 representatives are available to assist you 24 hours a day, Monday to Frid=
ay. We constantly add new services and products to meet your needs for life=
 science research and drug discovery. " ... ... "\n       If you prefer not=
 to receive GenScript News in Email, please " ... ".") "\n    " (td ...) "\=
n  "))) "\n  ") (tr nil (td ((height . "30")) (table ((width . "600") (bord=
er . "0") (cellspacing . "0") (cellpadding . "0") (bgcolor . "#f2f2f2")) (t=
r nil (td ...) "\n      "))) "\n  ")))))
  mm-shr((#<buffer  *mm*<3>> ("text/html" (charset . "utf-8")) quoted-print=
able nil nil nil nil nil))
  mm-inline-text-html((#<buffer  *mm*<3>> ("text/html" (charset . "utf-8"))=
 quoted-printable nil nil nil nil nil))
  mm-display-inline((#<buffer  *mm*<3>> ("text/html" (charset . "utf-8")) q=
uoted-printable nil nil nil nil nil))
  mm-display-part((#<buffer  *mm*<3>> ("text/html" (charset . "utf-8")) quo=
ted-printable nil nil nil nil nil) t)
  byte-code("\203.=00\306\211A.@	\"\203.=00\307\300\310\"\210\202.=00\n\2=
11.\205\".\311\312=0B!!)\203/.r\nq\210\f)\2020.\f\203:.\306\313	\"\204x.\31=
4.!?\205T.\315.8?\206T.\315.8@\316\232\206T.\317.!\211.)\203x.\320.!\203x.\=
321.!\203l.\322.!\204r.\323	!\203x.\324.*\202\231.=0D.\325.\211.@;\203\210.=
=0D@\202\214.=0DA@@)\326\"@)\327\232\203\231.\324.+.,GT\310.-\211...B.,B.,.=
*\203\353.=0D.\325.\211.@;\203\277.=0D@\202\303.=0DA@@)\326\"@)\330\232\203=
\353.\331\332n\204\327.\333\202\351.o\204\344.`SSf\332=3D\203\350.\334\202\=
351.\335\"\210.*\203\376.\336	!\203\376.=0E../=3D\203.=01\337.=0E..*\206.=
=01.)\205.=01.+C#\210\340 \210\324.0`.-.*\203\226.=0E0\203*.\341y\210`.-.1\=
212\310\342\343\217\210.2).3.4.5\344=3D\203[.=0E6\211.\205L.\311\312=0B!!)\=
203[.r.6q\210.7)\202].=0E7\211.8\204g.\324\202\201.=0E9;\203v.\306.9.8\"\20=
2\201.=0E9:\205\201.=0E8.9\235?\205\207.=0E:).:\345.\324\"\210+db\210\202\2=
65.=0E+\203\265.=0E)\203\265.=0E0\203\253.\341y\210`.-\340 \210\346.!\210db=
\210\212\214.-`}\210.=0E;=3D\203\335.\347\310\335\211.\211.@;\203\324.=0D@\=
202\330.=0DA@@)$\202..\310.<.;\310.=3D\211.>\203.=02.>@\211.=3D;\204.=02.=
=3DA@@\350\232\204.=02.=3D.<B.<.>A\211.>\204\353.*\347\310.=0E<>G.<G.\211.@=
;\203'.=0D@\202+.=0DA@@)$),\207" [ignored type gnus-summary-buffer buffer g=
nus-inhibit-images handle string-match throw nil buffer-live-p get-buffer "=
\\`image/" mm-inline-override-p 4 "inline" mm-attachment-override-p mm-auto=
matic-display-p mm-inlinable-p mm-inlined-p mm-automatic-external-display-p=
 t split-string "/" "text" "message" insert-char 10 2 0 1 gnus-unbuttonized=
-mime-type-p gnus-insert-mime-button gnus-article-insert-newline -1 (set-bu=
ffer gnus-summary-buffer) ((error)) gnus-article-mode mm-display-part mm-di=
splay-inline gnus-treat-article "application/pgp-signature" not-attachment =
display text gnus-article-mime-handle-alist beg id gnus-mime-buttonized-par=
t-id move gnus-newsgroup-charset ...] 6)
  gnus-mime-display-single((#<buffer  *mm*<3>> ("text/html" (charset . "utf=
-8")) quoted-printable nil nil nil nil nil))
  gnus-mime-display-part((#<buffer  *mm*<3>> ("text/html" (charset . "utf-8=
")) quoted-printable nil nil nil nil nil))
  gnus-mime-display-part((#("multipart/related" 0 17 (boundary "----=3D_Par=
t_932859_23977287.1304558178328" buffer #<buffer  *mm*<2>> from "service001=
@molecular-biology.net" start nil)) (#<buffer  *mm*<3>> ("text/html" (chars=
et . "utf-8")) quoted-printable nil nil nil nil nil)))
  mapcar(gnus-mime-display-part ((#("multipart/related" 0 17 (boundary "---=
-=3D_Part_932859_23977287.1304558178328" buffer #<buffer  *mm*<2>> from "se=
rvice001@molecular-biology.net" start nil)) (#<buffer  *mm*<3>> ("text/html=
" (charset . "utf-8")) quoted-printable nil nil nil nil nil))))
  gnus-mime-display-mixed(((#("multipart/related" 0 17 (boundary "----=3D_P=
art_932859_23977287.1304558178328" buffer #<buffer  *mm*<2>> from "service0=
01@molecular-biology.net" start nil)) (#<buffer  *mm*<3>> ("text/html" (cha=
rset . "utf-8")) quoted-printable nil nil nil nil nil))))
  gnus-mime-display-part((#("multipart/mixed" 0 15 (boundary "----=3D_Part_=
932858_4012306.1304558178328" buffer #<buffer  *mm*> from "service001@molec=
ular-biology.net" start nil)) (#("multipart/related" 0 17 (boundary "----=
=3D_Part_932859_23977287.1304558178328" buffer #<buffer  *mm*<2>> from "ser=
vice001@molecular-biology.net" start nil)) (#<buffer  *mm*<3>> ("text/html"=
 (charset . "utf-8")) quoted-printable nil nil nil nil nil))))
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(3122 nil)
  gnus-summary-display-article(3122)
  gnus-summary-next-article(nil nil t)
  gnus-summary-prev-article(nil)
  call-interactively(gnus-summary-prev-article nil nil)
--8<---------------cut here---------------end--------------->8---

I hope this rather extensive backtrace (I am impressed at the depth of
coding here!) helps track this down.

Thanks,
eric

--=20
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 24.0.50.1 + No Gnus v0.=
18