Mercurial > emacs

comparison lisp/gnus/nneething.el @ 74347:b8fb10afdb2d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 169-170) - Merge from emacs--devo--0 - Update from CVS 2006-11-30 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/mml2015.el (mml2015-pgg-clear-verify): Replace encode-coding-string with mm-encode-coding-string. 2006-11-29 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/nneething.el (nneething-decode-file-name): Replace decode-coding-string with mm-decode-coding-string. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-534
author Miles Bader <miles@gnu.org>
date Fri, 01 Dec 2006 11:53:31 +0000
parents 1077b8039c32
children e3694f1cb928 f1d13e615070
comparison
equal deleted inserted replaced
74346:7318aed68fe7 74347:b8fb10afdb2d
301 (let ((pos 0) buf) 301 (let ((pos 0) buf)
302 (while (string-match "%\\([0-9a-fA-F][0-9a-fA-F]\\)" file pos) 302 (while (string-match "%\\([0-9a-fA-F][0-9a-fA-F]\\)" file pos)
303 (setq buf (cons (string (string-to-number (match-string 1 file) 16)) 303 (setq buf (cons (string (string-to-number (match-string 1 file) 16))
304 (cons (substring file pos (match-beginning 0)) buf)) 304 (cons (substring file pos (match-beginning 0)) buf))
305 pos (match-end 0))) 305 pos (match-end 0)))
306 (decode-coding-string 306 (mm-decode-coding-string
307 (apply (function concat) 307 (apply (function concat)
308 (nreverse (cons (substring file pos) buf))) 308 (nreverse (cons (substring file pos) buf)))
309 (or coding-system nnmail-pathname-coding-system)))) 309 (or coding-system nnmail-pathname-coding-system))))
310 310
311 (defun nneething-get-file-name (id) 311 (defun nneething-get-file-name (id)