Mercurial > emacs
changeset 111279:8bf30c3cb442
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 | 416f27744f24 |
children | 3e377e8bbed5 |
files | lisp/gnus/ChangeLog lisp/gnus/mm-decode.el |
diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Oct 31 18:40:12 2010 -0700 +++ b/lisp/gnus/ChangeLog Sun Oct 31 18:45:47 2010 -0700 @@ -1,5 +1,7 @@ 2010-11-01 Glenn Morris <rgm@gnu.org> + * mm-decode.el (gnus-completing-read, gnus-blocked-images): Autoload. + * gnus.el (gnus-sloppily-equal-method-parameters): Move defn before use. * sieve-manage.el: Require 'cl when compiling.
--- a/lisp/gnus/mm-decode.el Sun Oct 31 18:40:12 2010 -0700 +++ b/lisp/gnus/mm-decode.el Sun Oct 31 18:45:47 2010 -0700 @@ -1,7 +1,7 @@ ;;; mm-decode.el --- Functions for decoding MIME things -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, +;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> @@ -1324,6 +1324,8 @@ (let ((coding-system-for-write 'binary)) (shell-command-on-region (point-min) (point-max) command nil))))) +(autoload 'gnus-completing-read "gnus-util") + (defun mm-interactively-view-part (handle) "Display HANDLE using METHOD." (let* ((type (mm-handle-media-type handle)) @@ -1683,6 +1685,7 @@ (start end &optional base-url)) (declare-function shr-insert-document "shr" (dom)) (defvar shr-blocked-images) +(autoload 'gnus-blocked-images "gnus-art") (defun mm-shr (handle) ;; Require since we bind its variables.