writeable -> writable

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 2378c19550ec83993fe143cc7b96c57c4f35a193..7377fc2d84fcf027edb27ad4b1b15f48817dd030 100644 (file)
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.20 1992/11/05 16:41:22 bal Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.21 1992/11/12 19:36:15 bal Exp $
 ;;;
 ;;;    Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -447,10 +447,10 @@ and use that file as the inbox."
           (and (file-exists? pathname)
                (let ((mark (mark-left-inserting-copy mark)))
                  (insert-file mark pathname)
-                 (if (let ((char (mark-left-char mark)))
-                       (and char
-                            (not (char=? char #\newline))))
-                     (insert-newline mark))
+;                (if (let ((char (mark-left-char mark)))
+;                      (and char
+;                           (not (char=? char #\newline))))
+;                    (insert-newline mark))
                  (mark-temporary! mark)
                  pathname)))))
     (let ((source (->pathname filename)))
@@ -1390,7 +1390,7 @@ buffer visiting that file."
                   'RMAIL-OLD-TEXT
                   (extract-string (buffer-start buffer)
                                   (buffer-end buffer)))
-      (set-buffer-writeable! buffer)
+      (set-buffer-writable! buffer)
       (message
        (substitute-command-keys
        "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort"
@@ -1894,7 +1894,7 @@ Leaves original message, deleted, before the undigestified messages."
     (sit-for 1)
     end)
 
-  (with-text-clipped start end (lambda () (loop start 0))))
+  (with-text-clipped start end (lambda () (loop (skip-chars-forward "\n" start end) 0))))
 \f
 (define (convert-buffer-to-babyl-format buffer)
   (with-buffer-open buffer

diff --git a/v7/src/edwin/rmailsrt.scm b/v7/src/edwin/rmailsrt.scm
index fb385e0200056f70efbdc546c47130cb7df908ce..7941d7831217f2e2f196961000369d0e9ce498f8 100644 (file)
--- a/v7/src/edwin/rmailsrt.scm
+++ b/v7/src/edwin/rmailsrt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.7 1992/09/24 22:13:25 bal Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.8 1992/11/12 19:36:05 bal Exp $
 ;;;
 ;;;    Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -133,7 +133,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
           (sort-vect (make-vector (1+ nummsg))))
       (message "Finding sort keys...")
       (widen)
-      (set-buffer-writeable! (current-buffer))
+      (set-buffer-writable! (current-buffer))
       (let loop ((n 0)
                 (the-memo (msg-memo/first (current-msg-memo))))
        (let ((next (msg-memo/next the-memo)))
@@ -188,10 +188,14 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
 
 (define rmail-sortable-date-string
   (lambda (date)
-    (let ((month '(("JAN" . " 1")("FEB" . " 2")("MAR" . " 3")
-                                ("APR" . " 4")("MAY" . " 5")("JUN" . " 6")
-                                ("JUL" . " 7")("AUG" . " 8")("SEP" . " 9")
-                                ("OCT" . "10")("NOV" . "11")("DEC" . "12")))
+    (let ((month '(("JAN" . "01")("FEB" . "02")("MAR" . "03")
+                                ("APR" . "04")("MAY" . "05")("JUN" . "06")
+                                ("JUL" . "07")("AUG" . "08")("SEP" . "09")
+                                ("OCT" . "10")("NOV" . "11")("DEC" . "12")
+                                ("JANUARY" . "01")("FEBRUARY" . "02")("MARCH" . "03")
+                                ("APRIL" . "04")("JUNE" . "06")("JULY" . "07")
+                                ("AUGUST" . "08")("SEPTEMBER" . "09")("OCTOBER" . "10")
+                                ("NOVEMBER" . "11")("DECEMBER" . "12")))
          (date (or date "")))
     ;; Can understand the following styles:
     ;; (1) 14 Apr 89 03:20:12 GMT
@@ -203,7 +207,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
     ;; made seconds optional since research.att.com doesn't send it out
       (if (re-search-string-forward
           (re-compile-pattern
-           "\\([0-9]+\\) \\([^ ,]+\\) \\([0-9]+\\)[ ]+\\([0-9]+\\):\\([0-9]+\\)\\([0-9:]*\\)" true)
+           "\\([0-9]+\\) \\([^ ,]+\\) \\([0-9]+\\)[ ]+\\([0-9]?[0-9]\\):?\\([0-9][0-9]\\):?\\([0-9]*\\)" true)
           true false date)
          (string-append
           ;; Year
@@ -232,10 +236,8 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
           ;; Time
           (string-pad-left
            (substring date (re-match-start-index 4) (re-match-end-index 4)) 2 #\0)
-          (string-pad-left
-           (substring date (re-match-start-index 5) (re-match-end-index 5)) 2 #\0)
-          (string-pad-left
-           (substring date (re-match-start-index 6) (re-match-end-index 6)) 2 #\0))
+          (substring date (re-match-start-index 5) (re-match-end-index 5))
+          (substring date (re-match-start-index 6) (re-match-end-index 6)))
       ;; Cannot understand DATE string.
          date))))
 \f

diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm
index 5648298ce8cc4c16da19347a914e2c5b86c63600..ea2729dd0e173a44ab266b84412e1e7828931e6d 100644 (file)
--- a/v7/src/edwin/rmailsum.scm
+++ b/v7/src/edwin/rmailsum.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.25 1992/11/11 19:11:56 bal Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.26 1992/11/12 19:37:19 bal Exp $
 ;;;
 ;;;    Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -48,7 +48,7 @@
 \f
 (define-variable rmailsum-rcs-header
   "The RCS header of the rmailsum.scm file."
-  "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.25 1992/11/11 19:11:56 bal Exp $"
+  "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.26 1992/11/12 19:37:19 bal Exp $"
   string?)
 
 (define-variable-per-buffer rmail-buffer
@@ -196,7 +196,7 @@ RECIPIENTS is a string of names separated by commas."
            (if next-memo
                (loop next-memo))))
        (select-buffer-other-window (ref-variable rmail-summary-buffer))
-       (set-buffer-writeable! (current-buffer))
+       (set-buffer-writable! (current-buffer))
        (set-current-point! (buffer-start (current-buffer)))
        (kill-string (buffer-start (current-buffer))
                     (buffer-end (current-buffer)))
@@ -508,7 +508,7 @@ Entering this mode calls value of hook variable rmail-summary-mode-hook."
                (begin
                  (if (char=? (mark-right-char end) #\-)
                      (begin
-                       (set-buffer-writeable! (current-buffer))
+                       (set-buffer-writable! (current-buffer))
                        (mark-delete-right-char! end)
                        (insert-char #\space end)
                        (set-buffer-read-only! (current-buffer))))
@@ -593,7 +593,7 @@ shown in the RMAIL buffer, warp to the appropriate message."
                      (begin
                        (if (char=? (mark-right-char end) #\-)
                            (begin
-                             (set-buffer-writeable! (current-buffer))
+                             (set-buffer-writable! (current-buffer))
                              (mark-delete-right-char! end)
                              (insert-char #\space end)
                              (set-buffer-read-only! (current-buffer))))
@@ -625,7 +625,7 @@ shown in the RMAIL buffer, warp to the appropriate message."
           (skip-chars-forward " " (line-start (current-point) 0))))
       (let ((the-mark
             (skip-chars-forward "[0-9]" the-mark1)))
-       (set-buffer-writeable! (current-buffer))
+       (set-buffer-writable! (current-buffer))
        (delete-string the-mark (mark1+ the-mark))
        (insert-string "D" the-mark)
        (set-buffer-read-only! (current-buffer))))))
@@ -664,7 +664,7 @@ shown in the RMAIL buffer, warp to the appropriate message."
             (skip-chars-forward " " (line-start (current-point) 0))))
        (let ((the-mark
               (skip-chars-forward "[0-9]" the-mark1)))
-         (set-buffer-writeable! (current-buffer))
+         (set-buffer-writable! (current-buffer))
          (delete-string the-mark (mark1+ the-mark))
          (insert-string " " the-mark)
          (set-buffer-read-only! (current-buffer)))))))