summaryrefslogtreecommitdiff
path: root/lisp/gnus/mml.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2007-12-11 05:28:59 +0000
committerGlenn Morris <rgm@gnu.org>2007-12-11 05:28:59 +0000
commit5ab56288c0118347d7fc4a2b0e2fefc104261881 (patch)
tree29c7f0f6a1fae84dd076ef6f0572d1dc162ca793 /lisp/gnus/mml.el
parent0cc7b6420993e88b176df08e4f493707f41da9cb (diff)
downloademacs-5ab56288c0118347d7fc4a2b0e2fefc104261881.tar.gz
Add declare-function compatibility definition.
(widget-button-press, gnus-make-hashtable): Autoload. (widget-event-point, gnus-configure-windows): Declare as functions.
Diffstat (limited to 'lisp/gnus/mml.el')
-rw-r--r--lisp/gnus/mml.el10
1 files changed, 10 insertions, 0 deletions
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.