[Emacs-diffs] /srv/bzr/emacs/trunk r106960: Merge changes made in Gnus trunk

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 106960
author: Gnus developers <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2012-01-28 02:25:57 +0000
message:
  Merge changes made in Gnus trunk
  
  shr.el (shr-browse-url): Fix the name of the `browse-url-mail' function call.
  gnus-demon.el (gnus-demon-run-callback, gnus-demon-init): Convert to seconds, 
and make the repeat clause with HH:MM specs work as documented.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-demon.el
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-01-27 14:32:25 +0000
+++ b/lisp/gnus/ChangeLog       2012-01-28 02:25:57 +0000
@@ -1,3 +1,14 @@
+2012-01-27  Elias Pipping  <address@hidden>  (tiny change)
+
+       * shr.el (shr-browse-url): Fix the name of the `browse-url-mail'
+       function call.
+
+2012-01-27  Vida Gábor  <address@hidden>  (tiny change)
+
+       * gnus-demon.el (gnus-demon-run-callback, gnus-demon-init): Convert to
+       seconds, and make the repeat clause with HH:MM specs work as
+       documented.
+
 2012-01-27  Lars Ingebrigtsen  <address@hidden>
 
        * gnus-start.el (gnus-get-unread-articles): Clear out "early" methods

=== modified file 'lisp/gnus/gnus-demon.el'
--- a/lisp/gnus/gnus-demon.el   2012-01-19 07:21:25 +0000
+++ b/lisp/gnus/gnus-demon.el   2012-01-28 02:25:57 +0000
@@ -102,6 +102,7 @@
   "Run FUNC if Emacs has been idle for longer than IDLE seconds."
   (unless gnus-inhibit-demon
     (when (or (not idle)
+              (and (eq idle t) (> (gnus-demon-idle-since) 0))
               (<= idle (gnus-demon-idle-since)))
       (with-local-quit
        (ignore-errors
@@ -115,6 +116,7 @@
     ;; Set up the timer.
     (let* ((func (nth 0 handler))
            (time (nth 1 handler))
+           (time-type (type-of time))
            (idle (nth 2 handler))
            ;; Compute time according with timestep.
            ;; If t, replace by 1
@@ -123,33 +125,32 @@
                        ((null time)
                        nil)
                       ((stringp time)
-                       (gnus-demon-time-to-step time))
+                       (* (gnus-demon-time-to-step time) gnus-demon-timestep))
                        (t
                        (* time gnus-demon-timestep))))
+           (idle (if (numberp idle)
+                     (* idle gnus-demon-timestep)
+                   idle))
+
            (timer
             (cond
-             ;; (func number t)
-             ;; Call when Emacs has been idle for `time'
-             ((and (numberp time) (eq idle t))
-              (run-with-timer time time 'gnus-demon-run-callback func time))
-             ;; (func number number)
-             ;; Call every `time' when Emacs has been idle for `idle'
-             ((and (numberp time) (numberp idle))
-              (run-with-timer time time 'gnus-demon-run-callback func idle))
              ;; (func nil number)
              ;; Only call when Emacs has been idle for `idle'
              ((and (null time) (numberp idle))
               (run-with-idle-timer (* idle gnus-demon-timestep) t
                                    'gnus-demon-run-callback func))
-             ;; (func number nil)
+             ;; (func number any)
              ;; Call every `time'
-             ((and (numberp time) (null idle))
-              (run-with-timer time time 'gnus-demon-run-callback func)))))
+             ((eq time-type 'integer)
+              (run-with-timer time time 'gnus-demon-run-callback func idle))
+             ;; (func string any)
+             ((eq time-type 'string)
+              (run-with-timer time (* 24 60 60) 'gnus-demon-run-callback func 
idle)))))
       (when timer
         (add-to-list 'gnus-demon-timers timer)))))
 
 (defun gnus-demon-time-to-step (time)
-  "Find out how many seconds to TIME, which is on the form \"17:43\"."
+  "Find out how many steps to TIME, which is on the form \"17:43\"."
   (let* ((now (current-time))
         ;; obtain NOW as discrete components -- make a vector for speed
         (nowParts (decode-time now))

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2012-01-07 11:46:47 +0000
+++ b/lisp/gnus/shr.el  2012-01-28 02:25:57 +0000
@@ -480,7 +480,7 @@
      ((not url)
       (message "No link under point"))
      ((string-match "^mailto:"; url)
-      (browse-url-mailto url))
+      (browse-url-mail url))
      (t
       (browse-url url)))))
 
@@ -566,7 +566,7 @@
 ;; url-cache-extract autoloads url-cache.
 (declare-function url-cache-create-filename "url-cache" (url))
 (autoload 'mm-disable-multibyte "mm-util")
-(autoload 'browse-url-mailto "browse-url")
+(autoload 'browse-url-mail "browse-url")
 
 (defun shr-get-image-data (url)
   "Get image data for URL.