*** pub/dgnus/lisp/gnus-cache.el Fri Nov 3 05:28:23 1995 --- dgnus/lisp/gnus-cache.el Fri Nov 3 07:31:45 1995 *************** *** 221,227 **** (erase-buffer) ;; There may be some overlays that we have to kill... (insert "i") ! (let ((overlays (overlays-at (point-min)))) (while overlays (delete-overlay (car overlays)) (setq overlays (cdr overlays)))) --- 221,228 ---- (erase-buffer) ;; There may be some overlays that we have to kill... (insert "i") ! (let ((overlays (and (fboundp 'overlays-at) ! (overlays-at (point-min))))) (while overlays (delete-overlay (car overlays)) (setq overlays (cdr overlays)))) *** pub/dgnus/lisp/gnus.el Fri Nov 3 05:28:25 1995 --- dgnus/lisp/gnus.el Fri Nov 3 07:32:49 1995 *************** *** 1349,1355 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "Gnus v5.0.11" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1349,1355 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "Gnus v5.0.12" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 10853,10859 **** (erase-buffer) ;; There may be some overlays that we have to kill... (insert "i") ! (let ((overlays (overlays-at (point-min)))) (while overlays (delete-overlay (car overlays)) (setq overlays (cdr overlays)))) --- 10853,10860 ---- (erase-buffer) ;; There may be some overlays that we have to kill... (insert "i") ! (let ((overlays (and (fboundp 'overlays-at) ! (overlays-at (point-min))))) (while overlays (delete-overlay (car overlays)) (setq overlays (cdr overlays)))) *** pub/dgnus/lisp/nnspool.el Fri Nov 3 05:28:26 1995 --- dgnus/lisp/nnspool.el Fri Nov 3 07:31:47 1995 *************** *** 482,491 **** (ttime (mapcar (lambda (ti) (and ti (string-to-int ti))) (timezone-parse-time (aref (timezone-parse-date date) 3)))) ! (unix (encode-time (nth 2 ttime) (nth 1 ttime) (nth 0 ttime) ! (nth 2 tdate) (nth 1 tdate) (nth 0 tdate) (nth 4 tdate)))) ! (+ (* (car unix) 65536.0) ! (car (cdr unix))))) (provide 'nnspool) --- 482,497 ---- (ttime (mapcar (lambda (ti) (and ti (string-to-int ti))) (timezone-parse-time (aref (timezone-parse-date date) 3)))) ! (edate (mapcar (lambda (ti) (and ti (string-to-int ti))) ! (timezone-parse-date "Jan 1 12:00:00 1970"))) ! (tday (- (timezone-absolute-from-gregorian ! (nth 1 tdate) (nth 2 tdate) (nth 0 tdate)) ! (timezone-absolute-from-gregorian ! (nth 1 edate) (nth 2 edate) (nth 0 edate))))) ! (+ (nth 2 ttime) ! (* (nth 1 ttime) 60) ! (* 1.0 (nth 0 ttime) 60 60) ! (* 1.0 tday 60 60 24)))) (provide 'nnspool)