[2746] in Release_Engineering
rmail.el fix: Babyl backwards compatibility
daemon@ATHENA.MIT.EDU (ckclark@ATHENA.MIT.EDU)
Wed Aug 14 18:35:38 1991
From: ckclark@ATHENA.MIT.EDU
Date: Wed, 14 Aug 91 18:35:38 -0400
To: rel-eng@ATHENA.MIT.EDU
Cc: release@ATHENA.MIT.EDU
Reply-To: ckclark@mit.edu
This simple fix will allow emacs to read in older BABYL
format files with no problems, and do the attribute parsing
correctly. It fixes the misparsing of the ``unseen'' flag
which occured when reading a file generated by an older
movemail or pmd (generated by a version of pmdc such as the
one in the watchmaker locker.) The BABYL paragraph in the
release notes can be truncated to the following shorter
form, as the rest will go away with this fix:
The BABYL format used by Emacs version 18.57 has a small
change in syntax from the format used by version 18.54.
Emacs version 18.57 convert older RMAIL files to the new
format.
(Don't forget to update the byte-compiled version, as well.)
*** /source/third/common/gnu/emacs/lisp/rmail.el Wed Jan 9 17:03:14 1991
--- rmail.el Wed Aug 14 18:12:03 1991
***************
*** 764,770 ****
(save-excursion
(widen)
(goto-char (+ 3 (rmail-msgbeg rmail-current-message)))
! (let ((curstate (search-backward (concat ", " attr ",")
(prog1 (point) (end-of-line)) t)))
(or (eq curstate (not (not state)))
(if curstate
--- 764,770 ----
(save-excursion
(widen)
(goto-char (+ 3 (rmail-msgbeg rmail-current-message)))
! (let ((curstate (re-search-backward (concat ", ?" attr ",")
(prog1 (point) (end-of-line)) t)))
(or (eq curstate (not (not state)))
(if curstate
