rbj@ICST-CMR.ARPA (Root Boy Jim) (09/15/87)
In GNU Emacs 18.48.1 of Mon Sep 14 1987 on icst-cmr (berkeley-unix) Tried running rmail lately? Tried computing headers? It blows up! In the diff below, it is the first difference that does it. I substituted `total' for `new-summary-line-count' and it seems to work as before. Looks like a case of two variable names being used for the same thing inside different `let's. /gnu/dist-18.48/lisp [rbj@icst-cmr 4] !diff diff ../../dist-18.4[08]/lisp/rmailsum.el 107c107 < (if (> total 0) --- > (if (> new-summary-line-count 0) 189c189 < (if (not (search-forward "Date:" nil t)) --- > (if (not (re-search-forward "^Date:" nil t)) 210c210 < (if (not (search-forward "From:" nil t)) --- > (if (not (re-search-forward "^From:" nil t)) 232c232 < (if (search-forward "Subject:" nil t) --- > (if (re-search-forward "^Subject:" nil t) 381c381 < "Scroll message in top window forward" --- > "Scroll other window forward." 383,385c383 < (scroll-other-window (if (null dist) < nil < (prefix-numeric-value dist)))) --- > (scroll-other-window dist)) 388c386 < "Scroll message in top window backward" --- > "Scroll other window backward." 390,394c388,391 < (other-window 1) < (scroll-down (if (null dist) < nil < (prefix-numeric-value dist))) < (other-window 1)) --- > (scroll-other-window > (cond ((eq dist '-) nil) > ((null dist) '-) > (t (- (prefix-numeric-value dist)))))) 397c394 < "Quit out of rmail and rmail summary" --- > "Quit out of rmail and rmail summary." /gnu/dist-18.48/lisp [rbj@icst-cmr 5] (Root Boy) Jim Cottrell <rbj@icst-cmr.arpa> National Bureau of Standards Flamer's Hotline: (301) 975-5688 I'm changing the CHANNEL.. But all I get is commercials for ``RONCO MIRACLE BAMBOO STEAMERS''!