Commit 2b54af74 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* 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.
parent a07c9a8b
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> 2007-11-25 Glenn Morris <rgm@gnu.org>
* eshell/esh-maint.el (top-level): Use require with NOERROR for * eshell/esh-maint.el (top-level): Use require with NOERROR for
......
...@@ -363,6 +363,7 @@ ...@@ -363,6 +363,7 @@
(list (cons 'ediff-job-name job-name)) (list (cons 'ediff-job-name job-name))
merge-buffer-file))) merge-buffer-file)))
(declare-function diff-latest-backup-file "diff" (fn))
;;;###autoload ;;;###autoload
(defalias 'ediff 'ediff-files) (defalias 'ediff 'ediff-files)
......
...@@ -246,6 +246,8 @@ Buffer is not displayed if SHOW is non-nil." ...@@ -246,6 +246,8 @@ Buffer is not displayed if SHOW is non-nil."
(mspools-mode) (mspools-mode)
) )
(declare-function rmail-get-new-mail "rmail" (&optional file-name))
(defun mspools-visit-spool () (defun mspools-visit-spool ()
"Visit the folder on the current line of the *spools* buffer." "Visit the folder on the current line of the *spools* buffer."
(interactive) (interactive)
......
...@@ -168,6 +168,9 @@ composed.") ...@@ -168,6 +168,9 @@ composed.")
(goto-char (1+ (nth 1 state))) (goto-char (1+ (nth 1 state)))
(current-column))) (current-column)))
(declare-function mail-position-on-field "sendmail" (field &optional soft))
(declare-function mail-text "sendmail" ())
(defun reporter-dump-variable (varsym mailbuf) (defun reporter-dump-variable (varsym mailbuf)
"Pretty-print the value of the variable in symbol VARSYM. "Pretty-print the value of the variable in symbol VARSYM.
MAILBUF is the mail buffer being composed." MAILBUF is the mail buffer being composed."
......
...@@ -184,6 +184,10 @@ please report it with \\[report-emacs-bug].") ...@@ -184,6 +184,10 @@ please report it with \\[report-emacs-bug].")
:group 'rmail-retrieve :group 'rmail-retrieve
:type '(repeat (directory))) :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) (defun rmail-probe (prog)
"Determine what flavor of movemail PROG is. "Determine what flavor of movemail PROG is.
We do this by executing it with `--version' and analyzing its output." We do this by executing it with `--version' and analyzing its output."
......
...@@ -49,6 +49,9 @@ ...@@ -49,6 +49,9 @@
;; Rmail Edit mode is suitable only for specially formatted data. ;; Rmail Edit mode is suitable only for specially formatted data.
(put 'rmail-edit-mode 'mode-class 'special) (put 'rmail-edit-mode 'mode-class 'special)
(declare-function rmail-summary-disable "" ())
(declare-function rmail-summary-enable "rmailsum" ())
(defun rmail-edit-mode () (defun rmail-edit-mode ()
"Major mode for editing the contents of an RMAIL message. "Major mode for editing the contents of an RMAIL message.
The editing commands are the same as in Text mode, together with two commands The editing commands are the same as in Text mode, together with two commands
......
...@@ -30,6 +30,9 @@ ...@@ -30,6 +30,9 @@
(defvar rmail-current-message) (defvar rmail-current-message)
(defvar rmail-inbox-list) (defvar rmail-inbox-list)
(declare-function rmail-parse-file-inboxes "rmail" ())
(declare-function rmail-show-message "rmail" (&optional n no-summary))
;;;###autoload ;;;###autoload
(defun set-rmail-inbox-list (file-name) (defun set-rmail-inbox-list (file-name)
"Set the inbox list of the current RMAIL file to FILE-NAME. "Set the inbox list of the current RMAIL file to FILE-NAME.
......
...@@ -109,6 +109,8 @@ Set `rmail-default-file' to this name as well as returning it." ...@@ -109,6 +109,8 @@ Set `rmail-default-file' to this name as well as returning it."
(or read-file (file-name-nondirectory default-file)) (or read-file (file-name-nondirectory default-file))
(file-name-directory 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; ;;; There are functions elsewhere in Emacs that use this function;
;;; look at them before you change the calling method. ;;; look at them before you change the calling method.
;;;###autoload ;;;###autoload
......
...@@ -152,6 +152,7 @@ KEYWORDS is a comma-separated list of labels." ...@@ -152,6 +152,7 @@ KEYWORDS is a comma-separated list of labels."
n)))))) n))))))
;; Basic functions ;; Basic functions
(declare-function rmail-update-summary "rmailsum" (&rest ignore))
(defun rmail-sort-messages (reverse keyfun) (defun rmail-sort-messages (reverse keyfun)
"Sort messages of current Rmail file. "Sort messages of current Rmail file.
......
...@@ -1815,6 +1815,10 @@ The seventh argument ACTIONS is a list of actions to take ...@@ -1815,6 +1815,10 @@ The seventh argument ACTIONS is a list of actions to take
(setq buffer-file-coding-system (setq buffer-file-coding-system
default-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 () (defun mail-recover ()
"Recover interrupted mail composition from auto-save files. "Recover interrupted mail composition from auto-save files.
......
...@@ -217,6 +217,8 @@ These are mostly meant for headers that prevent delivery errors reporting." ...@@ -217,6 +217,8 @@ These are mostly meant for headers that prevent delivery errors reporting."
:type 'string :type 'string
:group 'uce) :group 'uce)
(declare-function mail-strip-quoted-names "mail-utils" (address))
(defun uce-reply-to-uce (&optional ignored) (defun uce-reply-to-uce (&optional ignored)
"Send reply to UCE in Rmail. "Send reply to UCE in Rmail.
UCE stands for unsolicited commercial email. Function will set up reply UCE stands for unsolicited commercial email. Function will set up reply
......
...@@ -153,6 +153,8 @@ See rmail-digest-methods." ...@@ -153,6 +153,8 @@ See rmail-digest-methods."
;; Return the list of marker pairs ;; Return the list of marker pairs
(nreverse result)))) (nreverse result))))
(declare-function rmail-update-summary "rmailsum" (&rest ignore))
;;;###autoload ;;;###autoload
(defun undigestify-rmail-message () (defun undigestify-rmail-message ()
"Break up a digest message into its constituent messages. "Break up a digest message into its constituent messages.
......
...@@ -48,6 +48,8 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'." ...@@ -48,6 +48,8 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
(message "Done") (message "Done")
(kill-emacs (if error 1 0)))) (kill-emacs (if error 1 0))))
(declare-function mail-strip-quoted-names "mail-utils" (address))
;;;###autoload ;;;###autoload
(defun unrmail (file to-file) (defun unrmail (file to-file)
"Convert Rmail file FILE to system inbox format file TO-FILE." "Convert Rmail file FILE to system inbox format file TO-FILE."
......
...@@ -127,13 +127,6 @@ ...@@ -127,13 +127,6 @@
(defun ml-message (&rest args) (message "%s" (apply 'concat args))) (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) (defun set-auto-fill-hook (arg)
(setq auto-fill-function (intern arg))) (setq auto-fill-function (intern arg)))
...@@ -351,7 +344,7 @@ ...@@ -351,7 +344,7 @@
(setq count (1+ count))))) (setq count (1+ count)))))
(defun ml-next-page () (defun ml-next-page ()
(previous-page (- (ml-prefix-argument)))) (ml-previous-page (- (ml-prefix-argument))))
(defun page-next-window (&optional arg) (defun page-next-window (&optional arg)
(let ((count (or arg (ml-prefix-argument)))) (let ((count (or arg (ml-prefix-argument))))
......
...@@ -272,19 +272,6 @@ Type \\[describe-mode] once reading news to get a list of rnews commands." ...@@ -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-push (cons news-current-news-group news-current-certifiable)
news-current-certifications)))) 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 () (defun news-set-message-counters ()
"Scan through current news-groups filelist to figure out how many messages "Scan through current news-groups filelist to figure out how many messages
are there. Set counters for use with minor mode display." are there. Set counters for use with minor mode display."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment