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)