Mercurial > emacs

comparison lisp/gnus/mml.el @ 69649:ab0b847baba4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-176 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 67) - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 23 Mar 2006 23:51:33 +0000
parents 6580c61aced7
children 322c5c5027dc e6bf73e43cf4
comparison
equal deleted inserted replaced
69648:5b7d2d04f5c1 69649:ab0b847baba4
791 ;; Determine type and stuff. 791 ;; Determine type and stuff.
792 (unless (stringp (car handle)) 792 (unless (stringp (car handle))
793 (unless (setq textp (equal (mm-handle-media-supertype handle) "text")) 793 (unless (setq textp (equal (mm-handle-media-supertype handle) "text"))
794 (save-excursion 794 (save-excursion
795 (set-buffer (setq buffer (mml-generate-new-buffer " *mml*"))) 795 (set-buffer (setq buffer (mml-generate-new-buffer " *mml*")))
796 (mm-insert-part handle) 796 (mm-insert-part handle 'no-cache)
797 (if (setq mmlp (equal (mm-handle-media-type handle) 797 (if (setq mmlp (equal (mm-handle-media-type handle)
798 "message/rfc822")) 798 "message/rfc822"))
799 (mime-to-mml))))) 799 (mime-to-mml)))))
800 (if mmlp 800 (if mmlp
801 (mml-insert-mml-markup handle nil t t) 801 (mml-insert-mml-markup handle nil t t)