Mercurial > emacs
comparison lisp/gnus/message.el @ 87191:066a2efbc9c8
(declare-function): Add compatibility declaration.
(mail-abbrev-in-expansion-header-p): Declare as function.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sun, 09 Dec 2007 02:10:05 +0000 |
parents | 781256628613 |
children | 6207f5a83057 |
comparison
equal
deleted
inserted
replaced
87190:5e1044759e6c | 87191:066a2efbc9c8 |
---|---|
29 ;; consists mainly of large chunks of code from the sendmail.el, | 29 ;; consists mainly of large chunks of code from the sendmail.el, |
30 ;; gnus-msg.el and rnewspost.el files. | 30 ;; gnus-msg.el and rnewspost.el files. |
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) |
40 (require 'gmm-utils) | 42 (require 'gmm-utils) |
41 (require 'nnheader) | 43 (require 'nnheader) |
7472 :group 'message | 7474 :group 'message |
7473 :link '(custom-manual "(message)Various Commands") | 7475 :link '(custom-manual "(message)Various Commands") |
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 |
7480 those headers." | 7484 those headers." |
7481 (interactive) | 7485 (interactive) |