Mercurial > emacs
comparison lisp/mail/undigest.el @ 86440:4aedd218aad1
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 25 Nov 2007 16:48:31 +0000 |
| parents | ce34261da54f |
| children | 107ccd98fa12 53108e6cea98 |
comparison
equal
deleted
inserted
replaced
| 86439:62ce066ba56f | 86440:4aedd218aad1 |
|---|---|
| 150 (goto-char (point-min)) | 150 (goto-char (point-min)) |
| 151 (while (search-forward "\n- -" nil t) | 151 (while (search-forward "\n- -" nil t) |
| 152 (replace-match "\n-")) | 152 (replace-match "\n-")) |
| 153 ;; Return the list of marker pairs | 153 ;; Return the list of marker pairs |
| 154 (nreverse result)))) | 154 (nreverse result)))) |
| 155 | |
| 156 (declare-function rmail-update-summary "rmailsum" (&rest ignore)) | |
| 155 | 157 |
| 156 ;;;###autoload | 158 ;;;###autoload |
| 157 (defun undigestify-rmail-message () | 159 (defun undigestify-rmail-message () |
| 158 "Break up a digest message into its constituent messages. | 160 "Break up a digest message into its constituent messages. |
| 159 Leaves original message, deleted, before the undigestified messages." | 161 Leaves original message, deleted, before the undigestified messages." |