Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 43d0935ff93d3190a8d893bc07316b2bf5031e96 1 parent a4ee595
@larsmagne larsmagne authored
Showing with 15 additions and 7 deletions.
  1. +2 −1  lisp/gnus-cache.el
  2. +3 −2 lisp/gnus.el
  3. +10 −4 lisp/nnspool.el
View
3  lisp/gnus-cache.el
@@ -221,7 +221,8 @@
(erase-buffer)
;; There may be some overlays that we have to kill...
(insert "i")
- (let ((overlays (overlays-at (point-min))))
+ (let ((overlays (and (fboundp 'overlays-at)
+ (overlays-at (point-min)))))
(while overlays
(delete-overlay (car overlays))
(setq overlays (cdr overlays))))
View
5 lisp/gnus.el
@@ -1349,7 +1349,7 @@ variable (string, integer, character, etc).")
"gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
"The mail address of the Gnus maintainers.")
-(defconst gnus-version "Gnus v5.0.11"
+(defconst gnus-version "Gnus v5.0.12"
"Version number for this version of Gnus.")
(defvar gnus-info-nodes
@@ -10853,7 +10853,8 @@ The following commands are available:
(erase-buffer)
;; There may be some overlays that we have to kill...
(insert "i")
- (let ((overlays (overlays-at (point-min))))
+ (let ((overlays (and (fboundp 'overlays-at)
+ (overlays-at (point-min)))))
(while overlays
(delete-overlay (car overlays))
(setq overlays (cdr overlays))))
View
14 lisp/nnspool.el
@@ -482,10 +482,16 @@ Newsgroup must be selected before calling this function."
(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)))))
+ (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)
Please sign in to comment.
Something went wrong with that request. Please try again.