diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1997-09-24 01:50:24 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1997-09-24 01:50:24 +0000 |
| commit | a8151ef7e5caf46b41fc52f8189b07d1fa6c184e (patch) | |
| tree | 8eb82a1990da4afe2e247c1397e42a20128f0568 /lisp/gnus/gnus-util.el | |
| parent | 5f016f400343a57d641642ce114f90d3a15082e1 (diff) | |
| download | emacs-a8151ef7e5caf46b41fc52f8189b07d1fa6c184e.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 0393d07ee9a..3d75515dfeb 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -255,7 +255,8 @@ (date (mapcar (lambda (d) (and d (string-to-int d))) parse)) (time (mapcar 'string-to-int (timezone-parse-time (aref parse 3))))) (encode-time (caddr time) (cadr time) (car time) - (caddr date) (cadr date) (car date) (nth 4 date)))) + (caddr date) (cadr date) (car date) + (* 60 (timezone-zone-to-minute (nth 4 date)))))) (defun gnus-time-minus (t1 t2) "Subtract two internal times." @@ -530,7 +531,7 @@ Timezone package is used." (unless gnus-xemacs (let* ((overlayss (overlay-lists)) (buffer-read-only nil) - (overlays (nconc (car overlayss) (cdr overlayss)))) + (overlays (delq nil (nconc (car overlayss) (cdr overlayss))))) (while overlays (delete-overlay (pop overlays)))))) |