* mail/mspools.el (rmail-get-new-mail):

* mail/reporter.el (mail-position-on-field, mail-text):
* mail/rmail.el (mail-position-on-field, mail-text-start)
(rmail-update-summary):
* mail/rmailedit.el (rmail-summary-disable)
(rmail-summary-enable):
* mail/rmailmsc.el (rmail-parse-file-inboxes)
(rmail-show-message):
* mail/rmailout.el (rmail-update-summary):
* mail/rmailsort.el (rmail-update-summary):
* mail/sendmail.el (dired-move-to-filename, dired-get-filename)
(dired-view-file):
* mail/uce.el (mail-strip-quoted-names):
* mail/undigest.el (rmail-update-summary):
* mail/unrmail.el (mail-strip-quoted-names):
* ediff.el (diff-latest-backup-file): Declare as functions.

* obsolete/mlsupport.el (ml-previous-page): Fix typo.
(kill-to-end-of-line):
* obsolete/rnews.el (news-set-minor-modes): Remove non working
functions.

15 files changed, 54 insertions, 21 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7468e41b19..db63633382 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,27 @@
+2007-11-25  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* mail/mspools.el (rmail-get-new-mail):
+	* mail/reporter.el (mail-position-on-field, mail-text):
+	* mail/rmail.el (mail-position-on-field, mail-text-start)
+	(rmail-update-summary):
+	* mail/rmailedit.el (rmail-summary-disable)
+	(rmail-summary-enable):
+	* mail/rmailmsc.el (rmail-parse-file-inboxes)
+	(rmail-show-message):
+	* mail/rmailout.el (rmail-update-summary):
+	* mail/rmailsort.el (rmail-update-summary):
+	* mail/sendmail.el (dired-move-to-filename, dired-get-filename)
+	(dired-view-file):
+	* mail/uce.el (mail-strip-quoted-names):
+	* mail/undigest.el (rmail-update-summary):
+	* mail/unrmail.el (mail-strip-quoted-names):
+	* ediff.el (diff-latest-backup-file): Declare as functions.
+
+	* obsolete/mlsupport.el (ml-previous-page): Fix typo.
+	(kill-to-end-of-line):
+	* obsolete/rnews.el (news-set-minor-modes): Remove non working
+	functions.
+
 2007-11-25  Glenn Morris  <rgm@gnu.org>
 
 	* eshell/esh-maint.el (top-level): Use require with NOERROR for
diff --git a/lisp/ediff.el b/lisp/ediff.el
index a2aafc9029..1ccfdcc7d6 100644
--- a/lisp/ediff.el
+++ b/lisp/ediff.el
@@ -363,6 +363,7 @@
 		 (list (cons 'ediff-job-name job-name))
 		 merge-buffer-file)))
 
+(declare-function diff-latest-backup-file "diff" (fn))
 
 ;;;###autoload
 (defalias 'ediff 'ediff-files)
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el
index 514bf4fe5f..45f4c2d89a 100644
--- a/lisp/mail/mspools.el
+++ b/lisp/mail/mspools.el
@@ -246,6 +246,8 @@ Buffer is not displayed if SHOW is non-nil."
   (mspools-mode)
   )
 
+(declare-function rmail-get-new-mail "rmail" (&optional file-name))
+
 (defun mspools-visit-spool ()
   "Visit the folder on the current line of the *spools* buffer."
   (interactive)
diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index 596c7ee962..24dd9ab0c3 100644
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -168,6 +168,9 @@ composed.")
     (goto-char (1+ (nth 1 state)))
     (current-column)))
 
+(declare-function mail-position-on-field "sendmail" (field &optional soft))
+(declare-function mail-text "sendmail" ())
+
 (defun reporter-dump-variable (varsym mailbuf)
   "Pretty-print the value of the variable in symbol VARSYM.
 MAILBUF is the mail buffer being composed."
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 53296cfb0f..f011621930 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -184,6 +184,10 @@ please report it with \\[report-emacs-bug].")
     :group 'rmail-retrieve
     :type '(repeat (directory)))
 
+(declare-function mail-position-on-field "sendmail" (field &optional soft))
+(declare-function mail-text-start "sendmail" ())
+(declare-function rmail-update-summary "rmailsum" (&rest ignore))
+
 (defun rmail-probe (prog)
   "Determine what flavor of movemail PROG is.
 We do this by executing it with `--version' and analyzing its output."
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 04982aec34..02bc23fe0c 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -49,6 +49,9 @@
 ;; Rmail Edit mode is suitable only for specially formatted data.
 (put 'rmail-edit-mode 'mode-class 'special)
 
+(declare-function rmail-summary-disable "" ())
+(declare-function rmail-summary-enable "rmailsum" ())
+
 (defun rmail-edit-mode ()
   "Major mode for editing the contents of an RMAIL message.
 The editing commands are the same as in Text mode, together with two commands
diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el
index 3b7ccd72d0..67cea297f0 100644
--- a/lisp/mail/rmailmsc.el
+++ b/lisp/mail/rmailmsc.el
@@ -30,6 +30,9 @@
 (defvar rmail-current-message)
 (defvar rmail-inbox-list)
 
+(declare-function rmail-parse-file-inboxes "rmail" ())
+(declare-function rmail-show-message "rmail" (&optional n no-summary))
+
 ;;;###autoload
 (defun set-rmail-inbox-list (file-name)
   "Set the inbox list of the current RMAIL file to FILE-NAME.
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index d85bfc0bfe..1e9f8379b7 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -109,6 +109,8 @@ Set `rmail-default-file' to this name as well as returning it."
 	       (or read-file (file-name-nondirectory default-file))
 	       (file-name-directory default-file)))))))
 
+(declare-function rmail-update-summary "rmailsum" (&rest ignore))
+
 ;;; There are functions elsewhere in Emacs that use this function;
 ;;; look at them before you change the calling method.
 ;;;###autoload
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el
index ba496a3122..bed40cd082 100644
--- a/lisp/mail/rmailsort.el
+++ b/lisp/mail/rmailsort.el
@@ -152,6 +152,7 @@ KEYWORDS is a comma-separated list of labels."
 			      n))))))
 
 ;; Basic functions
+(declare-function rmail-update-summary "rmailsum" (&rest ignore))
 
 (defun rmail-sort-messages (reverse keyfun)
   "Sort messages of current Rmail file.
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index baf99cfd54..f348624d12 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1815,6 +1815,10 @@ The seventh argument ACTIONS is a list of actions to take
 	      (setq buffer-file-coding-system
 		    default-buffer-file-coding-system))))))))
 
+(declare-function dired-move-to-filename "dired" (&optional raise-error eol))
+(declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))
+(declare-function dired-view-file "dired" ())
+
 (defun mail-recover ()
   "Recover interrupted mail composition from auto-save files.
 
diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 61afd24833..035ab0d774 100644
--- a/lisp/mail/uce.el
+++ b/lisp/mail/uce.el
@@ -217,6 +217,8 @@ These are mostly meant for headers that prevent delivery errors reporting."
   :type 'string
   :group 'uce)
 
+(declare-function mail-strip-quoted-names "mail-utils" (address))
+
 (defun uce-reply-to-uce (&optional ignored)
   "Send reply to UCE in Rmail.
 UCE stands for unsolicited commercial email.  Function will set up reply
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index 5d6f266b3b..9bb2f3eab9 100644
--- a/lisp/mail/undigest.el
+++ b/lisp/mail/undigest.el
@@ -153,6 +153,8 @@ See rmail-digest-methods."
       ;; Return the list of marker pairs
       (nreverse result))))
 
+(declare-function rmail-update-summary "rmailsum" (&rest ignore))
+
 ;;;###autoload
 (defun undigestify-rmail-message ()
   "Break up a digest message into its constituent messages.
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index f1cf85a4ff..7ad1c69b50 100644
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -48,6 +48,8 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
     (message "Done")
     (kill-emacs (if error 1 0))))
 
+(declare-function mail-strip-quoted-names "mail-utils" (address))
+
 ;;;###autoload
 (defun unrmail (file to-file)
   "Convert Rmail file FILE to system inbox format file TO-FILE."
diff --git a/lisp/obsolete/mlsupport.el b/lisp/obsolete/mlsupport.el
index 2465ea4eab..7e2663ed90 100644
--- a/lisp/obsolete/mlsupport.el
+++ b/lisp/obsolete/mlsupport.el
@@ -127,13 +127,6 @@
 
 (defun ml-message (&rest args) (message "%s" (apply 'concat args)))
 
-(defun kill-to-end-of-line ()
-  (ml-prefix-argument-loop
-    (if (eolp)
-	(kill-region (point) (1+ (point)))
-      (kill-region (point) (if (search-forward ?\n nil t)
-			       (1- (point)) (point-max))))))
-
 (defun set-auto-fill-hook (arg)
   (setq auto-fill-function (intern arg)))
 
@@ -351,7 +344,7 @@
       (setq count (1+ count)))))
 
 (defun ml-next-page ()
-  (previous-page (- (ml-prefix-argument))))
+  (ml-previous-page (- (ml-prefix-argument))))
 
 (defun page-next-window (&optional arg)
   (let ((count (or arg (ml-prefix-argument))))
diff --git a/lisp/obsolete/rnews.el b/lisp/obsolete/rnews.el
index bca9ea4824..df1d386c77 100644
--- a/lisp/obsolete/rnews.el
+++ b/lisp/obsolete/rnews.el
@@ -272,19 +272,6 @@ Type \\[describe-mode] once reading news to get a list of rnews commands."
       (news-push (cons news-current-news-group news-current-certifiable)
 		 news-current-certifications))))
 
-(defun news-set-minor-modes ()
-  "Creates a minor mode list that has group name, total articles,
-and attribute for current article."
-  (setq news-minor-modes (list (cons 'foo
-				     (concat news-current-message-number
-					     "/"
-					     news-total-current-group
-					     (news-get-attribute-string)))))
-  ;; Detect Emacs versions 18.16 and up, which display
-  ;; directly from news-minor-modes by using a list for mode-name.
-  (or (boundp 'minor-mode-alist)
-      (setq minor-modes news-minor-modes)))
-
 (defun news-set-message-counters ()
   "Scan through current news-groups filelist to figure out how many messages
 are there. Set counters for use with minor mode display."