Mercurial > emacs
comparison lisp/gnus/gnus-util.el @ 19969:5f1ab3dd344d
*** empty log message ***
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Wed, 24 Sep 1997 01:50:24 +0000 |
| parents | 6713d6efcfde |
| children | 6d8f2c66943f |
comparison
equal
deleted
inserted
replaced
| 19968:88dd57f50303 | 19969:5f1ab3dd344d |
|---|---|
| 253 "Convert DATE to internal time." | 253 "Convert DATE to internal time." |
| 254 (let* ((parse (timezone-parse-date date)) | 254 (let* ((parse (timezone-parse-date date)) |
| 255 (date (mapcar (lambda (d) (and d (string-to-int d))) parse)) | 255 (date (mapcar (lambda (d) (and d (string-to-int d))) parse)) |
| 256 (time (mapcar 'string-to-int (timezone-parse-time (aref parse 3))))) | 256 (time (mapcar 'string-to-int (timezone-parse-time (aref parse 3))))) |
| 257 (encode-time (caddr time) (cadr time) (car time) | 257 (encode-time (caddr time) (cadr time) (car time) |
| 258 (caddr date) (cadr date) (car date) (nth 4 date)))) | 258 (caddr date) (cadr date) (car date) |
| 259 (* 60 (timezone-zone-to-minute (nth 4 date)))))) | |
| 259 | 260 |
| 260 (defun gnus-time-minus (t1 t2) | 261 (defun gnus-time-minus (t1 t2) |
| 261 "Subtract two internal times." | 262 "Subtract two internal times." |
| 262 (let ((borrow (< (cadr t1) (cadr t2)))) | 263 (let ((borrow (< (cadr t1) (cadr t2)))) |
| 263 (list (- (car t1) (car t2) (if borrow 1 0)) | 264 (list (- (car t1) (car t2) (if borrow 1 0)) |
| 528 (defun gnus-kill-all-overlays () | 529 (defun gnus-kill-all-overlays () |
| 529 "Delete all overlays in the current buffer." | 530 "Delete all overlays in the current buffer." |
| 530 (unless gnus-xemacs | 531 (unless gnus-xemacs |
| 531 (let* ((overlayss (overlay-lists)) | 532 (let* ((overlayss (overlay-lists)) |
| 532 (buffer-read-only nil) | 533 (buffer-read-only nil) |
| 533 (overlays (nconc (car overlayss) (cdr overlayss)))) | 534 (overlays (delq nil (nconc (car overlayss) (cdr overlayss))))) |
| 534 (while overlays | 535 (while overlays |
| 535 (delete-overlay (pop overlays)))))) | 536 (delete-overlay (pop overlays)))))) |
| 536 | 537 |
| 537 (defvar gnus-work-buffer " *gnus work*") | 538 (defvar gnus-work-buffer " *gnus work*") |
| 538 | 539 |