Mercurial > emacs
comparison lisp/gnus/mm-util.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 | 6d07c19816b9 |
children | 11d53dd5abd9 146c086df160 |
comparison
equal
deleted
inserted
replaced
61518:3e0057a2ce89 | 61519:6cf26dc690b2 |
---|---|
89 ;; Here is an approximate equivalence table to help think about it: | 89 ;; Here is an approximate equivalence table to help think about it: |
90 ;; (string-as-multibyte s) ~= (decode-coding-string s 'emacs-mule) | 90 ;; (string-as-multibyte s) ~= (decode-coding-string s 'emacs-mule) |
91 ;; (string-to-multibyte s) ~= (decode-coding-string s 'binary) | 91 ;; (string-to-multibyte s) ~= (decode-coding-string s 'binary) |
92 ;; (string-make-multibyte s) ~= (decode-coding-string s locale-coding-system) | 92 ;; (string-make-multibyte s) ~= (decode-coding-string s locale-coding-system) |
93 (string-as-multibyte . identity) | 93 (string-as-multibyte . identity) |
94 (string-to-multibyte . mm-string-as-multibyte) | 94 (string-to-multibyte |
95 . (lambda (string) | |
96 "Return a multibyte string with the same individual chars as string." | |
97 (mapconcat | |
98 (lambda (ch) (mm-string-as-multibyte (char-to-string ch))) | |
99 string ""))) | |
95 (multibyte-string-p . ignore) | 100 (multibyte-string-p . ignore) |
96 ;; It is not a MIME function, but some MIME functions use it. | 101 ;; It is not a MIME function, but some MIME functions use it. |
97 (make-temp-file . (lambda (prefix &optional dir-flag) | 102 (make-temp-file . (lambda (prefix &optional dir-flag) |
98 (let ((file (expand-file-name | 103 (let ((file (expand-file-name |
99 (make-temp-name prefix) | 104 (make-temp-name prefix) |