* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7468e41b19950d7a4792634de5420aec9146ee72..db63633382612e8e157c66fbd7053faf8aacc7b9 100644 (file)
--- 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 a2aafc90292c51cb3759d1bd80d010d7590518ff..1ccfdcc7d6c7d6f74c9bdfe747e7f8c431e84d63 100644 (file)
--- 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 514bf4fe5f3703d6371b132ec7fa7b67cca6812b..45f4c2d89a77e2142098b1d018d66336e58f8b7e 100644 (file)
--- 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 596c7ee9627785dd77aa840f90dad6585148280a..24dd9ab0c3587fd05fddf7ad9972797797c4daa8 100644 (file)
--- 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 53296cfb0feef9e70f4579bb0fed38fd0fb8e92e..f011621930a707464fbb61915e8f1df189a635bc 100644 (file)
--- 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 04982aec3491e62ce310b5adb83a83810b440b07..02bc23fe0c57f66bbd6bdd556370f7d99ed2f212 100644 (file)
--- 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 3b7ccd72d02b841c1a2beed42098e17892c09a86..67cea297f0eec15fa7106619e80e4b699e32dafe 100644 (file)
--- 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 d85bfc0bfe8ecaed540f59fdc26c8415680bb854..1e9f8379b7b9d222f66728e94d88b44a01336d9e 100644 (file)
--- 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 ba496a31228c632c9b54787457c40d7257905c19..bed40cd0820c04d2ff4479a40391bc36fbd9bd99 100644 (file)
--- a/lisp/mail/rmailsort.el
+++ b/lisp/mail/rmailsort.el
@@ -152,6 +152,7 @@ KEYWORDS is a comma-separated list of labels."
                              n))))))
 \f
 ;; 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 baf99cfd54a610966c26c57c608333ffdbcad0de..f348624d12033ad6a72de7754fd3adfa6a39bada 100644 (file)
--- 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 61afd248332aac7dc1dec90f2acb9708bc24e4d3..035ab0d774ccebd7bdf3e3bdaae3a22efd796037 100644 (file)
--- 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 5d6f266b3b0334edb25d895974586aa3e5818ec0..9bb2f3eab90c6616dc2d07b748f317258052083e 100644 (file)
--- 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 f1cf85a4ffca5d1cd7961ce579bf51c1b9413287..7ad1c69b50d47328370744eb713c8f4e8a4e8c76 100644 (file)
--- 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 2465ea4eabd39afb49253ce6da591d395ab8735b..7e2663ed903776d4e0f4ff31c35e2c556c23adb9 100644 (file)
--- 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 bca9ea4824a15c0c5aa4b51dbd887f452a8b10fd..df1d386c77ffdc7ccce0ef7338917ecf23d25729 100644 (file)
--- 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."