diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/hashcash.el | 5 | ||||
| -rw-r--r-- | lisp/mail/rmail.el | 9 | ||||
| -rw-r--r-- | lisp/mail/rmailkwd.el | 9 | ||||
| -rw-r--r-- | lisp/mail/rmailsum.el | 7 | ||||
| -rw-r--r-- | lisp/mail/sendmail.el | 3 | ||||
| -rw-r--r-- | lisp/mail/uce.el | 6 | ||||
| -rw-r--r-- | lisp/mail/vms-pmail.el | 1 |
7 files changed, 40 insertions, 0 deletions
diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 737178b8218..22005ce957e 100644 --- a/lisp/mail/hashcash.el +++ b/lisp/mail/hashcash.el @@ -126,6 +126,11 @@ For example, you may want to set this to '(\"-Z2\") to reduce header length." (concat (match-string 1 addr) (match-string 2 addr)) addr)) +(declare-function message-narrow-to-headers-or-head "message" ()) +(declare-function message-fetch-field "message" (header &optional not-all)) +(declare-function message-goto-eoh "message" ()) +(declare-function message-narrow-to-headers "message" ()) + (defun hashcash-token-substring () (save-excursion (let ((token "")) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index f011621930a..7beb8c0516c 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1519,6 +1519,15 @@ original copy." ;;;; *** Rmail input *** +(declare-function rmail-spam-filter "rmail-spam-filter" (msg)) +(declare-function rmail-summary-goto-msg "rmailsum" (&optional n nowarn skip-rmail)) +(declare-function rmail-summary-mark-undeleted "rmailsum" (n)) +(declare-function rmail-summary-mark-deleted "rmailsum" (&optional n undel)) +(declare-function rfc822-addresses "rfc822" (header-text)) +(declare-function mail-abbrev-make-syntax-table "mailabbrev.el" ()) +(declare-function mail-sendmail-delimit-header "sendmail" ()) +(declare-function mail-header-end "sendmail" ()) + ;; RLK feature not added in this version: ;; argument specifies inbox file or files in various ways. diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index c479e35beb7..48e2246520b 100644 --- a/lisp/mail/rmailkwd.el +++ b/lisp/mail/rmailkwd.el @@ -86,6 +86,15 @@ Completion is performed over known labels when reading." rmail-last-label (setq rmail-last-label (rmail-make-label result t)))))) +(declare-function rmail-maybe-set-message-counters "rmail" ()) +(declare-function rmail-display-labels "rmail" ()) +(declare-function rmail-msgbeg "rmail" (n)) +(declare-function rmail-set-message-deleted-p "rmail" (n state)) +(declare-function rmail-message-labels-p "rmail" (msg labels)) +(declare-function rmail-show-message "rmail" (&optional n no-summary)) +(declare-function mail-comma-list-regexp "mail-utils" (labels)) +(declare-function mail-parse-comma-list "mail-utils.el" ()) + (defun rmail-set-label (l state &optional n) (with-current-buffer rmail-buffer (rmail-maybe-set-message-counters) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index fd5931fdef9..cde289ed719 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1323,6 +1323,13 @@ argument says to read a file name and use that file as the inbox." (end-of-buffer)) (forward-line -1)) +(declare-function rmail-abort-edit "rmailedit" ()) +(declare-function rmail-cease-edit "rmailedit"()) +(declare-function rmail-set-label "rmailkwd" (l state &optional n)) +(declare-function rmail-output-read-file-name "rmailout" ()) +(declare-function rmail-output-read-rmail-file-name "rmailout" ()) +(declare-function mail-send-and-exit "sendmail" (&optional arg)) + (defvar rmail-summary-edit-map nil) (if rmail-summary-edit-map nil diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index f348624d120..da1c5c48989 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1744,6 +1744,9 @@ The seventh argument ACTIONS is a list of actions to take (message "Auto save file for draft message exists; consider M-x mail-recover")) initialized)) +(declare-function dired-view-file "dired" ()) +(declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep)) + (defun mail-recover-1 () "Pop up a list of auto-saved draft messages so you can recover one of them." (interactive) diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el index 035ab0d774c..5a4e01ae9fc 100644 --- a/lisp/mail/uce.el +++ b/lisp/mail/uce.el @@ -218,6 +218,12 @@ These are mostly meant for headers that prevent delivery errors reporting." :group 'uce) (declare-function mail-strip-quoted-names "mail-utils" (address)) +(declare-function rmail-msg-is-pruned "rmail" ()) +(declare-function rmail-maybe-set-message-counters "rmail" ()) +(declare-function rmail-msgbeg "rmail" (n)) +(declare-function rmail-msgend "rmail" (n)) +(declare-function rmail-toggle-header "rmail" (&optional arg)) + (defun uce-reply-to-uce (&optional ignored) "Send reply to UCE in Rmail. diff --git a/lisp/mail/vms-pmail.el b/lisp/mail/vms-pmail.el index 022a8070a2e..9785fed71e6 100644 --- a/lisp/mail/vms-pmail.el +++ b/lisp/mail/vms-pmail.el @@ -1,3 +1,4 @@ +;; -*- no-byte-compile: t -*- ;;; vms-pmail.el --- use Emacs as the editor within VMS mail ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |