Re: gnus-delay.el: let Gnus remind you of action items

[Karl Kleinpaste <karl@charcoal.com>]

[-- Attachment #1: Type: text/plain, Size: 411 bytes --]

Karl Kleinpaste <karl@charcoal.com> writes:
> Having just checked on XEmacs 21.1.14, I see it lacks even the
> DEFAULT-VALUE parameter.  Perhaps use INITIAL-CONTENTS instead?

> Also, I'd like the ability to specify minutes, hours, months, and
> years.  (Yes, really.)

How about this?

I also wondered whether the string-match should be bounded in "^...$"
to ensure there's nothing "extra" added by the user.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: update gnus-delay.el: fix read-string, allow more units --]
[-- Type: text/x-patch, Size: 1970 bytes --]

--- gnus-delay.el.~1~	Sat Jul 21 17:08:24 2001
+++ gnus-delay.el	Sun Jul 22 00:37:18 2001
@@ -41,22 +41,31 @@
 (defun gnus-delay-article (delay)
   "Delay this article by some time.
 DELAY is a string, giving the length of the time.  Possible values are
-like 3d (meaning 3 days) or 2w (meaning two weeks)."
+<digits><units> for <units> in minutes (`m'), hours (`h'), days (`d'),
+weeks (`w'), months (`M'), or years (`Y')."
   (interactive
-   (list (read-string (format "Length of delay (default `%s'): "
-                              gnus-delay-default-delay)
-                      nil nil gnus-delay-default-delay nil)))
+   (list (read-string "Length of delay (units in [mhdwMY]: " gnus-delay-default-delay)))
   (let (num unit days deadline)
-    (unless (string-match "\\([0-9]+\\)\\s-*\\([dw]\\)" delay)
+    (unless (string-match "\\([0-9]+\\)\\s-*\\([mhdwMY]\\)" delay)
       (error "Malformed delay `%s'" delay))
     (setq num (match-string 1 delay))
     (setq unit (match-string 2 delay))
-    (if (string= unit "w")
-        (setq delay (* 7 (string-to-number num)))
-      (setq delay (string-to-number num)))
+    ;; Start from seconds, then multiply into needed units.
+    (setq num (string-to-number num))
+    (if (string= unit "Y")
+       (setq delay (* num 60 60 24 365))
+      (if (string= unit "M")
+	  (setq delay (* num 60 60 24 30))
+	(if (string= unit "w")
+	    (setq delay (* num 60 60 24 7))
+	  (if (string= unit "d")
+	      (setq delay (* num 60 60 24))
+	    (if (string= unit "h")
+		(setq delay (* num 60 60))
+	      (setq delay (* num 60)))))))
     (setq deadline (message-make-date
                     (seconds-to-time (+ (time-to-seconds (current-time))
-                                        (* delay 24 60 60)))))
+                                        delay))))
     (message-add-header (format "%s: %s" gnus-delay-header deadline)))
   (set-buffer-modified-p t)
   (nndraft-request-create-group gnus-delay-group)