diff options
| -rw-r--r-- | lisp/gnus/gnus-picon.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-picon.el b/lisp/gnus/gnus-picon.el index e1ee6b78403..c462345fc5c 100644 --- a/lisp/gnus/gnus-picon.el +++ b/lisp/gnus/gnus-picon.el | |||
| @@ -38,6 +38,10 @@ | |||
| 38 | ;; | 38 | ;; |
| 39 | ;;; Code: | 39 | ;;; Code: |
| 40 | 40 | ||
| 41 | ;; For Emacs < 22.2. | ||
| 42 | (eval-and-compile | ||
| 43 | (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) | ||
| 44 | |||
| 41 | (eval-when-compile (require 'cl)) | 45 | (eval-when-compile (require 'cl)) |
| 42 | 46 | ||
| 43 | (require 'gnus) | 47 | (require 'gnus) |
| @@ -165,6 +169,8 @@ replacement is added." | |||
| 165 | 169 | ||
| 166 | ;;; Functions that does picon transformations: | 170 | ;;; Functions that does picon transformations: |
| 167 | 171 | ||
| 172 | (declare-function image-size "image.c" (spec &optional pixels frame)) | ||
| 173 | |||
| 168 | (defun gnus-picon-transform-address (header category) | 174 | (defun gnus-picon-transform-address (header category) |
| 169 | (gnus-with-article-headers | 175 | (gnus-with-article-headers |
| 170 | (let ((addresses | 176 | (let ((addresses |