* Re: problem reading gwene feeds in gnus agent
2011-05-03 16:43 problem reading gwene feeds in gnus agent Eric S Fraga
@ 2011-05-05 7:46 ` Eric S Fraga
2011-05-05 15:53 ` Ted Zlatanov
0 siblings, 1 reply; 6+ messages in thread
From: Eric S Fraga @ 2011-05-05 7:46 UTC (permalink / raw)
To: ding
... 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 (memq type old-props))) change) (while (< start end) (setq change (next-single-property-change start (quote face) nil end)) (when do-put (put-text-property start change (quote face) (nconc (list type color) old-props))) (setq old-props (get-text-property change (quote face))) (setq do-put (not (memq type 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))) (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 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 end))) (when (and (eq type :background) (= 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-colors)))))
(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 (shr-put-color start end :foreground (cadr new-colors))) (when bg (shr-put-color 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 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)))
(when (or fg bg) (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))
shr-colorize-region(1 6 "#014099" nil)
(progn (shr-colorize-region start (point) (cdr (assq (quote color) shr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet))))
(if style (progn (shr-colorize-region start (point) (cdr (assq (quote color) shr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
(when style (shr-colorize-region start (point) (cdr (assq (quote color) shr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet))))
(let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarray)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) (start (point))) (when style (if (string-match "color" style) (setq shr-stylesheet (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) shr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
shr-descend((a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")))
(cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (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-descend 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 (cdr 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) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (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 sub)) (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)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
(dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))))
shr-generic(((:align . "center") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (text . "Promotions")) (text . " ")))
shr-tag-div(((:align . "center") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (text . "Promotions")) (text . " ")))
funcall(shr-tag-div ((:align . "center") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=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))) obarray)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) (start (point))) (when style (if (string-match "color" style) (setq shr-stylesheet (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) shr-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=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (text . "Promotions")) (text . " ")))
(cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (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-descend 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 (cdr 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) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (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 sub)) (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)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
(dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((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=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=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))) obarray)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) (start (point))) (when style (if (string-match "color" style) (setq shr-stylesheet (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) shr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
shr-descend((td (: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=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=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 ... ...)) (properties (nth 2 overlay))) (while properties (overlay-put new-overlay (pop properties) (pop properties))))))) (let ((shr-width width) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-max))) shr-content-cache))
(let ((cache (cdr (assoc (cons width cont) shr-content-cache)))) (if cache (progn (insert (car cache)) (let ((end (length (car cache)))) (dolist (overlay (cadr cache)) (let ((new-overlay ...) (properties ...)) (while properties (overlay-put new-overlay ... ...)))))) (let ((shr-width width) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-max))) shr-content-cache)))
(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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons (quote background-color) bgcolor)) style))) (when fgcolor (setq style (nconc (list (cons (quote color) fgcolor)) style))) (when style (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 (length ...))) (dolist (overlay (cadr cache)) (let (... ...) (while properties ...))))) (let ((shr-width width) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-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)) (insert (make-string width 32)) (while (not (eobp)) (end-of-line) (when (> (- width ...) 0) (insert (make-string ... 32))) (forward-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-string (buffer-string) "\n") (shr-collect-overlays) (car actual-colors)) (list max (shr-natural-width)))))
(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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons (quote background-color) bgcolor)) style))) (when fgcolor (setq style (nconc (list (cons (quote color) fgcolor)) style))) (when style (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))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-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)) (insert (make-string width 32)) (while (not (eobp)) (end-of-line) (when (> ... 0) (insert ...)) (forward-line 1))) (when style (setq actual-colors (shr-colorize-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-width))))))
(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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons ... bgcolor)) style))) (when fgcolor (setq style (nconc (list (cons ... fgcolor)) style))) (when style (setq shr-stylesheet (append style shr-stylesheet))) (let ((cache (cdr (assoc ... shr-content-cache)))) (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 (list (cons width cont) (buffer-string) (shr-overlays-in-region ... ...)) 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)) (insert (make-string 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 (buffer-string) "\n") (shr-collect-overlays) (car actual-colors)) (list max (shr-natural-width)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list ...) style))) (when fgcolor (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-region (point) (+ ... ...)) (push (list ... ... ...) shr-content-cache))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp)) (end-of-line) (setq max (max max ...)) (forward-line 1)) (when fill (goto-char (point-min)) (if (zerop ...) (insert ...) (while ... ... ... ...)) (when style (setq actual-colors ...))) (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))))
(with-current-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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list ...) style))) (when fgcolor (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-region (point) (+ ... ...)) (push (list ... ... ...) shr-content-cache))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp)) (end-of-line) (setq max (max max ...)) (forward-line 1)) (when fill (goto-char (point-min)) (if (zerop ...) (insert ...) (while ... ... ... ...)) (when style (setq actual-colors ...))) (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-colors) (when style (setq style (and ... ...))) (when bgcolor (setq style (nconc ... 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 ...) (end-of-line) (setq max ...) (forward-line 1)) (when fill (goto-char ...) (if ... ... ...) (when style ...)) (if fill (list max ... ... ... ...) (list max ...))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
(with-temp-buffer (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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons (quote background-color) bgcolor)) style))) (when fgcolor (setq style (nconc (list (cons (quote color) fgcolor)) style))) (when style (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))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-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)) (insert (make-string width 32)) (while (not (eobp)) (end-of-line) (when (> ... 0) (insert ...)) (forward-line 1))) (when style (setq actual-colors (shr-colorize-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-width))))))
shr-render-td(((: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=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=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-render-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 column) (aref widths i) fill) tds) (setq i (1+ i))))
(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 (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 (length widths)) (setq column (pop columns)) (when (or (memq (car column) (quote (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)) (when (or (memq (car column) (quote ...)) (null column)) (push (shr-render-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i)))) (push (nreverse tds) 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 (cdr 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) (while (< i (length widths)) (setq column (pop columns)) (when (or (memq (car column) (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 --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil)
(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 (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 tds) 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)) (setq 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) (columns (cdr row)) (i 0) column) (while (< i (length widths)) (setq column (pop columns)) (when (or (memq (car column) (quote ...)) (null column)) (push (shr-render-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i)))) (push (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 (shr-render-td ... ... fill) tds) (setq i (1+ i)))) (push (nreverse tds) trs)))) (nreverse trs))
shr-make-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=http://www.genscript.com?src=email201104197&logId=992404&resourceId=433") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/LOGO.jpg&logId=992404") (: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, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (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 (shr-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 cont 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 (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com?src=email201104197&logId=992404&resourceId=433") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/LOGO.jpg&logId=992404") (: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, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (text . "Promotions")) (text . " "))) (text . "\n "))))
(let* ((caption (cdr (assq (quote caption) cont))) (header (cdr (assq (quote thead) cont))) (body (or (cdr (assq (quote tbody) cont)) cont)) (footer (cdr (assq (quote tfoot) cont))) (bgcolor (cdr (assq :bgcolor cont))) (start (point)) (shr-stylesheet (nconc (list (cons (quote background-color) bgcolor)) shr-stylesheet)) (nheader (if header (shr-max-columns header))) (nbody (if body (shr-max-columns body))) (nfooter (if footer (shr-max-columns footer)))) (shr-tag-table-1 (nconc (if caption (\` ((tr (td ...))))) (if header (if footer (if (= nheader nbody) (if (= nbody nfooter) (\` ...) (nconc ... ...)) (nconc (\` ...) (if ... ... ...))) (if (= nheader nbody) (\` (...)) (if (= nheader 1) (\` ...) (\` ...)))) (if footer (if (= nbody nfooter) (\` (...)) (nconc (\` ...) (if ... footer ...))) (if caption (\` (...)) body))))) (when bgcolor (shr-colorize-region start (point) (cdr (assq (quote color) shr-stylesheet)) bgcolor)))
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=http://www.genscript.com?src=email201104197&logId=992404&resourceId=433") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/LOGO.jpg&logId=992404") (: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, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (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=http://www.genscript.com?src=email201104197&logId=992404&resourceId=433") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/LOGO.jpg&logId=992404") (: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, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (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))) obarray)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) (start (point))) (when style (if (string-match "color" style) (setq shr-stylesheet (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) shr-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=http://www.genscript.com?src=email201104197&logId=992404&resourceId=433") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/LOGO.jpg&logId=992404") (: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, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (text . "Promotions")) (text . " "))) (text . "\n "))))
(cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (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-descend 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 (cdr 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) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (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 sub)) (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)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
(dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((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=http://www.genscript.com?src=email201104197&logId=992404&resourceId=433") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/LOGO.jpg&logId=992404") (: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, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (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))) obarray)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) (start (point))) (when style (if (string-match "color" style) (setq shr-stylesheet (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) shr-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=http://www.genscript.com?src=email201104197&logId=992404&resourceId=433") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/LOGO.jpg&logId=992404") (: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, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (text . "Promotions")) (text . " "))) (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 ... ...)) (properties (nth 2 overlay))) (while properties (overlay-put new-overlay (pop properties) (pop properties))))))) (let ((shr-width width) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-max))) shr-content-cache))
(let ((cache (cdr (assoc (cons width cont) shr-content-cache)))) (if cache (progn (insert (car cache)) (let ((end (length (car cache)))) (dolist (overlay (cadr cache)) (let ((new-overlay ...) (properties ...)) (while properties (overlay-put new-overlay ... ...)))))) (let ((shr-width width) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-max))) shr-content-cache)))
(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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons (quote background-color) bgcolor)) style))) (when fgcolor (setq style (nconc (list (cons (quote color) fgcolor)) style))) (when style (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 (length ...))) (dolist (overlay (cadr cache)) (let (... ...) (while properties ...))))) (let ((shr-width width) (shr-indentation 0)) (shr-descend (cons (quote td) cont))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-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)) (insert (make-string width 32)) (while (not (eobp)) (end-of-line) (when (> (- width ...) 0) (insert (make-string ... 32))) (forward-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-string (buffer-string) "\n") (shr-collect-overlays) (car actual-colors)) (list max (shr-natural-width)))))
(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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons (quote background-color) bgcolor)) style))) (when fgcolor (setq style (nconc (list (cons (quote color) fgcolor)) style))) (when style (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))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-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)) (insert (make-string width 32)) (while (not (eobp)) (end-of-line) (when (> ... 0) (insert ...)) (forward-line 1))) (when style (setq actual-colors (shr-colorize-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-width))))))
(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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons ... bgcolor)) style))) (when fgcolor (setq style (nconc (list (cons ... fgcolor)) style))) (when style (setq shr-stylesheet (append style shr-stylesheet))) (let ((cache (cdr (assoc ... shr-content-cache)))) (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 (list (cons width cont) (buffer-string) (shr-overlays-in-region ... ...)) 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)) (insert (make-string 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 (buffer-string) "\n") (shr-collect-overlays) (car actual-colors)) (list max (shr-natural-width)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list ...) style))) (when fgcolor (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-region (point) (+ ... ...)) (push (list ... ... ...) shr-content-cache))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp)) (end-of-line) (setq max (max max ...)) (forward-line 1)) (when fill (goto-char (point-min)) (if (zerop ...) (insert ...) (while ... ... ... ...)) (when style (setq actual-colors ...))) (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))))
(with-current-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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list ...) style))) (when fgcolor (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-region (point) (+ ... ...)) (push (list ... ... ...) shr-content-cache))) (goto-char (point-min)) (let ((max 0)) (while (not (eobp)) (end-of-line) (setq max (max max ...)) (forward-line 1)) (when fill (goto-char (point-min)) (if (zerop ...) (insert ...) (while ... ... ... ...)) (when style (setq actual-colors ...))) (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-colors) (when style (setq style (and ... ...))) (when bgcolor (setq style (nconc ... 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 ...) (end-of-line) (setq max ...) (forward-line 1)) (when fill (goto-char ...) (if ... ... ...) (when style ...)) (if fill (list max ... ... ... ...) (list max ...))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
(with-temp-buffer (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) (shr-parse-style style)))) (when bgcolor (setq style (nconc (list (cons (quote background-color) bgcolor)) style))) (when fgcolor (setq style (nconc (list (cons (quote color) fgcolor)) style))) (when style (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))) (delete-region (point) (+ (point) (skip-chars-backward " \n"))) (push (list (cons width cont) (buffer-string) (shr-overlays-in-region (point-min) (point-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)) (insert (make-string width 32)) (while (not (eobp)) (end-of-line) (when (> ... 0) (insert ...)) (forward-line 1))) (when style (setq actual-colors (shr-colorize-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-width))))))
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=http://www.genscript.com?src=email201104197&logId=992404&resourceId=433") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/LOGO.jpg&logId=992404") (: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, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/molecular_biology_service.html?src=email201104197&logId=992404&resourceId=435") (text . "Gene")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/protein_service.html?src=email201104197&logId=992404&resourceId=436") (text . "Protein")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/peptide_overview.html?src=email201104197&logId=992404&resourceId=437") (text . "Peptide")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/antibody.html?src=email201104197&logId=992404&resourceId=438") (text . "Antibody")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/cell_line_services.html?src=email201104197&logId=992404&resourceId=439") (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=http://www.genscript.com/bio-assay_center.html?src=email201104197&logId=992404&resourceId=440") (text . "Bio-Assay")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/products.html?src=email201104197&logId=992404&resourceId=441") (text . "Products")) (text . " | ") (a (:style . "font-size: 11px; color:#014099; font-family:Arial, Helvetica") (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/promotions.html?src=email201104197&logId=992404&resourceId=442") (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-render-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 column) (aref widths i) fill) tds) (setq i (1+ i))))
(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 (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 (length widths)) (setq column (pop columns)) (when (or (memq (car column) (quote (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)) (when (or (memq (car column) (quote ...)) (null column)) (push (shr-render-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i)))) (push (nreverse tds) 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 (cdr 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) (while (< i (length widths)) (setq column (pop columns)) (when (or (memq (car column) (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 --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil)
(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 (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 tds) 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)) (setq 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) (columns (cdr row)) (i 0) column) (while (< i (length widths)) (setq column (pop columns)) (when (or (memq (car column) (quote ...)) (null column)) (push (shr-render-td (cdr column) (aref widths i) fill) tds) (setq i (1+ i)))) (push (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 (shr-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 (:height . "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/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (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/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (text . "\n ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "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=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Inform")) (text . " a colleague about this exciting opportunity, and receive a gift reward. ") (br) (text . "\nOur customer representatives 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 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=http://www.genscript.com/cgi-bin/tech_support/unsubscribe_request2?src=email201104197&logId=992404&resourceId=451") (text . "unsubscribe")) (text . ".")) (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: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 (shr-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 cont sketch-widths t) sketch-widths))
shr-tag-table-1(((: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") (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/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (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/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (text . "\n ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "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=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Inform")) (text . " a colleague about this exciting opportunity, and receive a gift reward. ") (br) (text . "\nOur customer representatives 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 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=http://www.genscript.com/cgi-bin/tech_support/unsubscribe_request2?src=email201104197&logId=992404&resourceId=451") (text . "unsubscribe")) (text . ".")) (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:Arial, Helvetica")) (text . "\n ")))) (text . "\n "))))
(let* ((caption (cdr (assq (quote caption) cont))) (header (cdr (assq (quote thead) cont))) (body (or (cdr (assq (quote tbody) cont)) cont)) (footer (cdr (assq (quote tfoot) cont))) (bgcolor (cdr (assq :bgcolor cont))) (start (point)) (shr-stylesheet (nconc (list (cons (quote background-color) bgcolor)) shr-stylesheet)) (nheader (if header (shr-max-columns header))) (nbody (if body (shr-max-columns body))) (nfooter (if footer (shr-max-columns footer)))) (shr-tag-table-1 (nconc (if caption (\` ((tr (td ...))))) (if header (if footer (if (= nheader nbody) (if (= nbody nfooter) (\` ...) (nconc ... ...)) (nconc (\` ...) (if ... ... ...))) (if (= nheader nbody) (\` (...)) (if (= nheader 1) (\` ...) (\` ...)))) (if footer (if (= nbody nfooter) (\` (...)) (nconc (\` ...) (if ... footer ...))) (if caption (\` (...)) body))))) (when bgcolor (shr-colorize-region start (point) (cdr (assq (quote color) shr-stylesheet)) bgcolor)))
shr-tag-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") (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/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (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/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (text . "\n ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "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=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Inform")) (text . " a colleague about this exciting opportunity, and receive a gift reward. ") (br) (text . "\nOur customer representatives 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 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=http://www.genscript.com/cgi-bin/tech_support/unsubscribe_request2?src=email201104197&logId=992404&resourceId=451") (text . "unsubscribe")) (text . ".")) (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:Arial, Helvetica")) (text . "\n ")))) (text . "\n "))))
funcall(shr-tag-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") (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/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (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/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (text . "\n ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "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=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Inform")) (text . " a colleague about this exciting opportunity, and receive a gift reward. ") (br) (text . "\nOur customer representatives 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 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=http://www.genscript.com/cgi-bin/tech_support/unsubscribe_request2?src=email201104197&logId=992404&resourceId=451") (text . "unsubscribe")) (text . ".")) (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: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))) obarray)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) (start (point))) (when style (if (string-match "color" style) (setq shr-stylesheet (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) shr-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") (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/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (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/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (text . "\n ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "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=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Inform")) (text . " a colleague about this exciting opportunity, and receive a gift reward. ") (br) (text . "\nOur customer representatives 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 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=http://www.genscript.com/cgi-bin/tech_support/unsubscribe_request2?src=email201104197&logId=992404&resourceId=451") (text . "unsubscribe")) (text . ".")) (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:Arial, Helvetica")) (text . "\n ")))) (text . "\n "))))
(cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (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-descend 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 (cdr 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) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (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 sub)) (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)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
(dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))))
shr-generic(((img (:src . "http://www.genscript.com/cgi-bin/promotion/image?src=http://www.genscript.com/e_images/Transparent.gif&logId=992404") (: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, Helvetica; color:#999999 ") (text . "Having trouble reading this email? ") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/Product_email_201104197.html?src=email201104197&logId=992404&resourceId=430") (: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:#999999 ") (div (:align . "right") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Forward to a friend")))) (text . "\n ") (td (:width . "35") (div (:align . "right") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/forward_f.jpg&logId=992404") (: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 (:height . "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.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (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/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (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: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:Arial, Helvetica") (br) (text . "\n Copyright 2011 GenScript USA Inc. All rights reserved. ") (br) (a ... ... ...) (text . " a colleague about this exciting opportunity, and receive a gift reward. ") (br) (text . "\nOur customer representatives 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 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") (:border . "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 ")))))
(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-generic cont) (shr-colorize-region start (point) fgcolor bgcolor))
shr-tag-body(((img (:src . "http://www.genscript.com/cgi-bin/promotion/image?src=http://www.genscript.com/e_images/Transparent.gif&logId=992404") (: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, Helvetica; color:#999999 ") (text . "Having trouble reading this email? ") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/Product_email_201104197.html?src=email201104197&logId=992404&resourceId=430") (: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:#999999 ") (div (:align . "right") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Forward to a friend")))) (text . "\n ") (td (:width . "35") (div (:align . "right") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/forward_f.jpg&logId=992404") (: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 (:height . "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.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (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/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (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: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:Arial, Helvetica") (br) (text . "\n Copyright 2011 GenScript USA Inc. All rights reserved. ") (br) (a ... ... ...) (text . " a colleague about this exciting opportunity, and receive a gift reward. ") (br) (text . "\nOur customer representatives 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 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") (:border . "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 ")))))
funcall(shr-tag-body ((img (:src . "http://www.genscript.com/cgi-bin/promotion/image?src=http://www.genscript.com/e_images/Transparent.gif&logId=992404") (: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, Helvetica; color:#999999 ") (text . "Having trouble reading this email? ") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/Product_email_201104197.html?src=email201104197&logId=992404&resourceId=430") (: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:#999999 ") (div (:align . "right") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Forward to a friend")))) (text . "\n ") (td (:width . "35") (div (:align . "right") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/forward_f.jpg&logId=992404") (: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 (:height . "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.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (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/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (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: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:Arial, Helvetica") (br) (text . "\n Copyright 2011 GenScript USA Inc. All rights reserved. ") (br) (a ... ... ...) (text . " a colleague about this exciting opportunity, and receive a gift reward. ") (br) (text . "\nOur customer representatives 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 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") (:border . "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))) obarray)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) (start (point))) (when style (if (string-match "color" style) (setq shr-stylesheet (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) shr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
shr-descend((body (img (:src . "http://www.genscript.com/cgi-bin/promotion/image?src=http://www.genscript.com/e_images/Transparent.gif&logId=992404") (: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, Helvetica; color:#999999 ") (text . "Having trouble reading this email? ") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/Product_email_201104197.html?src=email201104197&logId=992404&resourceId=430") (: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:#999999 ") (div (:align . "right") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Forward to a friend")))) (text . "\n ") (td (:width . "35") (div (:align . "right") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/forward_f.jpg&logId=992404") (: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 (:height . "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.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (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/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (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: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:Arial, Helvetica") (br) (text . "\n Copyright 2011 GenScript USA Inc. All rights reserved. ") (br) (a ... ... ...) (text . " a colleague about this exciting opportunity, and receive a gift reward. ") (br) (text . "\nOur customer representatives 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 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") (:border . "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 ")))))
(cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (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-descend 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 (cdr 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) (while --cl-dolist-temp-- (setq sub (car --cl-dolist-temp--)) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (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 sub)) (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)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
(dolist (sub cont) (cond ((eq (car sub) (quote text)) (shr-insert (cdr sub))) ((listp (cdr sub)) (shr-descend sub))))
shr-generic(((head (meta (:http-equiv . "Content-Type") (:content . "text/html; charset=utf-8"))) (body (img (:src . "http://www.genscript.com/cgi-bin/promotion/image?src=http://www.genscript.com/e_images/Transparent.gif&logId=992404") (: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, Helvetica; color:#999999 ") (text . "Having trouble reading this email? ") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/Product_email_201104197.html?src=email201104197&logId=992404&resourceId=430") (: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:#999999 ") (div (:align . "right") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Forward to a friend")))) (text . "\n ") (td (:width . "35") (div (:align . "right") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/forward_f.jpg&logId=992404") (: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.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (text . "\n ") (div (:align . "center") (: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-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?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (text . "\n ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "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 "))))))
(if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom)))
(let ((function (intern (concat "shr-tag-" (symbol-name (car dom))) obarray)) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) (start (point))) (when style (if (string-match "color" style) (setq shr-stylesheet (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) shr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))
shr-descend((html (head (meta (:http-equiv . "Content-Type") (:content . "text/html; charset=utf-8"))) (body (img (:src . "http://www.genscript.com/cgi-bin/promotion/image?src=http://www.genscript.com/e_images/Transparent.gif&logId=992404") (: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, Helvetica; color:#999999 ") (text . "Having trouble reading this email? ") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/Product_email_201104197.html?src=email201104197&logId=992404&resourceId=430") (: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:#999999 ") (div (:align . "right") (a (:href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431") (text . "Forward to a friend")))) (text . "\n ") (td (:width . "35") (div (:align . "right") (img (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/forward_f.jpg&logId=992404") (: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.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404") (text . "\n ") (div (:align . "center") (: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-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?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443") (img (:border . "0") (:src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/gsimages/eimages/Product_email_201104197_2.jpg&logId=992404")))) (text . "\n ")) (tr (td (table (:width . "600") (:border . "0") (:cellspacing . "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-width (window-width)))) (shr-descend (shr-transform-dom dom)))
shr-insert-document((html nil (head nil (meta ((http-equiv . "Content-Type") (content . "text/html; charset=utf-8")))) (body nil (img ((src . "http://www.genscript.com/cgi-bin/promotion/image?src=http://www.genscript.com/e_images/Transparent.gif&logId=992404") (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, Helvetica; color:#999999 ")) "Having trouble reading this email? " (a ((href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/Product_email_201104197.html?src=email201104197&logId=992404&resourceId=430") (style . "text-decoration:underline; color:#0000CC;")) "View it on the web") ". ") "\n " (td ((width . "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=http://www.genscript.com/referral_program.html?src=email201104197&logId=992404&resourceId=431")) "Forward to a friend"))) "\n " (td ((width . "35")) (div ((align . "right")) (img ((src . "http://www.genscript.com/cgi-bin/promotion/image2?src=http://www.genscript.com/e_images/forward_f.jpg&logId=992404") (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") (cellspacing . "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=http://www.genscript.com/e_images/head_bg_eStain.jpg&logId=992404")) "\n " (div ((align . "center") (style . "font-size:24px; font-family:Arial, Helvetica; color:#333333")) (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 revolutionary protein gel staining device ")) "\n ") (tr nil (td nil (a ((href . "http://www.genscript.com/cgi-bin/biology/pagelink2?page=http://www.genscript.com/estain_7_min_protein_gel_staining.html?src=email201104197&logId=992404&resourceId=443")) (img (... ...)))) "\n ") (tr nil (td nil (table ((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 Friday. 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") (border . "0") (cellspacing . "0") (cellpadding . "0") (bgcolor . "#f2f2f2")) (tr nil (td ...) "\n "))) "\n ")))))
mm-shr((#<buffer *mm*<3>> ("text/html" (charset . "utf-8")) quoted-printable 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")) quoted-printable nil nil nil nil nil))
mm-display-part((#<buffer *mm*<3>> ("text/html" (charset . "utf-8")) quoted-printable nil nil nil nil nil) t)
byte-code("\b\203.\0\306\b\211A.@ \"\203.\0\307\300\310\"\210\202.\0\n\211.\205\".\311\312\v!!)\203/.r\nq\210\f)\2020.\f\203:.\306\313 \"\204x.\314.!?\205T.\315.8?\206T.\315.8@\316\232\206T.\317.!\211.)\203x.\320.!\203x.\321.!\203l.\322.!\204r.\323 !\203x.\324.*\202\231.\r.\325.\211.@;\203\210.\r@\202\214.\rA@@)\326\"@)\327\232\203\231.\324.+.,GT\310.-\211...B.,B.,.*\203\353.\r.\325.\211.@;\203\277.\r@\202\303.\rA@@)\326\"@)\330\232\203\353.\331\332n\204\327.\333\202\351.o\204\344.`SSf\332=\203\350.\334\202\351.\335\"\210.*\203\376.\336 !\203\376.\x0e../=\203.\x01\337.\x0e..*\206.\x01.)\205.\x01.+C#\210\340 \210\324.0`.-.*\203\226.\x0e0\203*.\341y\210`.-.1\212\310\342\343\217\210.2).3.4.5\344=\203[.\x0e6\211.\205L.\311\312\v!!)\203[.r.6q\210.7)\202].\x0e7\211.8\204g.\324\202\201.\x0e9;\203v.\306.9.8\"\202\201.\x0e9:\205\201.\x0e8.9\235?\205\207.\x0e:).:\345.\324\"\210+db\210\202\265.\x0e+\203\265.\x0e)\203\265.\x0e0\203\253.\341y\210`.-\340 \210\346.!\210db\210\212\214.-`}\210.\x0e;=\203\335.\347\310\335\211.\211.@;\203\324.\r@\202\330.\rA@@)$\202..\310.<.;\310.=\211.>\203.\x02.>@\211.=;\204.\x02.=A@@\350\232\204.\x02.=.<B.<.>A\211.>\204\353.*\347\310.\x0e<>G.<G.\211.@;\203'.\r@\202+.\rA@@)$),\207" [ignored type gnus-summary-buffer buffer gnus-inhibit-images handle string-match throw nil buffer-live-p get-buffer "\\`image/" mm-inline-override-p 4 "inline" mm-attachment-override-p mm-automatic-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-buffer gnus-summary-buffer) ((error)) gnus-article-mode mm-display-part mm-display-inline gnus-treat-article "application/pgp-signature" not-attachment display text gnus-article-mime-handle-alist beg id gnus-mime-buttonized-part-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 "----=_Part_932859_23977287.1304558178328" buffer #<buffer *mm*<2>> from "service001@molecular-biology.net" start nil)) (#<buffer *mm*<3>> ("text/html" (charset . "utf-8")) quoted-printable nil nil nil nil nil)))
mapcar(gnus-mime-display-part ((#("multipart/related" 0 17 (boundary "----=_Part_932859_23977287.1304558178328" buffer #<buffer *mm*<2>> from "service001@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 "----=_Part_932859_23977287.1304558178328" buffer #<buffer *mm*<2>> from "service001@molecular-biology.net" start nil)) (#<buffer *mm*<3>> ("text/html" (charset . "utf-8")) quoted-printable nil nil nil nil nil))))
gnus-mime-display-part((#("multipart/mixed" 0 15 (boundary "----=_Part_932858_4012306.1304558178328" buffer #<buffer *mm*> from "service001@molecular-biology.net" start nil)) (#("multipart/related" 0 17 (boundary "----=_Part_932859_23977287.1304558178328" buffer #<buffer *mm*<2>> from "service001@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
--
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 24.0.50.1 + No Gnus v0.18
^ permalink raw reply [flat|nested] 6+ messages in thread
