Mercurial > emacs
comparison lisp/gnus/nnrss.el @ 61519:6cf26dc690b2
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-254
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 62-64)
- Merge from emacs--cvs-trunk--0
- Update from CVS
- (mm-string-to-multibyte): Use Gnus trunk definition.
2005-04-13 Miles Bader <miles@gnu.org>
* lisp/gnus/mm-util.el (mm-string-to-multibyte): Use Gnus trunk definition.
2005-04-12 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/nnrss.el (nnrss-node-text): Replace CRLFs (which might be
contained in text because xml.el decodes entities) with LFs.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 13 Apr 2005 04:58:05 +0000 |
| parents | ad05d91d3598 |
| children | d1245d218964 |
comparison
equal
deleted
inserted
replaced
| 61518:3e0057a2ce89 | 61519:6cf26dc690b2 |
|---|---|
| 677 (let* ((node (assq (intern (concat namespace (symbol-name local-name))) | 677 (let* ((node (assq (intern (concat namespace (symbol-name local-name))) |
| 678 element)) | 678 element)) |
| 679 (text (if (and node (listp node)) | 679 (text (if (and node (listp node)) |
| 680 (nnrss-node-just-text node) | 680 (nnrss-node-just-text node) |
| 681 node)) | 681 node)) |
| 682 (cleaned-text (if text (gnus-replace-in-string | 682 (cleaned-text (if text |
| 683 text "^[\000-\037\177]+\\|^ +\\| +$" "")))) | 683 (gnus-replace-in-string |
| 684 (gnus-replace-in-string | |
| 685 text "^[\000-\037\177]+\\|^ +\\| +$" "") | |
| 686 "\r\n" "\n")))) | |
| 684 (if (string-equal "" cleaned-text) | 687 (if (string-equal "" cleaned-text) |
| 685 nil | 688 nil |
| 686 cleaned-text))) | 689 cleaned-text))) |
| 687 | 690 |
| 688 (defun nnrss-node-just-text (node) | 691 (defun nnrss-node-just-text (node) |