/[emacs]/emacs/lisp/gnus/mm-uu.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-uu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by gerd, Tue Aug 7 14:52:07 2001 UTC revision 1.9.8.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 153  To disable dissecting shar codes, for in Line 153  To disable dissecting shar codes, for in
153                         (looking-at "\\(.+\\)$"))                         (looking-at "\\(.+\\)$"))
154                    (and (match-string 1)                    (and (match-string 1)
155                         (let ((nnheader-file-name-translation-alist                         (let ((nnheader-file-name-translation-alist
156                                '((?/ . ?,) (? . ?_) (?* . ?_) (?$ . ?_))))                                '((?/ . ?,) (?\  . ?_) (?* . ?_) (?$ . ?_))))
157                           (nnheader-translate-file-chars (match-string 1))))))                           (nnheader-translate-file-chars (match-string 1))))))
158          (forward-line);; in case of failure          (forward-line);; in case of failure
159          (setq start-char-1 (point))          (setq start-char-1 (point))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26