From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/53761 Path: main.gmane.org!not-for-mail From: letters@hotpop.com (Jari Aalto+mail.linux) Newsgroups: gmane.emacs.gnus.general Subject: [patch] CVS gnus-group.el: Even quicker select group Date: Mon, 18 Aug 2003 23:30:29 +0300 Sender: ding-owner@lists.math.uh.edu Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1061238266 12928 80.91.224.253 (18 Aug 2003 20:24:26 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 18 Aug 2003 20:24:26 +0000 (UTC) Original-X-From: ding-owner+M2302@lists.math.uh.edu Mon Aug 18 22:24:25 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19oqYC-0005gF-00 for ; Mon, 18 Aug 2003 22:24:25 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19oqX1-00032X-00; Mon, 18 Aug 2003 15:23:11 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19oqWt-00032P-00 for ding@lists.math.uh.edu; Mon, 18 Aug 2003 15:23:03 -0500 Original-Received: (qmail 8615 invoked by alias); 18 Aug 2003 20:23:02 -0000 Original-Received: (qmail 8610 invoked from network); 18 Aug 2003 20:23:02 -0000 Original-Received: from fep06-0.kolumbus.fi (HELO fep06-app.kolumbus.fi) (193.229.0.57) by sclp3.sclp.com with SMTP; 18 Aug 2003 20:23:02 -0000 Original-Received: from poboxes.com ([81.197.1.6]) by fep06-app.kolumbus.fi with ESMTP id <20030818202224.ZSYQ8538.fep06-app.kolumbus.fi@poboxes.com> for ; Mon, 18 Aug 2003 23:22:24 +0300 Original-To: ding@gnus.org User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/20.7 (windows-nt) (i386-*-nt5.0.2195) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:53761 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:53761 Here is improvement to the quick select feature. The new variable should be added to manual as well. Jari 2003-08-18 Jari Aalto * gnus-group.el (gnus-group-quick-select-ignore-variable-list): New user variable. More user controllable quickiness to select the group. (gnus-group-quick-select-group-variable-suppress): New support macro. (gnus-group-quick-select-group): Use new variable `gnus-group-quick-select-ignore-variable-list'. --- gnus-group.el 2003-08-18 23:24:06.000000000 +0300 +++ gnus-group.el.b 2003-08-18 23:16:48.000000000 +0300 @@ -77,6 +77,27 @@ (const best) (sexp :tag "other" t))) +(defcustom gnus-group-quick-select-ignore-variable-list + '(gnus-visual + gnus-score-find-score-files-function + gnus-home-score-file + gnus-apply-kill-hook + gnus-summary-expunge-below) + "List of variables to set to nil during `gnus-group-quick-select-group'. + +The fefault value is: + + '(gnus-visual + gnus-score-find-score-files-function + gnus-home-score-file + gnus-apply-kill-hook + gnus-summary-expunge-below) + +But you might want to add also variable `gnus-use-scoring'. To maximize +speed you could also add `gnus-show-threads'." + :group 'gnus-group-various + :type 'list) + (defcustom gnus-group-goto-unread t "*If non-nil, movement commands will go to the next unread and subscribed group." :link '(custom-manual "(gnus)Group Maneuvering") @@ -1885,6 +1906,16 @@ (forward-line -1)) (gnus-group-read-group all t)) +(put 'gnus-group-quick-select-group-variable-suppress + 'lisp-indent-function 1) +(defmacro gnus-group-quick-select-group-variable-suppress + (symbols &rest body) + "Suppress SYMBOLS by setting their values locally to nil." + (ignore-errors + (setq symbols (symbol-value symbols))) + `(let ,symbols + ,@body)) + (defun gnus-group-quick-select-group (&optional all) "Select the current group \"quickly\". This means that no highlighting or scoring will be performed. @@ -1892,14 +1923,14 @@ buffer. This might be useful if you want to toggle threading -before entering the group." +before entering the group. + +The variables that are set to nil are listed in +`gnus-group-quick-select-ignore-variable-list'." (interactive "P") (require 'gnus-score) - (let (gnus-visual - gnus-score-find-score-files-function - gnus-home-score-file - gnus-apply-kill-hook - gnus-summary-expunge-below) + (gnus-group-quick-select-group-variable-suppress + gnus-group-quick-select-ignore-variable-list (gnus-group-read-group all t))) (defun gnus-group-visible-select-group (&optional all) -- http://tiny-tools.sourceforge.net/ Swatch @time http://www.mir.com.my/iTime/itime.htm http://www.ryanthiessen.com/swatch/resources.htm Use Licenses! http://www.linuxjournal.com/article.php?sid=6225 Which Licence? http://www.linuxjournal.com/article.php?sid=4825 OSI Licences http://www.opensource.org/licenses/