[patch] `gnu-summary-exit-no-update'

[patch] `gnu-summary-exit-no-update'

[Mike McEwan]

  Since `gnus-picons-setup-buffer' is now being run, I was getting:

  "Wrong type argument: symbolp, (gnus-picons-kill-buffer)"

  The following does it for me:

--- pgnus/lisp/ChangeLog	1999/01/03 14:06:49	1.1.1.23
+++ pgnus/lisp/ChangeLog	1999/01/03 18:33:41
@@ -1,3 +1,8 @@
+1999-01-03  Mike McEwan  <mike@lotusland.demon.co.uk>
+
+	* gnus-sum.el (gnus-summary-exit-no-update): `run-hooks' requires
+	a symbol, not a list.
+
 Sun Jan  3 13:32:02 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.69 is released.
--- pgnus/lisp/gnus-sum.el	1998/12/15 21:03:04	1.18
+++ pgnus/lisp/gnus-sum.el	1999/01/03 18:18:50
@@ -5402,13 +5402,14 @@
   "Quit reading current newsgroup without updating read article info."
   (interactive)
   (let* ((group gnus-newsgroup-name)
-	 (quit-config (gnus-group-quit-config group)))
+	 (quit-config (gnus-group-quit-config group))
+	 (quit-hook (delq 'gnus-summary-expire-articles 
+			  (copy-list gnus-summary-prepare-exit-hook))))
     (when (or no-questions
 	      gnus-expert-user
 	      (gnus-y-or-n-p "Discard changes to this group and exit? "))
       (gnus-async-halt-prefetch)
-      (gnus-run-hooks (delq 'gnus-summary-expire-articles 
-			    (copy-list gnus-summary-prepare-exit-hook)))
+      (gnus-run-hooks 'quit-hook)
       (when (gnus-buffer-live-p gnus-article-buffer)
 	(save-excursion
 	  (set-buffer gnus-article-buffer)

-- 
Mike.