From 5ab56288c0118347d7fc4a2b0e2fefc104261881 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:28:59 +0000 Subject: [PATCH] Add declare-function compatibility definition. (widget-button-press, gnus-make-hashtable): Autoload. (widget-event-point, gnus-configure-windows): Declare as functions. --- lisp/gnus/mml.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 092827c570d..ec37c2b7560 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -25,6 +25,10 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (require 'mm-util) (require 'mm-bodies) (require 'mm-encode) @@ -1316,6 +1320,12 @@ Should be adopted if code in `message-send-mail' is changed." (defvar mml-preview-buffer nil) +(autoload 'gnus-make-hashtable "gnus-util") +(autoload 'widget-button-press "wid-edit" nil t) +(declare-function widget-event-point "wid-edit" (event)) +;; If gnus-buffer-configuration is bound this is loaded. +(declare-function gnus-configure-windows "gnus-win" (setting &optional force)) + (defun mml-preview (&optional raw) "Display current buffer with Gnus, in a new buffer. If RAW, display a raw encoded MIME message. -- 2.39.2