diff options
| -rw-r--r-- | lisp/gnus/message.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 3aaa8c25745..919a4c06721 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -31,9 +31,11 @@ | |||
| 31 | 31 | ||
| 32 | ;;; Code: | 32 | ;;; Code: |
| 33 | 33 | ||
| 34 | (eval-and-compile | ||
| 35 | (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) | ||
| 34 | (eval-when-compile | 36 | (eval-when-compile |
| 35 | (require 'cl)) | 37 | (require 'cl)) |
| 36 | 38 | ||
| 37 | (require 'hashcash) | 39 | (require 'hashcash) |
| 38 | (require 'canlock) | 40 | (require 'canlock) |
| 39 | (require 'mailheader) | 41 | (require 'mailheader) |
| @@ -7474,6 +7476,8 @@ If nil, the function bound in `text-mode-map' or `global-map' is executed." | |||
| 7474 | :type '(choice (const nil) | 7476 | :type '(choice (const nil) |
| 7475 | function)) | 7477 | function)) |
| 7476 | 7478 | ||
| 7479 | (declare-function mail-abbrev-in-expansion-header-p "mailabbrev" ()) | ||
| 7480 | |||
| 7477 | (defun message-tab () | 7481 | (defun message-tab () |
| 7478 | "Complete names according to `message-completion-alist'. | 7482 | "Complete names according to `message-completion-alist'. |
| 7479 | Execute function specified by `message-tab-body-function' when not in | 7483 | Execute function specified by `message-tab-body-function' when not in |