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.

3 files changed, 20 insertions, 3 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2dad5e1eb26..aecd7b20c04 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,12 @@
+2005-04-13  Miles Bader  <miles@gnu.org>
+
+        * mm-util.el (mm-string-to-multibyte): Use Gnus trunk definition.
+
+2005-04-12  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * nnrss.el (nnrss-node-text): Replace CRLFs (which might be
+        contained in text because xml.el decodes entities) with LFs.
+
 2005-04-11  Lute Kamstra  <lute@gnu.org>
 
         * message.el (message-make-date): Handle byte-compiler warnings
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index 0ee52e797d0..6fe69f2edd5 100644
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -91,7 +91,12 @@
      ;; (string-to-multibyte s)   ~= (decode-coding-string s 'binary)
      ;; (string-make-multibyte s) ~= (decode-coding-string s locale-coding-system)
      (string-as-multibyte . identity)
-     (string-to-multibyte . mm-string-as-multibyte)
+     (string-to-multibyte
+      . (lambda (string)
+          "Return a multibyte string with the same individual chars as string."
+          (mapconcat
+           (lambda (ch) (mm-string-as-multibyte (char-to-string ch)))
+           string "")))
      (multibyte-string-p . ignore)
      ;; It is not a MIME function, but some MIME functions use it.
      (make-temp-file . (lambda (prefix &optional dir-flag)
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index 006e309c3ff..04bebec79a6 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -679,8 +679,11 @@ It is useful when `(setq nnrss-use-local t)'."
          (text (if (and node (listp node))
                    (nnrss-node-just-text node)
                  node))
-         (cleaned-text (if text (gnus-replace-in-string
-                                 text "^[\000-\037\177]+\\|^ +\\| +$" ""))))
+         (cleaned-text (if text
+                           (gnus-replace-in-string
+                            (gnus-replace-in-string
+                             text "^[\000-\037\177]+\\|^ +\\| +$" "")
+                            "\r\n" "\n"))))
     (if (string-equal "" cleaned-text)
         nil
       cleaned-text)))