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)