diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-11-25 16:48:31 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-11-25 16:48:31 +0000 |
| commit | 2b54af7428bc0526a413f6a061fad9b18b243950 (patch) | |
| tree | f51058e81242490edd8a3c4fff4178a40536c713 /lisp/obsolete | |
| parent | a07c9a8b5bec6b3088d5f0580403e1d740648851 (diff) | |
* 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.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/mlsupport.el | 9 | ||||
| -rw-r--r-- | lisp/obsolete/rnews.el | 13 |
2 files changed, 1 insertions, 21 deletions
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." |