From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/37621
Path: main.gmane.org!not-for-mail
From: Colin Walters <walters@cis.ohio-state.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: [ANNOUNCE] NNDiary, a diary backend for Gnus.
Date: Wed, 08 Aug 2001 21:15:30 -0400
Organization: The Ohio State University Dept. of Computer and Info. Science
Message-ID: <87vgjydoel.church.of.emacs@space-ghost.verbum.org>
References: <muxbslq1qev.fsf@uzeb.lrde.epita.fr>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: main.gmane.org 1035173002 14796 80.91.224.250 (21 Oct 2002 04:03:22 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 04:03:22 +0000 (UTC)
Return-Path: <walters@cis.ohio-state.edu>
Return-Path: <walters@cis.ohio-state.edu>
Original-Received: (qmail 7764 invoked from network); 9 Aug 2001 01:17:27 -0000
Original-Received: from dhcp233054.columbus.rr.com (HELO neutral.verbum.org) (postfix@204.210.233.54)
  by gnus.org with SMTP; 9 Aug 2001 01:17:27 -0000
Original-Received: from space-ghost.verbum.org (space-ghost.verbum.org [192.168.5.90])
	by neutral.verbum.org (Postfix (Debian/GNU)) with ESMTP id C1E56F5A6
	for <ding@gnus.org>; Wed,  8 Aug 2001 21:16:00 -0400 (EDT)
Original-Received: by space-ghost.verbum.org (Postfix (Debian/GNU), from userid 1000)
	id 9C0B3622EE0; Wed,  8 Aug 2001 21:15:30 -0400 (EDT)
Original-To: ding@gnus.org
X-Attribution: Colin
X-Face: %'w-_>8Mj2_'=;I$myE#]G"'D>x3CY_rk,K06:mXFUvWy>;3I"BW3_-MAiUby{O(mn"wV@m
 dd`)Vk[27^^Sa<qRKA=qTu-uV/qLcGrMm-}A24N2wgr)5%_46(#WMTajfXc_DBt)&'/(J1
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.104
 (powerpc-debian-linux-gnu)
Mail-Followup-To: ding@gnus.org
In-Reply-To: <muxbslq1qev.fsf@uzeb.lrde.epita.fr> (Didier Verna's message of
 "Wed, 08 Aug 2001 18:12:56 +0200")
Original-Lines: 17
Xref: main.gmane.org gmane.emacs.gnus.general:37621
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:37621

--=-=-=

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:


--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment
Content-Description: nndiary.el patch

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

--=-=-=--