Mercurial > emacs
comparison lisp/gnus/gnus-uu.el @ 87193:b40a0f01cf1e
(gnus-uu-yenc-article): Use insert-buffer-substring.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 09 Dec 2007 02:12:23 +0000 |
| parents | 781256628613 |
| children | 107ccd98fa12 2fcaae6177a5 |
comparison
equal
deleted
inserted
replaced
| 87192:4b72ecd263bd | 87193:b40a0f01cf1e |
|---|---|
| 1049 (when (yenc-last-part-p) | 1049 (when (yenc-last-part-p) |
| 1050 (push 'end state)) | 1050 (push 'end state)) |
| 1051 (unless state | 1051 (unless state |
| 1052 (push 'middle state)) | 1052 (push 'middle state)) |
| 1053 (mm-with-unibyte-buffer | 1053 (mm-with-unibyte-buffer |
| 1054 (insert-buffer gnus-original-article-buffer) | 1054 (insert-buffer-substring gnus-original-article-buffer) |
| 1055 (yenc-decode-region (point-min) (point-max)) | 1055 (yenc-decode-region (point-min) (point-max)) |
| 1056 (when (and (member 'begin state) | 1056 (when (and (member 'begin state) |
| 1057 (file-exists-p gnus-uu-yenc-article-name)) | 1057 (file-exists-p gnus-uu-yenc-article-name)) |
| 1058 (delete-file gnus-uu-yenc-article-name)) | 1058 (delete-file gnus-uu-yenc-article-name)) |
| 1059 (mm-append-to-file (point-min) (point-max) | 1059 (mm-append-to-file (point-min) (point-max) |