Function: nneething-decode-file-name

nneething-decode-file-name is a byte-compiled function defined in nneething.el.gz.

Signature

(nneething-decode-file-name FILE &optional CODING-SYSTEM)

Documentation

Decode the name of the FILE is encoded in CODING-SYSTEM.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nneething.el.gz
(defun nneething-decode-file-name (file &optional coding-system)
  "Decode the name of the FILE is encoded in CODING-SYSTEM."
  (let ((pos 0) buf)
    (while (string-match "%\\([[:xdigit:]][[:xdigit:]]\\)" file pos)
      (setq buf (cons (string (string-to-number (match-string 1 file) 16))
		      (cons (substring file pos (match-beginning 0)) buf))
	    pos (match-end 0)))
    (decode-coding-string
     (apply (function concat)
	    (nreverse (cons (substring file pos) buf)))
     (or coding-system nnmail-pathname-coding-system))))