* lisp/gnus/html2text.el (html2text-get-attr): Correctly handle attribute values

containing "=".

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 69041ccbbd0a8e0e91402b246e08ffaa8ca758dd..9c76635fb63f28c7087e1bbd1e2a1eea29f61b0e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-09  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * html2text.el (html2text-get-attr): Correctly handle attribute values
+       containing "=".
+
 2011-09-22  Kan-Ru Chen  <kanru@kanru.info>
 
        * ecomplete.el (ecomplete-display-matches): Use a local keymap to

diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el
index 0635ab0afc65114abf2f637b00c1fc643d4215ba..7e699827141648108b586d4f27b164d2b42128fa 100644 (file)
--- a/lisp/gnus/html2text.el
+++ b/lisp/gnus/html2text.el
@@ -193,7 +193,7 @@ formatting, and then moved afterward.")
      ;; size=3
      ((string-match "[^ ]=[^ ]" prev)
       (let ((attr  (nth 0 (split-string prev "=")))
-           (value (nth 1 (split-string prev "="))))
+           (value (substring prev (1+ (string-match "=" prev)))))
        (setq attr-list (cons (list attr value) attr-list))))
      ;; size= 3
      ((string-match "[^ ]=\\'" prev)
@@ -204,7 +204,7 @@ formatting, and then moved afterward.")
        ;; size=3
        ((string-match "[^ ]=[^ ]" this)
        (let ((attr  (nth 0 (split-string this "=")))
-             (value (nth 1 (split-string this "="))))
+             (value (substring prev (1+ (string-match "=" this)))))
          (setq attr-list (cons (list attr value) attr-list))))
        ;; size =3
        ((string-match "\\`=[^ ]" this)
@@ -358,7 +358,7 @@ formatting, and then moved afterward.")
     (delete-region p1 p4)
     (when href
       (goto-char p1)
-      (insert (substring href 1 -1 ))
+      (insert (substring href 1 -1))
       (put-text-property p1 (point) 'face 'bold))))
 
 ;;