From 2b54af7428bc0526a413f6a061fad9b18b243950 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sun, 25 Nov 2007 16:48:31 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 24 ++++++++++++++++++++++++ lisp/ediff.el | 1 + lisp/mail/mspools.el | 2 ++ lisp/mail/reporter.el | 3 +++ lisp/mail/rmail.el | 4 ++++ lisp/mail/rmailedit.el | 3 +++ lisp/mail/rmailmsc.el | 3 +++ lisp/mail/rmailout.el | 2 ++ lisp/mail/rmailsort.el | 1 + lisp/mail/sendmail.el | 4 ++++ lisp/mail/uce.el | 2 ++ lisp/mail/undigest.el | 2 ++ lisp/mail/unrmail.el | 2 ++ lisp/obsolete/mlsupport.el | 9 +-------- lisp/obsolete/rnews.el | 13 ------------- 15 files changed, 54 insertions(+), 21 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7468e41b199..db636333826 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/ediff.el b/lisp/ediff.el index a2aafc90292..1ccfdcc7d6c 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 514bf4fe5f3..45f4c2d89a7 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 596c7ee9627..24dd9ab0c35 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 53296cfb0fe..f011621930a 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 04982aec349..02bc23fe0c5 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 3b7ccd72d02..67cea297f0e 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 d85bfc0bfe8..1e9f8379b7b 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 ba496a31228..bed40cd0820 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 baf99cfd54a..f348624d120 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 61afd248332..035ab0d774c 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 5d6f266b3b0..9bb2f3eab90 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 f1cf85a4ffc..7ad1c69b50d 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 2465ea4eabd..7e2663ed903 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 bca9ea4824a..df1d386c77f 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." -- 2.39.2