Mercurial > emacs

comparison lisp/gnus/mm-decode.el @ 111279:8bf30c3cb442

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Silence mm-decode.el compilation. * lisp/gnus/mm-decode.el (gnus-completing-read, gnus-blocked-images): Autoload.
author Glenn Morris <rgm@gnu.org>
date Sun, 31 Oct 2010 18:45:47 -0700
parents b01067bf2ec9
children 733acab855e4
comparison
equal deleted inserted replaced
111278:416f27744f24 111279:8bf30c3cb442
1 ;;; mm-decode.el --- Functions for decoding MIME things 1 ;;; mm-decode.el --- Functions for decoding MIME things
2 2
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 4 ;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
1322 (mm-insert-part handle) 1322 (mm-insert-part handle)
1323 (mm-add-meta-html-tag handle) 1323 (mm-add-meta-html-tag handle)
1324 (let ((coding-system-for-write 'binary)) 1324 (let ((coding-system-for-write 'binary))
1325 (shell-command-on-region (point-min) (point-max) command nil))))) 1325 (shell-command-on-region (point-min) (point-max) command nil)))))
1326 1326
1327 (autoload 'gnus-completing-read "gnus-util")
1328
1327 (defun mm-interactively-view-part (handle) 1329 (defun mm-interactively-view-part (handle)
1328 "Display HANDLE using METHOD." 1330 "Display HANDLE using METHOD."
1329 (let* ((type (mm-handle-media-type handle)) 1331 (let* ((type (mm-handle-media-type handle))
1330 (methods 1332 (methods
1331 (mapcar (lambda (i) (cdr (assoc 'viewer i))) 1333 (mapcar (lambda (i) (cdr (assoc 'viewer i)))
1681 1683
1682 (declare-function libxml-parse-html-region "xml.c" 1684 (declare-function libxml-parse-html-region "xml.c"
1683 (start end &optional base-url)) 1685 (start end &optional base-url))
1684 (declare-function shr-insert-document "shr" (dom)) 1686 (declare-function shr-insert-document "shr" (dom))
1685 (defvar shr-blocked-images) 1687 (defvar shr-blocked-images)
1688 (autoload 'gnus-blocked-images "gnus-art")
1686 1689
1687 (defun mm-shr (handle) 1690 (defun mm-shr (handle)
1688 ;; Require since we bind its variables. 1691 ;; Require since we bind its variables.
1689 (require 'shr) 1692 (require 'shr)
1690 (let ((article-buffer (current-buffer)) 1693 (let ((article-buffer (current-buffer))