X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnndiary.el;h=28cf37e6e2a20e252eb8b7a76e11ee27213a2984;hb=e2696774a2e225ea60d46cc665d4232c80412731;hp=42cb838c18e37a681e427d99ed89d63d6823078c;hpb=e6b31519e256eaa52280b45df80d5b436c1539b1;p=elisp%2Fgnus.git-

diff --git a/lisp/nndiary.el b/lisp/nndiary.el
index 42cb838..28cf37e 100644
--- a/lisp/nndiary.el
+++ b/lisp/nndiary.el
@@ -759,7 +759,9 @@ all.  This may very well take some time.")
   (when (nndiary-schedule)
     (let (result)
       (when nnmail-cache-accepted-message-ids
-	(nnmail-cache-insert (nnmail-fetch-field "message-id") group))
+	(nnmail-cache-insert (nnmail-fetch-field "message-id") 
+			     group
+			     (nnmail-fetch-field "subject")))
       (if (stringp group)
 	  (and
 	   (nnmail-activate 'nndiary)
@@ -990,7 +992,7 @@ all.  This may very well take some time.")
 		  (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)