comparison lisp/gnus/mm-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 30bc3f465294
children 606f2d163a64
comparison
equal deleted inserted replaced
91238:5cf14a2107b5 91239:2fcaae6177a5
424 "application/octet-stream")) 424 "application/octet-stream"))
425 'x-binhex nil 425 'x-binhex nil
426 (if (and file-name (not (equal file-name ""))) 426 (if (and file-name (not (equal file-name "")))
427 (list mm-dissect-disposition 427 (list mm-dissect-disposition
428 (cons 'filename file-name))))) 428 (cons 'filename file-name)))))
429
430 (defvar gnus-original-article-buffer) ; gnus.el
429 431
430 (defun mm-uu-yenc-extract () 432 (defun mm-uu-yenc-extract ()
431 ;; This might not be exactly correct, but we sure can't get the 433 ;; This might not be exactly correct, but we sure can't get the
432 ;; binary data from the article buffer, since that's already in a 434 ;; binary data from the article buffer, since that's already in a
433 ;; non-binary charset. So get it from the original article buffer. 435 ;; non-binary charset. So get it from the original article buffer.