Mercurial > emacs
comparison lisp/gnus/nneething.el @ 90718:f1d13e615070
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 523-544)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 168-171)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-150
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 07 Dec 2006 04:14:14 +0000 |
| parents | c5406394f567 b8fb10afdb2d |
| children | 95d0cdf160ea |
comparison
equal
deleted
inserted
replaced
| 90717:06937e972ad0 | 90718:f1d13e615070 |
|---|---|
| 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) |