From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/20072 Path: main.gmane.org!not-for-mail From: Mike McEwan Newsgroups: gmane.emacs.gnus.general Subject: [patch] `gnu-summary-exit-no-update' Date: 03 Jan 1999 18:42:46 +0000 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 X-Trace: main.gmane.org 1035158404 15593 80.91.224.250 (21 Oct 2002 00:00:04 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:00:04 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id NAA24351 for ; Sun, 3 Jan 1999 13:50:40 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id MAB00360; Sun, 3 Jan 1999 12:50:23 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 03 Jan 1999 12:48:20 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id MAA02172 for ; Sun, 3 Jan 1999 12:48:11 -0600 (CST) Original-Received: from post.mail.demon.net (finch-post-10.mail.demon.net [194.217.242.38]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id NAA18687 for ; Sun, 3 Jan 1999 13:48:05 -0500 (EST) Original-Received: from [158.152.62.156] (helo=lotusland.demon.co.uk) by post.mail.demon.net with esmtp (Exim 2.10 #2) id 0zwsZ6-00006y-00 for ding@gnus.org; Sun, 3 Jan 1999 18:47:52 +0000 Original-Received: from mike by lotusland.demon.co.uk with local (Exim 2.10 #1) id 0zwsZ4-0000Tw-00 for ding@gnus.org; Sun, 3 Jan 1999 18:47:50 +0000 Original-To: ding@gnus.org User-Agent: Gnus/5.070069 (Pterodactyl Gnus v0.69) XEmacs/21.2(beta8) (Artemis) Original-Lines: 40 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:20072 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:20072 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 + + * 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 * 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.