Mercurial > emacs
comparison lisp/gnus/gnus-uu.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 16 Dec 2007 05:08:49 +0000 |
parents | 53108e6cea98 b40a0f01cf1e |
children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
---|---|
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) |