Mercurial > emacs

--- a/lisp/ChangeLog	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/ChangeLog	Sun Nov 25 16:48:31 2007 +0000
@@ -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
--- a/lisp/ediff.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/ediff.el	Sun Nov 25 16:48:31 2007 +0000
@@ -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)
--- a/lisp/mail/mspools.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/mspools.el	Sun Nov 25 16:48:31 2007 +0000
@@ -246,6 +246,8 @@
   (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)
--- a/lisp/mail/reporter.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/reporter.el	Sun Nov 25 16:48:31 2007 +0000
@@ -168,6 +168,9 @@
     (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."
--- a/lisp/mail/rmail.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/rmail.el	Sun Nov 25 16:48:31 2007 +0000
@@ -184,6 +184,10 @@
     :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."
--- a/lisp/mail/rmailedit.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/rmailedit.el	Sun Nov 25 16:48:31 2007 +0000
@@ -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
--- a/lisp/mail/rmailmsc.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/rmailmsc.el	Sun Nov 25 16:48:31 2007 +0000
@@ -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.
--- a/lisp/mail/rmailout.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/rmailout.el	Sun Nov 25 16:48:31 2007 +0000
@@ -109,6 +109,8 @@
 	       (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
--- a/lisp/mail/rmailsort.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/rmailsort.el	Sun Nov 25 16:48:31 2007 +0000
@@ -152,6 +152,7 @@
 			      n))))))

 ;; Basic functions
+(declare-function rmail-update-summary "rmailsum" (&rest ignore))

 (defun rmail-sort-messages (reverse keyfun)
   "Sort messages of current Rmail file.
--- a/lisp/mail/sendmail.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/sendmail.el	Sun Nov 25 16:48:31 2007 +0000
@@ -1815,6 +1815,10 @@
 	      (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.
--- a/lisp/mail/uce.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/uce.el	Sun Nov 25 16:48:31 2007 +0000
@@ -217,6 +217,8 @@
   :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
--- a/lisp/mail/undigest.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/undigest.el	Sun Nov 25 16:48:31 2007 +0000
@@ -153,6 +153,8 @@
       ;; 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.
--- a/lisp/mail/unrmail.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/mail/unrmail.el	Sun Nov 25 16:48:31 2007 +0000
@@ -48,6 +48,8 @@
     (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."
--- a/lisp/obsolete/mlsupport.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/obsolete/mlsupport.el	Sun Nov 25 16:48:31 2007 +0000
@@ -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))))
--- a/lisp/obsolete/rnews.el	Sun Nov 25 03:51:14 2007 +0000
+++ b/lisp/obsolete/rnews.el	Sun Nov 25 16:48:31 2007 +0000
@@ -272,19 +272,6 @@
       (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."