mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1991-08-18 23:46:19 +00:00
parent 1e134a5fd8
commit b77ab9e81f
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/mail/rmail.el
View File

@ -580,20 +580,29 @@ argument causes us to read a file name and use that file as the inbox."
;; the rmail-break-forwarded-messages feature is not implemented
(defun rmail-convert-to-babyl-format ()
(let ((count 0) start
(case-fold-search nil))
(case-fold-search nil)
(invalid-input-resync
(function (lambda ()
(message "Invalid Babyl format in inbox!")
(sit-for 1)
;; Try to get back in sync with a real message.
(if (re-search-forward
(concat mmdf-delim1 "\\|^From") nil t)
(beginning-of-line)
(goto-char (point-max)))))))
(goto-char (point-min))
(save-restriction
(while (not (eobp))
(cond ((looking-at "BABYL OPTIONS:");Babyl header
(search-forward "\n\^_")
(delete-region (point-min) (point)))
(if (search-forward "\n\^_" nil t)
;; If we find the proper terminator, delete through there.
(delete-region (point-min) (point))
(funcall invalid-input-resync)
(delete-region (point-min) (point)))
;; Babyl format message
((looking-at "\^L")
(or (search-forward "\n\^_" nil t)
(progn
(message "Invalid Babyl format in inbox!")
(sit-for 1)
(goto-char (point-max))))
(funcall invalid-input-resync))
(setq count (1+ count))
;; Make sure there is no extra white space after the ^_
;; at the end of the message.