mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-13 03:06:23 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/gnus/mm-util.el (mm-string-to-multibyte): Simplify.

Browse source
This commit is contained in:
Glenn Morris 2010-10-31 19:21:42 -07:00
parent 85a45a691b
commit ed1d182dca
2 changed files with 12 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/gnus/ChangeLog
View file

@ -1,5 +1,7 @@
2010-11-01 Glenn Morris <rgm@gnu.org>
* mm-util.el (mm-string-to-multibyte): Simplify.
* shr.el (declare-function): Add compat stub.
(url-cache-create-filename): Declare.
(mm-disable-multibyte, widget-convert-button): Autoload.
@ -662,12 +664,12 @@
* nnimap.el (gnutls-negotiate): Silence the byte compiler.
* gnus-art.el, gnus-cache.el, gnus-fun.el, gnus-group.el,
gnus-picon.el, gnus-spec.el, gnus-sum.el, gnus-util.el, gnus.el,
mail-source.el, message.el, mm-bodies.el, mm-decode.el, mm-extern.el,
mm-util.el, mm-view.el, mml-smime.el, mml.el, mml1991.el, mml2015.el,
nnfolder.el, nnheader.el, nnmail.el, nnmaildir.el, nnrss.el, nntp.el,
rfc1843.el, sieve-manage.el, smime.el, spam.el:
* gnus-art.el, gnus-cache.el, gnus-fun.el, gnus-group.el:
* gnus-picon.el, gnus-spec.el, gnus-sum.el, gnus-util.el, gnus.el:
* mail-source.el, message.el, mm-bodies.el, mm-decode.el, mm-extern.el:
* mm-util.el, mm-view.el, mml-smime.el, mml.el, mml1991.el, mml2015.el:
* nnfolder.el, nnheader.el, nnmail.el, nnmaildir.el, nnrss.el, nntp.el:
* rfc1843.el, sieve-manage.el, smime.el, spam.el:
Fix comment for declare-function.
2010-10-11 Lars Magne Ingebrigtsen <larsi@gnus.org>

17
lisp/gnus/mm-util.el
View file

@ -202,19 +202,10 @@ to the contents of the accessible portion of the buffer."
(defalias 'mm-decode-coding-region 'decode-coding-region)
(defalias 'mm-encode-coding-region 'encode-coding-region)))
;; `string-to-multibyte' is available only in Emacs 22.1 or greater.
(defalias 'mm-string-to-multibyte
(cond
((featurep 'xemacs)
'identity)
((fboundp 'string-to-multibyte)
'string-to-multibyte)
(t
(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 "")))))
;; `string-to-multibyte' is available only in Emacs.
(defalias 'mm-string-to-multibyte (if (featurep 'xemacs)
'identity
'string-to-multibyte))
;; `char-or-char-int-p' is an XEmacs function, not available in Emacs.
(eval-and-compile