projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200401082352.
[elisp/gnus.git-]
/
lisp
/
html2text.el
diff --git
a/lisp/html2text.el
b/lisp/html2text.el
index
41fea4b
..
8822ea9
100644
(file)
--- a/
lisp/html2text.el
+++ b/
lisp/html2text.el
@@
-462,7
+462,7
@@
See the documentation for that variable."
(interactive)
(dolist (tag tag-list)
(html2text-buffer-head)
(interactive)
(dolist (tag tag-list)
(html2text-buffer-head)
- (while (re-search-forward (format "\\(</?%s[^>]*>\\)" tag) (point-max) t)
+ (while (re-search-forward (format "</?%s[^>]*>" tag) (point-max) t)
(delete-region (match-beginning 0) (match-end 0)))))
(defun html2text-format-tags ()
(delete-region (match-beginning 0) (match-end 0)))))
(defun html2text-format-tags ()
@@
-472,12
+472,12
@@
See the documentation for that variable."
(let ((tag (car tag-and-function))
(function (cdr tag-and-function)))
(html2text-buffer-head)
(let ((tag (car tag-and-function))
(function (cdr tag-and-function)))
(html2text-buffer-head)
- (while (re-search-forward (format "\\(<%s\\( [^>]*\\)?>\\)" tag)
+ (while (re-search-forward (format "<%s\\( [^>]*\\)?>" tag)
(point-max) t)
(let ((p1)
(p2 (point))
(p3) (p4)
(point-max) t)
(let ((p1)
(p2 (point))
(p3) (p4)
- (attr (match-string 1)))
+ (attr (match-string 0)))
(search-backward "<" (point-min) t)
(setq p1 (point))
(re-search-forward (format "</%s>" tag) (point-max) t)
(search-backward "<" (point-min) t)
(setq p1 (point))
(re-search-forward (format "</%s>" tag) (point-max) t)
@@
-511,7
+511,7
@@
See the documentation for that variable."
(let ((tag (car tag-and-function))
(function (cdr tag-and-function)))
(html2text-buffer-head)
(let ((tag (car tag-and-function))
(function (cdr tag-and-function)))
(html2text-buffer-head)
- (while (re-search-forward (format "\\(<%s\\( [^>]*\\)?>\\)" tag)
+ (while (re-search-forward (format "<%s\\( [^>]*\\)?>" tag)
(point-max) t)
(let ((p1)
(p2 (point)))
(point-max) t)
(let ((p1)
(p2 (point)))