Mercurial > emacs

diff lisp/gnus/shr.el @ 111683:01aefe45207c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
shr-color.el: fix several function calls. shr.el: replace newline with space in style parsing
author Katsumi Yamaoka <yamaoka@jpl.org>
date Tue, 23 Nov 2010 10:22:49 +0000
parents 2c6350617cc3
children 1cb16ad0d1bc
line wrap: on
line diff
--- a/lisp/gnus/shr.el	Tue Nov 23 08:21:09 2010 +0000
+++ b/lisp/gnus/shr.el	Tue Nov 23 10:22:49 2010 +0000
@@ -540,6 +540,9 @@
 
 (defun shr-parse-style (style)
   (when style
+    (save-match-data
+      (when (string-match "\n" style)
+        (setq style (replace-match " " t t style))))
     (let ((plist nil))
       (dolist (elem (split-string style ";"))
 	(when elem