# HG changeset patch # User Dan Nicolaescu # Date 1196009311 0 # Node ID 4aedd218aad1ff2553ccf3312210491b30bdd94f # Parent 62ce066ba56f6219e701f42ee0665aaf89825a3f * 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 -r 62ce066ba56f -r 4aedd218aad1 lisp/ChangeLog --- 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 + + * 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 * eshell/esh-maint.el (top-level): Use require with NOERROR for diff -r 62ce066ba56f -r 4aedd218aad1 lisp/ediff.el --- 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) diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/mspools.el --- 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) diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/reporter.el --- 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." diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/rmail.el --- 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." diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/rmailedit.el --- 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 diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/rmailmsc.el --- 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. diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/rmailout.el --- 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 diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/rmailsort.el --- 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. diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/sendmail.el --- 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. diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/uce.el --- 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 diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/undigest.el --- 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. diff -r 62ce066ba56f -r 4aedd218aad1 lisp/mail/unrmail.el --- 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." diff -r 62ce066ba56f -r 4aedd218aad1 lisp/obsolete/mlsupport.el --- 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)))) diff -r 62ce066ba56f -r 4aedd218aad1 lisp/obsolete/rnews.el --- 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."