Bugfix if text in a protected conference

src/async.el

@@ -379,29 +379,34 @@ to update the no-of-texts field in the cache.
 
 Also add this info in lyskom-to-do-list if info about RECIPIENT as been
 fetched. Does not try to print prompt or do any prefetch. That will be
-done after all the confs has been handled."
-
-  ;; Update the cache.
-
-  (set-conf-stat->no-of-texts
-   recipient
-   (max (conf-stat->no-of-texts recipient)
-	(+ local-no -1
-	   (- (conf-stat->first-local-no recipient)))))
-
-  ;; Update the read-lists.
-
-  (if (and (lyskom-conf-fetched-p (conf-stat->conf-no recipient))
-	   (not (read-list-enter-text text-no recipient lyskom-to-do-list)))
-      ;; If we have already read all texts in the conference...
-      (let ((info (lyskom-create-read-info
-		   'CONF
-		   recipient
-		   (membership->priority
-		    (lyskom-member-p (conf-stat->conf-no recipient)))
-		   (lyskom-create-text-list (list text-no)))))
-	(read-list-enter-read-info info lyskom-to-do-list)
-	(if (= lyskom-current-conf (conf-stat->conf-no recipient))
-	    (read-list-enter-first info lyskom-reading-list))))
-
-  (lyskom-set-mode-line))
+done after all the confs has been handled.
+
+If recipient is nil this means we are crossposting to a protected conference.
+In that case, just discard this call."
+
+  (cond
+   (recipient				;+++ Annan felhantering.
+    ;; Update the cache.
+
+    (set-conf-stat->no-of-texts
+     recipient
+     (max (conf-stat->no-of-texts recipient)
+	  (+ local-no -1
+	     (- (conf-stat->first-local-no recipient)))))
+
+    ;; Update the read-lists.
+
+    (if (and (lyskom-conf-fetched-p (conf-stat->conf-no recipient))
+	     (not (read-list-enter-text text-no recipient lyskom-to-do-list)))
+	;; If we have already read all texts in the conference...
+	(let ((info (lyskom-create-read-info
+		     'CONF
+		     recipient
+		     (membership->priority
+		      (lyskom-member-p (conf-stat->conf-no recipient)))
+		     (lyskom-create-text-list (list text-no)))))
+	  (read-list-enter-read-info info lyskom-to-do-list)
+	  (if (= lyskom-current-conf (conf-stat->conf-no recipient))
+	      (read-list-enter-first info lyskom-reading-list))))
+
+    (lyskom-set-mode-line))))