Mercurial > hg > xemacs-beta
comparison lisp/gnus/gnus-uu.el @ 173:8eaf7971accc r20-3b13
Import from CVS: tag r20-3b13
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:49:09 +0200 |
| parents | 85ec50267440 |
| children |
comparison
equal
deleted
inserted
replaced
| 172:a38aed19690b | 173:8eaf7971accc |
|---|---|
| 1384 (beginning-of-line) | 1384 (beginning-of-line) |
| 1385 (setq start-char (point)) | 1385 (setq start-char (point)) |
| 1386 | 1386 |
| 1387 (if (not (looking-at gnus-uu-begin-string)) | 1387 (if (not (looking-at gnus-uu-begin-string)) |
| 1388 (setq state (list 'middle)) | 1388 (setq state (list 'middle)) |
| 1389 ;; This is the beginning of an uuencoded article. | 1389 ;; This is the beginning of a uuencoded article. |
| 1390 ;; We replace certain characters that could make things messy. | 1390 ;; We replace certain characters that could make things messy. |
| 1391 (setq gnus-uu-file-name | 1391 (setq gnus-uu-file-name |
| 1392 (let ((nnheader-file-name-translation-alist | 1392 (let ((nnheader-file-name-translation-alist |
| 1393 '((?/ . ?,) (? . ?_) (?* . ?_) (?$ . ?_)))) | 1393 '((?/ . ?,) (? . ?_) (?* . ?_) (?$ . ?_)))) |
| 1394 (nnheader-translate-file-chars (match-string 1)))) | 1394 (nnheader-translate-file-chars (match-string 1)))) |