Mercurial > emacs
changeset 87251:0abba064c568
Add declare-function compatibility definition.
(message-goto-eoh): Autoload.
(article-narrow-to-head, gnus-article-goto-header)
(gnus-add-image, gnus-add-wash-type): Declare as functions.
(gnus-display-x-face-in-from): Require gnus-art.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 11 Dec 2007 05:46:37 +0000 |
| parents | cdbb1d6ce433 |
| children | a48038ce7d61 |
| files | lisp/gnus/gnus-fun.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-fun.el Tue Dec 11 05:45:43 2007 +0000 +++ b/lisp/gnus/gnus-fun.el Tue Dec 11 05:46:37 2007 +0000 @@ -26,6 +26,10 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (eval-when-compile (require 'cl)) @@ -105,6 +109,8 @@ (format gnus-convert-pbm-to-x-face-command (shell-quote-argument file))))))) +(autoload 'message-goto-eoh "message" nil t) + ;;;###autoload (defun gnus-insert-random-x-face-header () "Insert a random X-Face header from `gnus-x-face-directory'." @@ -203,8 +209,14 @@ colors of the displayed X-Faces." :group 'gnus-article-headers) +(declare-function article-narrow-to-head "gnus-art" ()) +(declare-function gnus-article-goto-header "gnus-art" (header)) +(declare-function gnus-add-image "gnus-art" (category image)) +(declare-function gnus-add-wash-type "gnus-art" (type)) + (defun gnus-display-x-face-in-from (data) "Display the X-Face DATA in the From header." + (require 'gnus-art) (let ((default-enable-multibyte-characters nil) pbm) (when (or (gnus-image-type-available-p 'xface)