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>
* eshell/esh-maint.el (top-level): Use require with NOERROR for
......
......@@ -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)
......
......@@ -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)
......
......@@ -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."
......
......@@ -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."
......
......@@ -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
......
......@@ -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.
......
......@@ -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
......
......@@ -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.
......
......@@ -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.
......
......@@ -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
......
......@@ -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.
......
......@@ -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."
......
......@@ -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))))
......
......@@ -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."
......
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