X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-async.el;h=d0afd1aa93266abad0d86802d8136db6f4d9c103;hb=9ff43b22e07294fa5393fdea5c1e90a86edbe717;hp=41b0cc25006c9e3b256eebe948bece149d27adaf;hpb=8f7476d4cfadb358d635238ae62c48a89efc6db2;p=gnus

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index 41b0cc250..d0afd1aa9 100644
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -76,7 +76,7 @@ The function will be called narrowed to the region of the article
 that was fetched."
   :version "24.1"
   :group 'gnus-asynchronous
-  :type 'function)
+  :type '(choice (const nil) function))
 
 ;;; Internal variables.
 
@@ -254,7 +254,7 @@ that was fetched."
 	 gnus-async-article-alist
 	 (cons (list (intern (format "%s-%d" group article)
 			     gnus-async-hashtb)
-		     mark (set-marker (make-marker) (point-max))
+		     mark (point-max-marker)
 		     group article)
 	       gnus-async-article-alist))))
     (if (not (gnus-buffer-live-p summary))