Re: nndiary documentation bug

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Mon, May 07 2007, Didier Verna wrote:

> I'm actually reluctant to advertise this variable as a server one
> (although technically, I guess it's possible to use it that way).

Okay.

>> BTW, is there any reason _not_ to include (info "(gnus)Running
>> NNDiary") in the stable branch (v5-10)?
>
>   If nndiary is present in the stable branch, the whole "Email Based
> Diary" node should be included in the doc.

Apart from minor issues (compatibility code) and comments (moved to
gnus.texi), the versions of nndiary.el and gnus-diary.el in trunk and
v5-10 are identical.  So I will sync the lisp files and install (info
"(gnus)Email Based Diary") in v5-10 unless you'd like to do it
yourself.

Bye, Reiner.

--8<---------------cut here---------------start------------->8---
--- v5-10/lisp/nndiary.el	2007-02-04 17:09:38.000000000 +0100
+++ No/lisp/nndiary.el	        2007-01-26 20:41:00.000000000 +0100
@@ -725,7 +606,7 @@
     (nconc rest articles)))
 
 (deffoo nndiary-request-move-article
-    (article group server accept-form &optional last)
+    (article group server accept-form &optional last move-is-internal)
   (let ((buf (get-buffer-create " *nndiary move*"))
 	result)
     (nndiary-possibly-change-directory group server)
@@ -994,7 +875,7 @@
 		  (search-forward id nil t)) ; We find the ID.
 	;; And the id is in the fourth field.
 	(if (not (and (search-backward "\t" nil t 4)
-		      (not (search-backward"\t" (gnus-point-at-bol) t))))
+		      (not (search-backward"\t" (point-at-bol) t))))
 	    (forward-line 1)
 	  (beginning-of-line)
 	  (setq found t)
@@ -1215,9 +1096,7 @@
     (push (list group
 		(cons (or (caar files) (1+ last))
 		      (max last
-			   (or (let ((f files))
-				 (while (cdr f) (setq f (cdr f)))
-				 (caar f))
+			   (or (caar (last files))
 			       0))))
 	  nndiary-group-alist)))
 
--- v5-10/lisp/gnus-diary.el	2007-02-04 17:09:37.000000000 +0100
+++ plain_No/lisp/gnus-diary.el	2007-01-26 20:40:58.000000000 +0100
@@ -402,7 +347,7 @@
 	   (when (re-search-forward (concat "^" header ":") nil t)
 	     (unless (eq (char-after) ? )
 	       (insert " "))
-	     (setq value (buffer-substring (point) (gnus-point-at-eol)))
+	     (setq value (buffer-substring (point) (point-at-eol)))
 	     (and (string-match "[ \t]*\\([^ \t]+\\)[ \t]*" value)
 		  (setq value (match-string 1 value)))
 	     (condition-case ()
--8<---------------cut here---------------end--------------->8---
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/