Re: [ANNOUNCE] NNDiary, a diary backend for Gnus.

[Colin Walters <walters@cis.ohio-state.edu>]

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

Didier Verna <didier@lrde.epita.fr> writes:

>         Since many people asked me in private to get nndiary, and
> for that, offered me to collect the bug reports while I'm on holiday
> ;-), I've decided to release it now anyway. As I said, it's already
> pretty usable and might even be more than in beta state (which it
> claims to be in).
>
>         Don't worry about bug reports and comments while I'm on
> holiday, I'll catch up with all my mail traffic when I'm back
> anyway, so I'll see everything.

Ok, seems cool.  Here's a patch necessary to make it run on GNU Emacs:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: nndiary.el patch --]
[-- Type: text/x-patch, Size: 2023 bytes --]

cd ~/lisp/
diff -u /home/walters/lisp/nndiary.el\~ /home/walters/lisp/nndiary.el
--- /home/walters/lisp/nndiary.el~	Wed Aug  8 13:55:57 2001
+++ /home/walters/lisp/nndiary.el	Wed Aug  8 21:08:48 2001
@@ -197,6 +197,13 @@
 (require 'gnus-start)
 (require 'gnus-sum)
 
+;; Compatibility Functions  =================================================
+
+(if (fboundp 'signal-error)
+    (defun nndiary-error (&rest args)
+      (apply #'signal-error 'nndiary args))
+  (defun nndiary-error (&rest args)
+    (apply #'error args)))
 
 ;; Backend behavior customization ===========================================
 
@@ -1258,12 +1265,12 @@
   ;; within the specified bounds.
   ;; Signals are caught by `nndiary-schedule'.
   (if (not (string-match "^[ \t]*[0-9]+[ \t]*$" str))
-      (signal-error 'nndiary "not an integer value")
+      (nndiary-error "not an integer value")
     ;; else
     (let ((val (string-to-int str)))
       (and (or (< val min)
 	       (and max (> val max)))
-	   (signal-error 'nndiary "value out of range"))
+	   (nndiary-error "value out of range"))
       val)))
 
 (defun nndiary-parse-schedule-value (str min-or-values max)
@@ -1280,7 +1287,7 @@
 			(match-string 1 str))))
 	  (if (and val (setq val (assoc val min-or-values)))
 	      (list (cadr val))
-	    (signal-error 'nndiary "invalid syntax")))
+	    (nndiary-error "invalid syntax")))
       ;; min-or-values is min
       (mapcar
        (lambda (val)
@@ -1300,7 +1307,7 @@
 		     (t
 		      (cons end beg)))))
 	    (t
-	     (signal-error 'nndiary "invalid syntax")))
+	     (nndiary-error "invalid syntax")))
 	   ))
        (split-string str ",")))
     ))
@@ -1315,7 +1322,7 @@
   (let ((header (format "^X-Diary-%s: \\(.*\\)$" head)))
     (goto-char (point-min))
     (if (not (re-search-forward header nil t))
-	(signal-error 'nndiary "header missing")
+	(nndiary-error "header missing")
       ;; else
       (nndiary-parse-schedule-value (match-string 1) min-or-values max))
     ))

Diff finished at Wed Aug  8 21:14:42